Loops/Foreach: Difference between revisions

From Rosetta Code
Content added Content deleted
No edit summary
(JavaScript, Logo, Forth)
Line 3: Line 3:
=={{header|Common Lisp}}==
=={{header|Common Lisp}}==
<pre language="lisp">(loop for i in list do (print i))</pre>
<pre language="lisp">(loop for i in list do (print i))</pre>

=={{header|Forth}}==
create a 3 , 2 , 1 ,
: .array ( a len -- )
cells bounds do i @ . cell +loop ; \ 3 2 1


=={{header|Java}}==
=={{header|Java}}==
Line 11: Line 16:
System.out.println(i);
System.out.println(i);
}</java>
}</java>

=={{header|JavaScript}}==
This works for any object, as well as arrays.
for (var a in o) print(o[a]);

=={{header|Logo}}==
foreach [red green blue] [print ?]


=={{header|Perl}}==
=={{header|Perl}}==

Revision as of 22:06, 13 April 2008

Task
Loops/Foreach
You are encouraged to solve this task according to the task description, using any language you may know.

Loop through and print each element in a collection in order. Use your language's "for each" loop if it has one, otherwise iterate through the collection in order with some other loop.

Common Lisp

(loop for i in list do (print i))

Forth

create a 3 , 2 , 1 ,
: .array ( a len -- )
  cells bounds do  i @ .  cell +loop ;     \ 3 2 1

Java

Works with: Java version 1.5+

<java>Collection<Type> collect; ... for(Type i:collect){

  System.out.println(i);

}</java>

JavaScript

This works for any object, as well as arrays.

for (var a in o) print(o[a]);

foreach [red green blue] [print ?]

Perl

<perl>foreach $i (@collect) {

  print "$i\n";

}</perl> The keyword for can be used instead of foreach. If a variable ($i) is not given, then $_ is used.

PHP

<php>foreach ($collect as $i) {

  echo "$i\n";

}</php>

Python

<python>for i in collect:

  print i</python>