5 lines
169 B
Text
5 lines
169 B
Text
((0 <) (-1 *) when) :abs
|
|
(((abs 0.5 pow) (3 pow 5 * +)) cleave) :fn
|
|
"Enter 11 numbers:" puts!
|
|
(gets float) 11 times
|
|
(fn (400 <=) (pop "Overflow") unless puts!) 11 times
|