Initial data commit

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 <- "abc" | 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 ["abc", "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,18 @@
+import Control.Applicative (ZipList (ZipList, getZipList))
+
+main :: IO ()
+main =
+  mapM_ putStrLn $
+    getZipList
+      ( (\x y z -> [x, y, z])
+          <$> ZipList "abc"
+            <*> ZipList "ABC"
+            <*> ZipList "123"
+      )
+      <> getZipList
+        ( (\w x y z -> [w, x, y, z])
+            <$> ZipList "abcd"
+              <*> ZipList "ABCD"
+              <*> ZipList "1234"
+              <*> ZipList "一二三四"
+        )