3 ms·
In Arc, as written by a n00b: (= f [+ (sqrt abs._) (* 5 expt._.3)]) (= a '()) (repeat 11 (= a (cons (coerce (read) 'int) a))) (each i a
by dreish 19y ago
In Arc, as written by a n00b:
(= f [+ (sqrt abs._)
(* 5 expt._.3)])
(= a '())
(repeat 11
(= a (cons (coerce (read) 'int) a)))
(each i a
(let f_i f.i
(if (> f_i 400)
(prn i " TOO LARGE")
(prn f_i))))
Not sure if reversing-while-reading is considered "cheating", but it seems natural to do it with a cons.