Data update

Task/Loop-over-multiple-arrays-simultaneously/Tailspin/loop-over-multiple-arrays-simultaneously-4.tailspin

@@ -0,0 +1,25 @@
+x is ['a', 'b', 'c'];
+y is ['A', 'B', 'C'];
+z is [1, 2, 3];
+
+u is ['a', 'b'];
+v is ['A', 'B', 'C'];
+w is [1];
+
+transpose2 templates
+  @ set [];
+  $... -> $(.. as i; -> templates
+    when <|?($i matches <|..$@transpose2::length>)> do ..|@transpose2($i) set $;
+    otherwise ..|@transpose2 set [$];
+  end) -> !VOID
+  $@ !
+end transpose2
+
+[$x, $y, $z] -> transpose2... -> '$...;
+' !
+
+'
+' !
+
+[$u,$v,$w] -> transpose2... -> '$...;
+' !

Task/Loop-over-multiple-arrays-simultaneously/True-BASIC/loop-over-multiple-arrays-simultaneously.basic

@@ -0,0 +1,37 @@
+FUNCTION min(x, y)
+    IF x < y THEN LET min = x ELSE LET min = y
+END FUNCTION
+
+DIM arr1$(3)
+LET arr1$(1) = "a"
+LET arr1$(2) = "b"
+LET arr1$(3) = "c"
+DIM arr2$(3)
+LET arr2$(1) = "A"
+LET arr2$(2) = "B"
+LET arr2$(3) = "C"
+DIM arr3(3)
+LET arr3(1) = 1
+LET arr3(2) = 2
+LET arr3(3) = 3
+
+FOR i = 1 TO 3
+    PRINT arr1$(i); arr2$(i); STR$(arr3(i))
+NEXT i
+PRINT
+
+DIM arr4$(4)
+LET arr4$(1) = "A"
+LET arr4$(2) = "B"
+LET arr4$(3) = "C"
+LET arr4$(4) = "D"
+DIM arr5(2)
+LET arr5(1) = 1
+LET arr5(2) = 2
+
+LET ub = min(UBOUND(arr1$),min(UBOUND(arr4$),UBOUND(arr5)))
+
+FOR i = 1 TO ub
+    PRINT arr1$(i) & arr4$(i) & STR$(arr5(i))
+NEXT i
+END