RosettaCodeData/Task/Loop-over-multiple-arrays-simultaneously/Rebol/loop-over-multiple-arrays-simultaneously.rebol

11 lines
225 B
Text
Raw Permalink Normal View History

2026-04-30 12:34:36 -04:00
;; Define the three series
list1: [a b c]
list2: [A B C]
list3: [1 2 3]
;; Iterate over them in parallel by index
repeat i length? list1 [
;; pick returns the i-th element
print rejoin [list1/:i list2/:i list3/:i]
]