Logo

Programming-Idioms

This language bar is your friend. Select your favorite languages!
  • Scheme

Idiom #6 Iterate over list values

Do something with each item x of the list (or array) items, regardless indexes.

(map doSomething items)
(define (doSomething x)
    (if (not (null? x))
        (begin 
            (display "Item=")
            (display (car x))
            (newline)
            (doSomething (cdr x)))))

Iteration is achieved by recursion.
(define (sum a b)
 (sum-iter a b 0))

(define (sum-iter index n sum)
   (if (= n index)
    (+ sum index) 
    (+  (sum-iter  n (+ index 1) (+ sum index)))
 )
for Item of Items loop
   Do_Something (Item);
end loop;
New implementation...
< > ⌨
programming-idioms.org 
(map doSomething items)
(define (doSomething x)
    (if (not (null? x))
        (begin 
            (display "Item=")
            (display (car x))
            (newline)
            (doSomething (cdr x)))))
(define (sum a b)
 (sum-iter a b 0))

(define (sum-iter index n sum)
   (if (= n index)
    (+ sum index) 
    (+  (sum-iter  n (+ index 1) (+ sum index)))
 )
for Item of Items loop
   Do_Something (Item);
end loop;
for (size_t i = 0; i < sizeof(items) / sizeof(items[0]); i++) {
	DoSomethingWith(&items[i]);
}
for (unsigned int i = 0 ; i < items_length ; ++i){
        Item* x = &(items[i]);
	DoSomethingWith(x);
}
items |> List.iter do_something
(map do-something items)
IDENTIFICATION DIVISION.
PROGRAM-ID. list.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 LIST.
   03 X OCCURS 5 TIMES
        INDEXED BY i PIC 9.
PROCEDURE  DIVISION.       
    PERFORM VARYING i FROM 1  BY 1 UNTIL i > 5
        DISPLAY X(i)
    END-PERFORM    
STOP RUN.
for(const auto &x : items) {
	doSomething(x);
}
foreach (var x in items)
{
    DoSomething(x);
}
items.each!(a => writeln(a))();
foreach(x; items) {
	doSomethingWith(x);
}
items.forEach(doSomething);
for x <- items do
  IO.inspect(x)
end
Enum.each(items, &IO.inspect/1)
[do_something(X) || X <- Items]
lists:foreach(fun do_something/1, Items).
elemental subroutine foo(x)
  real, intent(in) :: x
end subroutine foo

call foo(x)
for _, x := range items {
    doSomething(x)
}
items.each { doSomething(it) }
items.each { x -> doSomething(x) }
for(x in items) doSomething(x)
forM_ items doSomething

items.map(doSomething)
for (var i = 0; i<items.length; i++) {
  var x = items[i];
  doSomething(x);
}
for (const x of items) {
	doSomething(x);
}
items.forEach((x) => {
    doSomething(x);
});
items.forEach(doSomething)
T t;
Iterator<T> i = items.listIterator();
while (i.hasNext()) {
    t = i.next();
}
T t;
Iterator<T> i = items.iterator();
while (i.hasNext()) {
    t = i.next();
}
items.stream().forEach(item -> doSomething(item));
for (Item x: items) {
    doSomething(x);
}
for(int i=0;i<items.length;i++){
	doSomething( items[i] );
}
for (T x : items) {}
items.forEach(::doSomething)
items.forEach { doSomething(it) }
for (x in items) doSomething(x)
(map nil #'something items)
for _, x in ipairs(items) do
	print(x)
end
for (id x in items) _doSomething(x);
foreach ($items as $x){
    doSomething( $x );
}
array_map(func, $items);
for x in items do ;
do_something($_) for @items;
for my $x (@items) {
     do_something($x);
     more_stuffs($x);
}
f = lambda x: ...
for x in items: f(x)
[do_something(x) for x in items]
for x in items:
        doSomething( x )
items.each do |x|
  do_something( x )
end
items.each{|x| do_something( x )}
for x in items {
	do_something(x);
}
items.into_iter().for_each(|x| do_something(x));
for {
  x <- items
} doSomething(x)
items.foreach(doSomething)
items.foreach{doSomething(_)}
items do: [:x | x doSomething]
For Each x In items
    DoSomething(x)
Next