RosettaCodeData/Task/Loop-over-multiple-arrays-simultaneously/ALGOL-68/loop-over-multiple-arrays-simultaneously.alg

6 lines
125 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
[]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