RosettaCodeData/Task/Loop-over-multiple-arrays-simultaneously/Oforth/loop-over-multiple-arrays-simultaneously.fth
2023-07-01 13:44:08 -04:00

2 lines
92 B
Forth

[ "a", "b", "c" ] [ "A", "B", "C" ] [ 1, 2, 3 ]
zipAll(3) apply(#[ apply(#print) printcr ])