Anonymous user
Loops/While: Difference between revisions
added haskell attempt; not really loop
(added scheme) |
(added haskell attempt; not really loop) |
||
Line 71:
i = i / 2
END DO
=={{header|Haskell}}==
import Control.Monad
main = loop 1024
where loop n = when (n > 0)
(do print n
loop (n `div` 2))
=={{header|J}}==
| |||