Sync

Task/Loop-over-multiple-arrays-simultaneously/COBOL/loop-over-multiple-arrays-simultaneously.cobol

@@ -0,0 +1,23 @@
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. Loop-Over-Multiple-Tables.
+
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+       01  A VALUE "abc".
+           03  A-Vals PIC X OCCURS 3 TIMES.
+
+       01  B VALUE "ABC".
+           03  B-Vals PIC X OCCURS 3 TIMES.
+
+       01  C VALUE "123".
+           03  C-Vals PIC 9 OCCURS 3 TIMES.
+
+       01  I PIC 9.
+
+       PROCEDURE DIVISION.
+           PERFORM VARYING I FROM 1 BY 1 UNTIL 3 < I
+               DISPLAY A-Vals (I) B-Vals (I) C-Vals (I)
+           END-PERFORM
+
+           GOBACK
+           .

Task/Loop-over-multiple-arrays-simultaneously/Chapel/loop-over-multiple-arrays-simultaneously.chapel

@@ -0,0 +1,6 @@
+var a1 = [ "a", "b", "c" ];
+var a2 = [ "A", "B", "C" ];
+var a3 = [  1,   2,   3  ];
+
+for (x,y,z) in zip(a1, a2, a3) do
+    writeln(x,y,z);

Task/Loop-over-multiple-arrays-simultaneously/Julia/loop-over-multiple-arrays-simultaneously-1.julia

@@ -0,0 +1,4 @@
+julia> map(println, ('a','b','c'),('A','B','C'),(1,2,3)) ;
+aA1
+bB2
+cC3

Task/Loop-over-multiple-arrays-simultaneously/Julia/loop-over-multiple-arrays-simultaneously-2.julia

@@ -0,0 +1,6 @@
+julia> for (i,j,k) in zip(('a','b','c'),('A','B','C'),(1,2,3))
+         println(i,j,k)
+       end
+aA1
+bB2
+cC3