Trabb Pardo–Knuth algorithm: Difference between revisions
Add min
(Add min) |
|||
Line 1,831:
f[1.18367]= 9.38004
f[0.470145]= 1.20527
</pre>
=={{header|min}}==
{{works with|min|0.19.3}}
<lang min>((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</lang>
{{out}}
<pre>
Enter 11 numbers:
1
2
3
4
5
6
7
8
9
10
11
Overflow
Overflow
Overflow
Overflow
Overflow
Overflow
Overflow
322.0
136.7320508075689
41.41421356237309
6.0
</pre>
| |||