Anonymous user
Jensen's Device: Difference between revisions
Forth example added
(+Icon+Unicon) |
(Forth example added) |
||
Line 257:
sum(1, 100, fn i { 1/i })</lang>
=={{header|Forth}}==
<lang forth>: s>f s>d d>f ;
: sum 0 s>f 1+ swap ?do i over execute f+ loop drop ;
:noname s>f 1 s>f fswap f/ ; 1 100 sum f.</lang>
Output: 5.18737751763962
=={{header|Haskell}}==
<lang haskell>import Control.Monad
| |||