RosettaCodeData/Task/Loop-over-multiple-arrays-s.../Oforth/loop-over-multiple-arrays-s...

3 lines
92 B
Forth

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