Another update from ingydotnet^djgoku

Task/Loops-Foreach/AppleScript/loops-foreach.applescript

@@ -0,0 +1,3 @@
+repeat with fruit in {"Apple", "Orange", "Banana"}
+  log contents of fruit
+end repeat

Task/Loops-Foreach/Batch-File/loops-foreach-1.bat

@@ -0,0 +1,4 @@
+@echo off
+for %%A in (This is a sample collection) do (
+     echo %%A
+)

Task/Loops-Foreach/Batch-File/loops-foreach-2.bat

@@ -0,0 +1,5 @@
+@echo off
+set "collection=This is a sample collection"
+for %%A in (%collection%) do (
+     echo %%A
+)

Task/Loops-Foreach/Ela/loops-foreach.ela

@@ -0,0 +1,6 @@
+open monad io
+
+each [] = do return ()
+each (x::xs) = do
+  putStrLn $ show x
+  each xs

Task/Loops-Foreach/Elixir/loops-foreach.elixir

@@ -0,0 +1,9 @@
+iex(1)> list = [1,3.14,"abc",[3],{0,5}]
+[1, 3.14, "abc", [3], {0, 5}]
+iex(2)> Enum.each(list, fn x -> IO.inspect x end)
+1
+3.14
+"abc"
+[3]
+{0, 5}
+:ok

Task/Loops-Foreach/Haxe/loops-foreach.haxe

@@ -1 +1,4 @@
-for(i in 1...10) Sys.println(i);
+var a = [1, 2, 3, 4];
+
+for(i in a)
+    Sys.println(i);

Task/Loops-Foreach/JavaScript/loops-foreach-1.js

@@ -1,3 +1,5 @@
-for (var a in o) {
-    print(o[a]);
-}
+"alpha beta gamma delta".split(' ').forEach(
+  function (x) {
+    console.log(x);
+  }
+);

Task/Loops-Foreach/JavaScript/loops-foreach-2.js

@@ -1,5 +1,5 @@
-for (var a in o) {
-    if (o.hasOwnProperty(a)) {
-        print(o[a]);
-    }
-}
+console.log("alpha beta gamma delta".split(' ').map(
+  function (x) {
+    return x.toUpperCase(x);
+  }
+).join('\n'));

Task/Loops-Foreach/JavaScript/loops-foreach-3.js

@@ -1,14 +1,7 @@
-h = {"one":1, "two":2, "three":3}
-for (x in h) print(x);
-/*
-two
-one
-three
-*/
-
-for each (y in h) print(y);
-/*
-2
-1
-3
-*/
+console.log(
+  "alpha beta gamma delta".split(' ').reduce(
+    function (a, x, i, lst) {
+      return lst.length - i + '. ' + x + '\n' + a;
+    }, ''
+  )
+)

Task/Loops-Foreach/JavaScript/loops-foreach-4.js

@@ -1,14 +1,3 @@
-h = {"one":1, "two":2, "three":3}
-for (x in h) print(x);
-/*
-two
-one
-three
-*/
-
-for (y of h) print(y);
-/*
-2
-1
-3
-*/
+for (var a in o) {
+    print(o[a]);
+}

Task/Loops-Foreach/JavaScript/loops-foreach-5.js

@@ -0,0 +1,5 @@
+for (var a in o) {
+    if (o.hasOwnProperty(a)) {
+        print(o[a]);
+    }
+}

Task/Loops-Foreach/JavaScript/loops-foreach-6.js

@@ -0,0 +1,14 @@
+h = {"one":1, "two":2, "three":3}
+for (x in h) print(x);
+/*
+two
+one
+three
+*/
+
+for each (y in h) print(y);
+/*
+2
+1
+3
+*/

Task/Loops-Foreach/JavaScript/loops-foreach-7.js

@@ -0,0 +1,14 @@
+h = {"one":1, "two":2, "three":3}
+for (x in h) print(x);
+/*
+two
+one
+three
+*/
+
+for (y of h) print(y);
+/*
+2
+1
+3
+*/

Task/Loops-Foreach/Perl-6/loops-foreach-3.pl6

@@ -0,0 +1,2 @@
+.say for @collection;
+for @collection { .say };

Task/Loops-Foreach/Perl-6/loops-foreach-4.pl6

@@ -0,0 +1,2 @@
+@collection>>.say;
+@collection>>.=&infix:<+>(2); # increment each element by 2

Task/Loops-Foreach/Rust/loops-foreach-1.rust

@@ -0,0 +1,4 @@
+let collection = vec![1,2,3,4,5];
+for elem in collection {
+    println!("{}", elem);
+}

Task/Loops-Foreach/Rust/loops-foreach-2.rust

@@ -0,0 +1,14 @@
+let mut collection = vec![1,2,3,4,5];
+for mut_ref in &mut collection {
+// alternatively:
+// for mut_ref in collection.iter_mut() {
+    *mut_ref *= 2;
+    println!("{}", *mut_ref);
+}
+
+// immutable borrow
+for immut_ref in &collection {
+// alternatively:
+// for immut_ref in collection.iter() {
+    println!("{}", *immut_ref);
+}

Task/Loops-Foreach/SETL/loops-foreach.setl

@@ -0,0 +1,4 @@
+S := {1,2,3,5,8,13,21,34,55,89};
+for e in S loop
+    print(e);
+end loop;

Task/Loops-Foreach/Scilab/loops-foreach.scilab

@@ -0,0 +1,3 @@
+for e=["a","b","c"]
+    printf("%s\n",e)
+end

Task/Loops-Foreach/Self/loops-foreach.self

@@ -0,0 +1 @@
+aCollection do: [| :element | element printLine ].