RosettaCodeData/Task/Loop-over-multiple-arrays-simultaneously/Racket/loop-over-multiple-arrays-simultaneously.rkt

#lang racket

(for ([x '(a b c)] ; list
      [y #(A B C)] ; vector
      [z "123"]
      [i (in-naturals 1)]) ; 1, 2, ... infinitely
  (printf "~s: ~s ~s ~s\n" i x y z))