Data update

Task/Loop-over-multiple-arrays-simultaneously/FutureBasic/loop-over-multiple-arrays-simultaneously.basic

@@ -0,0 +1,14 @@
+void local fn DoIt
+  CFArrayRef a1 = @[@"a",@"b",@"c"]
+  CFArrayRef a2 = @[@"A",@"B",@"C"]
+  CFArrayRef a3 = @[@"1",@"2",@"3"]
+
+  long i, count = len(a1)
+  for i = 0 to count - 1
+    print a1[i]a2[i]a3[i]
+  next
+end fn
+
+fn DoIt
+
+HandleEvents

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

@@ -1,2 +1,10 @@
 {-# LANGUAGE ParallelListComp #-}
-main = sequence [ putStrLn [x, y, z] | x <- "abc" | y <- "ABC" | z <- "123"]
+
+main :: IO [()]
+main =
+  sequence
+    [ putStrLn [x, y, z]
+      | x <- "abc"
+      | y <- "ABC"
+      | z <- "123"
+    ]

Task/Loop-over-multiple-arrays-simultaneously/Maxima/loop-over-multiple-arrays-simultaneously.maxima

@@ -0,0 +1,8 @@
+/* Function that loops over multiple arrays simultaneously depending on the list with less length */
+lomas(L):=block(
+    minlen:lmin(map(length,L)),
+    makelist(makelist(L[i][j],i,1,length(L)),j,1,minlen))$
+
+/* Test case */
+lst:[[a,b,c],[A,B,C],[1,2,3]]$
+lomas(lst);