RosettaCodeData/Task/Loops-Foreach/ALGOL-68/loops-foreach.alg
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07: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