Data commit

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

@@ -0,0 +1,6 @@
+import Control.Monad (when)
+
+main = loop 1024
+  where loop n = when (n > 0)
+                      (do print n
+                          loop (n `div` 2))

Task/Loops-While/Haskell/loops-while-2.hs

@@ -0,0 +1,10 @@
+import Data.IORef
+import Control.Monad.Loops
+
+main :: IO ()
+main = do r <- newIORef 1024
+          whileM_ (do n <- readIORef r
+                     return (n > 0))
+                  (do n <- readIORef r
+                     print n
+                     modifyIORef r (`div` 2))

Task/Loops-While/Haskell/loops-while-3.hs

@@ -0,0 +1,11 @@
+{-# LANGUAGE MonadComprehensions #-}
+import Data.IORef
+import Control.Monad.Loops
+
+main :: IO ()
+main = do
+   r <- newIORef 1024
+   whileM_ [n > 0 | n <- readIORef r] $ do
+        n <- readIORef r
+        print n
+        modifyIORef r (`div` 2)