RosettaCodeData/Task/Loop-over-multiple-arrays-simultaneously/ALGOL-68/loop-over-multiple-arrays-simultaneously.alg
2015-11-18 06:14:39 +00:00

5 lines
125 B
Text

[]UNION(CHAR,INT) x=("a","b","c"), y=("A","B","C"),
z=(1,2,3);
FOR i TO UPB x DO
printf(($ggd$, x[i], y[i], z[i], $l$))
OD