Jensen's Device: Difference between revisions
Content added Content deleted
(Forth example added) |
(Added PicoLisp) |
||
Line 466:
//Output: 5.1873775176396
</lang>
=={{header|PicoLisp}}==
<lang PicoLisp>(scl 6)
(de jensen (I Lo Hi Term)
(let Temp 0
(set I Lo)
(while (>= Hi (val I))
(inc 'Temp (Term))
(inc I) )
Temp ) )
(let I (box) # Create indirect reference
(format
(jensen I 1 100 '(() (*/ 1.0 (val I))))
*Scl ) )</lang>
Output:
<pre>-> "5.187383"</pre>
=={{header|Python}}==
| |||