Another update from ingydotnet^djgoku

Task/Loop-over-multiple-arrays-simultaneously/Haskell/loop-over-multiple-arrays-simultaneously-1.hs

@@ -0,0 +1,2 @@
+{-# LANGUAGE ParallelListComp #-}
+main = sequence [ putStrLn [x, y, z] | x <- "abd" | y <- "ABC" | z <- "123"]

Task/Loop-over-multiple-arrays-simultaneously/Haskell/loop-over-multiple-arrays-simultaneously-2.hs

@@ -0,0 +1,2 @@
+import Data.List
+main = mapM putStrLn $ transpose ["abd", "ABC", "123"]

Task/Loop-over-multiple-arrays-simultaneously/Haskell/loop-over-multiple-arrays-simultaneously-3.hs

@@ -0,0 +1,2 @@
+import Data.List
+main = mapM putStrLn $ zipWith3 (\a b c -> [a,b,c]) "abc" "ABC" "123"

Task/Loop-over-multiple-arrays-simultaneously/Haskell/loop-over-multiple-arrays-simultaneously-4.hs

@@ -0,0 +1,2 @@
+import Control.Applicative
+main = sequence $ getZipList $ (\x y z -> putStrLn [x, y, z]) <$> ZipList "abd" <*> ZipList "ABC" <*> ZipList "123"

Task/Loop-over-multiple-arrays-simultaneously/Haskell/loop-over-multiple-arrays-simultaneously.hs

@@ -1 +0,0 @@
-main = mapM_ putStrLn $ zipWith3 (\a b c -> [a,b,c]) "abc" "ABC" "123"