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

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-07-13 15:19:22 -07:00
parent 29a5eea0d4
commit 5c1bb7bfa9
2011 changed files with 35081 additions and 3229 deletions
Download patch file Download diff file Expand all files Collapse all files

12
Task/Loop-over-multiple-arrays-simultaneously/PascalABC.NET/loop-over-multiple-arrays-simultaneously.pas Normal file
View file

@ -0,0 +1,12 @@
begin
var a1 := Arr('a','b','c');
var a2 := Arr('A','B','C');
var a3 := Arr(1,2,3);
for var i:=0 to a1.Length-1 do
Writeln(a1[i],a2[i],a3[i]);
Writeln;
foreach var (x,y,z) in a1.Zip(a2,a3) do
Writeln(x,y,z);
Writeln;
a1.Zip(a2,a3).PrintLines(t -> t[0]+t[1]+t[2]);
end.