Trabb Pardo–Knuth algorithm: Difference between revisions
Content added Content deleted
(Add min) |
|||
Line 1,831: | Line 1,831: | ||
f[1.18367]= 9.38004 |
f[1.18367]= 9.38004 |
||
f[0.470145]= 1.20527 |
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> |
</pre> |
||