Data update

Task/Loop-over-multiple-arrays-simultaneously/Ada/loop-over-multiple-arrays-simultaneously.adb

@@ -0,0 +1,13 @@
+with Ada.Text_IO;  use Ada.Text_IO;
+
+procedure Array_Loop_Test is
+   type Array_Index is range 1..3;
+   A1 : array (Array_Index) of Character := "abc";
+   A2 : array (Array_Index) of Character := "ABC";
+   A3 : array (Array_Index) of Integer   := (1, 2, 3);
+begin
+   for Index in Array_Index'Range loop
+      Put_Line (A1 (Index) & A2 (Index) & Integer'Image (A3
+(Index))(2));
+   end loop;
+end Array_Loop_Test;

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

@@ -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.chpl

@@ -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/Euphoria/loop-over-multiple-arrays-simultaneously-1.eu

@@ -0,0 +1,9 @@
+sequence a, b, c
+
+a = "abc"
+b = "ABC"
+c = "123"
+
+for i = 1 to length(a) do
+    puts(1, a[i] & b[i] & c[i] & "\n")
+end for

Task/Loop-over-multiple-arrays-simultaneously/Euphoria/loop-over-multiple-arrays-simultaneously-2.eu

@@ -0,0 +1,9 @@
+sequence a, b, c
+
+a = "abc"
+b = "ABC"
+c = {1, 2, 3}
+
+for i = 1 to length(a) do
+    printf(1, "%s%s%g\n", {a[i], b[i], c[i]})
+end for

Task/Loop-over-multiple-arrays-simultaneously/Euphoria/loop-over-multiple-arrays-simultaneously-3.eu

@@ -0,0 +1,12 @@
+for i = 1 to length(a) do
+    if (a[i] >= '0' and a[i] <= '9') then
+	a[i] -= '0'
+    end if
+    if (b[i] >= '0' and b[i] <= '9') then
+	b[i] -= '0'
+    end if
+    if (c[i] >= '0' and c[i] <= '9') then
+	c[i] -= '0'
+    end if
+    printf(1, "%s%s%s\n", {a[i], b[i], c[i]})
+end for

Task/Loop-over-multiple-arrays-simultaneously/Haxe/loop-over-multiple-arrays-simultaneously.hx

@@ -0,0 +1,22 @@
+using Lambda;
+using Std;
+
+class Main
+{
+	
+	static function main()
+	{
+		var a = ['a', 'b', 'c'];
+		var b = ['A', 'B', 'C'];
+		var c = [1, 2, 3];
+		
+		//Find smallest array
+		var len = [a, b, c]
+			.map(function(a) return a.length)
+			.fold(Math.min, 0x0FFFFFFF)
+			.int();
+
+		for (i in 0...len)
+			Sys.println(a[i] + b[i] + c[i].string());
+	}
+}

Task/Loop-over-multiple-arrays-simultaneously/Jactl/loop-over-multiple-arrays-simultaneously-1.jactl

@@ -0,0 +1,2 @@
+def lists = [['a','b','c'], ['A','B','C'], [1,2,3]]
+lists.transpose().each{ println it.join() }

Task/Loop-over-multiple-arrays-simultaneously/Jactl/loop-over-multiple-arrays-simultaneously-2.jactl

@@ -0,0 +1,7 @@
+def lists = [['a','b','c'], ['A','B','C'], [1,2,3]]
+for (i = 0; i < lists[0].size(); i++) {
+  for (j = 0; j < lists.size(); j++) {
+    print lists[j][i]
+  }
+  println
+}

Task/Loop-over-multiple-arrays-simultaneously/Perl/loop-over-multiple-arrays-simultaneously-1.pl

@@ -0,0 +1,13 @@
+sub zip (&@)
+{
+        my $code = shift;
+        my $min;
+        $min = $min && $#$_ > $min ? $min : $#$_ for @_;
+
+        for my $i(0..$min){ $code->(map $_->[$i] ,@_) }
+}
+my @a1 = qw( a b c );
+my @a2 = qw( A B C );
+my @a3 = qw( 1 2 3 );
+
+zip { print @_,"\n" }\(@a1, @a2, @a3);

Task/Loop-over-multiple-arrays-simultaneously/Perl/loop-over-multiple-arrays-simultaneously-2.pl

@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+
+use strict; # https://rosettacode.org/wiki/Loop_over_multiple_arrays_simultaneously
+use warnings;
+use List::AllUtils qw( zip_by );
+
+my @data1 = qw( a b c);
+my @data2 = qw( A B C D E);
+my @data3 = qw( 1 2 3 4 );
+
+for ( zip_by { join '', map $_//' ', @_ } \@data1, \@data2, \@data3 )
+  {
+  print "$_\n";
+  }

Task/Loop-over-multiple-arrays-simultaneously/PowerShell/loop-over-multiple-arrays-simultaneously-1.ps1

@@ -0,0 +1,10 @@
+function zip3 ($a1, $a2, $a3)
+{
+    while ($a1)
+    {
+        $x, $a1 = $a1
+        $y, $a2 = $a2
+        $z, $a3 = $a3
+        [Tuple]::Create($x, $y, $z)
+    }
+}

Task/Loop-over-multiple-arrays-simultaneously/PowerShell/loop-over-multiple-arrays-simultaneously-2.ps1

@@ -0,0 +1 @@
+zip3 @('a','b','c') @('A','B','C') @(1,2,3)

Task/Loop-over-multiple-arrays-simultaneously/PowerShell/loop-over-multiple-arrays-simultaneously-3.ps1

@@ -0,0 +1 @@
+zip3 @('a','b','c') @('A','B','C') @(1,2,3) | ForEach-Object {$_.Item1 + $_.Item2 + $_.Item3}

Task/Loop-over-multiple-arrays-simultaneously/Rebol/loop-over-multiple-arrays-simultaneously.rebol

@@ -0,0 +1,10 @@
+;; Define the three series
+list1: [a b c]
+list2: [A B C]
+list3: [1 2 3]
+
+;; Iterate over them in parallel by index
+repeat i length? list1 [
+    ;; pick returns the i-th element
+    print rejoin [list1/:i list2/:i list3/:i]
+]

Task/Loop-over-multiple-arrays-simultaneously/Uiua/loop-over-multiple-arrays-simultaneously-1.uiua

@@ -0,0 +1 @@
+≡(⊂⊂) "abc" "ABC" "123"

Task/Loop-over-multiple-arrays-simultaneously/Uiua/loop-over-multiple-arrays-simultaneously-2.uiua

@@ -0,0 +1 @@
+≡⊂₃ "abc" "ABC" "123"

Task/Loop-over-multiple-arrays-simultaneously/VBScript/loop-over-multiple-arrays-simultaneously.vbs

@@ -0,0 +1,9 @@
+' Loop over multiple arrays simultaneously - VBScript - 08/02/2021
+
+a = Array("a","b","c")
+b = Array("A","B","C")
+c = Array(1,2,3)
+For i = LBound(a) To UBound(a)
+    buf = buf & vbCrLf & a(i) & b(i) & c(i)
+Next
+WScript.Echo Mid(buf,3)