16 lines
291 B
Plaintext
16 lines
291 B
Plaintext
# Set up
|
|
L := [["a", "b", "c"],["A", "B", "C"], ["1", "2", "3"]];
|
|
M := Array(1..3, 1..3, L);
|
|
|
|
multi_loop := proc(M)
|
|
local i, j;
|
|
for i from 1 to upperbound(M, 1) do
|
|
for j from 1 to upperbound(M, 2) do
|
|
printf("%s", M[j, i]);
|
|
end do;
|
|
printf("\n");
|
|
end do;
|
|
end proc:
|
|
|
|
multi_loop(M);
|