RosettaCodeData/Task/Loops-While/Haskell/loops-while-1.hs

import Control.Monad (when)

main = loop 1024
  where loop n = when (n > 0)
                      (do print n
                          loop (n `div` 2))
A-M baby 2013-04-10 21:29:02 -07:00			`import Control.Monad (when)`
June 2018 Update 2018-06-22 20:57:24 +00:00
A-M baby 2013-04-10 21:29:02 -07:00			`main = loop 1024`
			`where loop n = when (n > 0)`
			`(do print n`
			loop (n `div` 2))