Add tasks for all the new languages

Task/Loops-Foreach/Apex/loops-foreach.apex

@@ -0,0 +1,5 @@
+Integer[] myInts = new Integer[]{1, 2, 3, 4, 5, 6, 7, 8, 9, 10};
+
+for (Integer i : myInts) {
+    System.debug(i);
+}

Task/Loops-Foreach/ERRE/loops-foreach.erre

@@ -0,0 +1,4 @@
+      FOR INDEX$=("The","quick","brown","fox","jumps","over","the","lazy","dog.") DO
+        PRINT(INDEX$;" ";)
+      END FOR
+      PRINT

Task/Loops-Foreach/EchoLisp/loops-foreach.echolisp

@@ -0,0 +1,13 @@
+(define my-list '( albert simon antoinette))
+(for ((h my-list)) (write h))
+    albert simon antoinette
+
+(define my-vector #(55 66 soixante-dix-sept))
+(for (( u my-vector)) (write u))
+    55 66 soixante-dix-sept
+
+(define my-string "Longtemps")
+(for ((une-lettre my-string)) (write une-lettre))
+    "L" "o" "n" "g" "t" "e" "m" "p" "s"
+
+;; etc ... for other collections like Streams, Hashes, Graphs, ...

Task/Loops-Foreach/FreeBASIC/loops-foreach.freebasic

@@ -0,0 +1,18 @@
+' FB 1.05.0
+
+' FreeBASIC doesn't have a foreach loop but it's easy to manufacture one using macros
+
+#Macro ForEach(I, A)
+For _i as integer = LBound(A) To UBound(A)
+#Define I (A(_i))
+#EndMacro
+
+#Define In ,
+
+Dim a(-5 To 5) As Integer = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11}
+ForEach(i in a)
+  Print i; " ";
+Next
+
+Print
+Sleep

Task/Loops-Foreach/LFE/loops-foreach.lfe

@@ -0,0 +1,4 @@
+(lists:foreach
+  (lambda (x)
+    (io:format "item: ~p~n" (list x)))
+  (lists:seq 1 10))

Task/Loops-Foreach/Lasso/loops-foreach-1.lasso

@@ -0,0 +1 @@
+array(1,2,3) => foreach { stdoutnl(#1) }

Task/Loops-Foreach/Lasso/loops-foreach-2.lasso

@@ -0,0 +1 @@
+with i in array(1,2,3) do { stdoutnl(#i) }

Task/Loops-Foreach/Lingo/loops-foreach-1.lingo

@@ -0,0 +1,4 @@
+days = ["monday", "tuesday", "wednesday", "thursday", "friday", "saturday", "sunday"]
+repeat with day in days
+  put day
+end repeat

Task/Loops-Foreach/Lingo/loops-foreach-2.lingo

@@ -0,0 +1,13 @@
+----------------------------------------
+-- One of the five native iterative methods defined in ECMAScript 5
+-- @param {list} tList
+-- @param {symbol} cbFunc
+-- @param {object} [cbObj=_movie]
+----------------------------------------
+on forEach (tList, cbFunc, cbObj)
+  if voidP(cbObj) then cbObj = _movie
+  cnt = tList.count
+  repeat with i = 1 to cnt
+    call(cbFunc, cbObj, tList[i], i, tList)
+  end repeat
+end

Task/Loops-Foreach/Lingo/loops-foreach-3.lingo

@@ -0,0 +1,2 @@
+days = ["monday", "tuesday", "wednesday", "thursday", "friday", "saturday", "sunday"]
+forEach(days, #alert, _player)

Task/Loops-Foreach/LiveCode/loops-foreach.livecode

@@ -0,0 +1,4 @@
+repeat for each item x in "red, green, blue"
+    put x & cr
+    --wait 100 millisec  -- req'd if you want to see in the LC Message Box (akin to repl)
+end repeat

Task/Loops-Foreach/Nim/loops-foreach.nim

@@ -0,0 +1,6 @@
+var list: seq[string] = @[]
+list.add("lorem")
+list.add("ipsum")
+list.add("dolor")
+for i in items(list):
+  echo(i)

Task/Loops-Foreach/Oforth/loops-foreach-1.oforth

@@ -0,0 +1 @@
+: printMonths | m | Date.Months forEach: m [ m . ] ;

Task/Loops-Foreach/Oforth/loops-foreach-2.oforth

@@ -0,0 +1 @@
+#. Date.Months apply

Task/Loops-Foreach/PHL/loops-foreach.phl

@@ -0,0 +1,5 @@
+var numbers = 1..10;
+
+numbers each # (number) [
+    printf("%i\n", number);
+];

Task/Loops-Foreach/Phix/loops-foreach.phix

@@ -0,0 +1,4 @@
+sequence s = {-2,"field",3.14159268979,{"this","that"}}
+for i=1 to length(s) do
+    ?s[i]
+end for

Task/Loops-Foreach/Ring/loops-foreach.ring

@@ -0,0 +1,4 @@
+aList = "Welcome to the Ring Programming Language"
+for n in aList
+    see n + nl
+next

Task/Loops-Foreach/Sidef/loops-foreach-1.sidef

@@ -0,0 +1,3 @@
+foreach [1,2,3] { |i|
+    say i
+}

Task/Loops-Foreach/Sidef/loops-foreach-2.sidef

@@ -0,0 +1,3 @@
+for i in [1,2,3] {
+    say i
+}

Task/Loops-Foreach/Sidef/loops-foreach-3.sidef

@@ -0,0 +1,3 @@
+[1,2,3].each { |i|
+    say i
+}

Task/Loops-Foreach/Sparkling/loops-foreach.sparkling

@@ -0,0 +1,4 @@
+let hash = { "foo": 42, "bar": 1337, "baz": "qux" };
+foreach(hash, function(key, val) {
+    print(key, " -> ", val);
+});

Task/Loops-Foreach/Swift/loops-foreach-1.swift

@@ -0,0 +1,3 @@
+for i in [1,2,3] {
+   print(i)
+}

Task/Loops-Foreach/Swift/loops-foreach-2.swift

@@ -0,0 +1,3 @@
+[1,2,3].forEach {
+   print($0)
+}

Task/Loops-Foreach/Wart/loops-foreach.wart

@@ -0,0 +1,2 @@
+each x '(1 2 3)
+  prn x

Task/Loops-Foreach/XLISP/loops-foreach.xlisp

@@ -0,0 +1 @@
+(FOR-EACH PRINT '(CYRUS CAMBYSES DARIUS XERXES ARTAXERXES))

Task/Loops-Foreach/jq/loops-foreach-1.jq

@@ -0,0 +1 @@
+def example: [1,2];

Task/Loops-Foreach/jq/loops-foreach-2.jq

@@ -0,0 +1,2 @@
+example | .[]
+# or equivalently: example[]

Task/Loops-Foreach/jq/loops-foreach-3.jq

@@ -0,0 +1,2 @@
+{"a":1, "b":2} | .[]
+# or equivalently: {"a":1, "b":2}[]

Task/Loops-Foreach/jq/loops-foreach-4.jq

@@ -0,0 +1 @@
+example | . as $a | range(0; length) | $a[.]

Task/Loops-Foreach/jq/loops-foreach-5.jq

@@ -0,0 +1 @@
+ {"a":1, "b":2} | . as $o | keys | map( [., $o[.]] )

Task/Loops-Foreach/jq/loops-foreach-6.jq

@@ -0,0 +1,3 @@
+"abc" | . as $s | range(0;length) | $s[.:.+1]
+
+"abc" | explode | map( [.]|implode) | .[]