aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

15
Task/Loop-over-multiple-arrays-simultaneously/Maple/loop-over-multiple-arrays-simultaneously.maple Normal file
View file

@ -0,0 +1,15 @@
# 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);