9 lines
420 B
Rexx
9 lines
420 B
Rexx
/*REXX program shows how to simultaneously loop over multiple arrays.*/
|
|
x.=' '; x.1="a"; x.2='b'; x.3="c"; x.4='d'
|
|
y.=' '; y.1="A"; y.2='B'; y.3="C";
|
|
z.=' '; z.1= 1 ; z.2= 2 ; z.3= 3 ; z.4= 4; z.5= 5
|
|
|
|
do j=1 until output=''
|
|
output=x.j || y.j || z.j
|
|
say output
|
|
end /*j*/ /*stick a fork in it, we're done.*/
|