Data commit

Task/Loops-Do-while/Haskell/loops-do-while-1.hs

@@ -0,0 +1,5 @@
+import Data.List
+import Control.Monad
+import Control.Arrow
+
+doWhile p f n = (n:) $ takeWhile p $ unfoldr (Just.(id &&& f)) $ succ n

Task/Loops-Do-while/Haskell/loops-do-while-2.hs

@@ -0,0 +1,7 @@
+*Main> mapM_ print $ doWhile ((/=0).(`mod`6)) succ 0
+0
+1
+2
+3
+4
+5

Task/Loops-Do-while/Haskell/loops-do-while-3.hs

@@ -0,0 +1,7 @@
+main :: IO ()
+main =
+  mapM_ print . reverse $
+  until
+    (\(x:_) -> (x > 0) && (mod x 6 == 0))
+    (\xs@(x:_) -> succ x : xs)
+    [0]

Task/Loops-Do-while/Haskell/loops-do-while-4.hs

@@ -0,0 +1,10 @@
+import Data.IORef
+import Control.Monad.Loops
+
+main = do
+  x <- newIORef 0;
+  iterateWhile (\val -> val `mod` 6 /= 0 ) $ do
+    modifyIORef x (+1)
+    val <- readIORef x
+    print val
+    return val