Loop over multiple arrays simultaneously: Difference between revisions

From Rosetta Code
Content deleted Content added
m the example is redundant, it's the same in as in the opening paragraph; also removed the REPL prompt
added J (though because J abstracts away arrays and looping, the solution is questionable)
Line 13: Line 13:
'(a b c)
'(a b c)
'(1 2 3))</lang>
'(1 2 3))</lang>

=={{header|J}}==
(,.":"0)&:>/ 'abc' ; 'ABC' ; 1 2 3


=={{header|Ruby}}==
=={{header|Ruby}}==

Revision as of 14:21, 6 August 2009

Task
Loop over multiple arrays simultaneously
You are encouraged to solve this task according to the task description, using any language you may know.

Loop over multiple arrays (or lists or tuples ...) and print the ith element of each. Use your language's "for each" loop if it has one, otherwise iterate through the collection in order with some other loop.

Example, loop over the arrays (a,b,c), (A,B,C) and (1,2,3) to produce the output

aA1
bB2
cC3

Common Lisp

<lang lisp>(mapc (lambda (&rest args)

       (format t "~{~A~}~%" args))
     '(|a| |b| |c|)
     '(a b c)
     '(1 2 3))</lang>

J

   (,.":"0)&:>/ 'abc' ; 'ABC' ; 1 2 3

Ruby

<lang ruby>['a','b','c'].zip(['A','B','C'], [1,2,3]).each {|i,j,k| puts "#{i}#{j}#{k}"}</lang>

Tcl

<lang tcl>foreach i {a b c} j {A B C} k {1 2 3} {

   puts "$i$j$k"

}</lang>