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))
A-M baby 2013-04-10 21:29:02 -07:00			`#lang racket`

Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			`(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))`