Loop over multiple arrays simultaneously: Difference between revisions

From Rosetta Code
Content added Content deleted
No edit summary
m (the example is redundant, it's the same in as in the opening paragraph; also removed the REPL prompt)
Line 8: Line 8:
=={{header|Common Lisp}}==
=={{header|Common Lisp}}==


<lang lisp>CL-USER> (mapc (lambda (&rest args)
<lang lisp>(mapc (lambda (&rest args)
(format t "~{~A~}~%" args))
(format t "~{~A~}~%" args))
'(|a| |b| |c|)
'(|a| |b| |c|)
'(a b c)
'(a b c)
'(1 2 3))
'(1 2 3))</lang>

aA1
bB2
cC3</lang>


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

Revision as of 11:57, 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>

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>