Jensen's Device: Difference between revisions
Content added Content deleted
(+Icon+Unicon) |
(Forth example added) |
||
Line 257: | Line 257: | ||
sum(1, 100, fn i { 1/i })</lang> |
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}}== |
=={{header|Haskell}}== |
||
<lang haskell>import Control.Monad |
<lang haskell>import Control.Monad |