RosettaCodeData/Task/Loops-Foreach/ALGOL-68/loops-foreach-1.alg
2023-07-01 13:44:08 -04:00

5 lines
186 B
Text

[]UNION(STRING, INT, PROC(REF FILE)VOID) collection = ("Mary","Had",1,"little","lamb.",new line);
FOR index FROM LWB collection TO UPB collection DO
print((collection[index]," "))
OD