Data update

Task/Loops-Foreach/Ada/loops-foreach-1.adb

@@ -0,0 +1,14 @@
+with Ada.Integer_Text_IO;
+use  Ada.Integer_Text_IO;
+
+procedure For_Each is
+
+   A : array (1..5) of Integer := (-1, 0, 1, 2, 3);
+
+begin
+
+   for Num in A'Range loop
+      Put( A (Num) );
+   end loop;
+
+end For_Each;

Task/Loops-Foreach/Ada/loops-foreach-2.adb

@@ -0,0 +1,3 @@
+   for Item of A loop
+      Put( Item );
+   end loop;

Task/Loops-Foreach/Ada/loops-foreach-3.adb

@@ -0,0 +1,25 @@
+with Ada.Integer_Text_IO, Ada.Containers.Doubly_Linked_Lists;
+use  Ada.Integer_Text_IO, Ada.Containers;
+
+procedure Doubly_Linked_List is
+
+   package DL_List_Pkg is new Doubly_Linked_Lists (Integer);
+   use     DL_List_Pkg;
+
+   procedure Print_Node (Position : Cursor) is
+   begin
+      Put (Element (Position));
+   end Print_Node;
+
+   DL_List : List;
+
+begin
+
+   DL_List.Append (1);
+   DL_List.Append (2);
+   DL_List.Append (3);
+
+   -- Iterates through every node of the list.
+   DL_List.Iterate (Print_Node'Access);
+
+end Doubly_Linked_List;

Task/Loops-Foreach/Ada/loops-foreach-4.adb

@@ -0,0 +1,25 @@
+with Ada.Integer_Text_IO, Ada.Containers.Vectors;
+use  Ada.Integer_Text_IO, Ada.Containers;
+
+procedure Vector_Example is
+
+   package Vector_Pkg is new Vectors (Natural, Integer);
+   use     Vector_Pkg;
+
+   procedure Print_Element (Position : Cursor) is
+   begin
+      Put (Element (Position));
+   end Print_Element;
+
+   V : Vector;
+
+begin
+
+   V.Append (1);
+   V.Append (2);
+   V.Append (3);
+
+   -- Iterates through every element of the vector.
+   V.Iterate (Print_Element'Access);
+
+end Vector_Example;

Task/Loops-Foreach/COBOL/loops-foreach.cob

@@ -0,0 +1,6 @@
+01  things occurs 3.
+...
+set content of things to ("Apple", "Banana", "Coconut")
+perform varying thing as string through things
+    display thing
+end-perform

Task/Loops-Foreach/Chapel/loops-foreach.chpl

@@ -0,0 +1,2 @@
+var food = ["Milk", "Bread", "Butter"];
+for f in food do writeln(f);

Task/Loops-Foreach/Crystal/loops-foreach.cr

@@ -0,0 +1,8 @@
+# each with block
+[1, 2, 3].each do |elt|
+  print elt
+end
+puts
+# each returning an iterator
+it = [1, 2, 3].each
+print it.next, it.next, it.next, it.next

Task/Loops-Foreach/Emacs-Lisp/loops-foreach-1.el

@@ -0,0 +1,2 @@
+(dolist (x '(1 2 3 4))
+  (message "x=%d" x))

Task/Loops-Foreach/Emacs-Lisp/loops-foreach-2.el

@@ -0,0 +1,3 @@
+(mapc (lambda (x)
+        (message "x=%d" x))
+      '(1 2 3 4))

Task/Loops-Foreach/Emacs-Lisp/loops-foreach-3.el

@@ -0,0 +1 @@
+(cl-loop for x in '(1 2 3 4) do (message "x=%d" x))

Task/Loops-Foreach/Euphoria/loops-foreach.eu

@@ -0,0 +1,24 @@
+include std/console.e
+
+sequence s = {-2,-1,0,1,2}  --print elements of a numerical list
+for i = 1 to length(s) do
+	? s[i]
+end for
+
+puts(1,'\n')
+
+s = {"Name","Date","Field1","Field2"} -- print elements of a list of 'strings'
+for i = 1 to length(s) do
+	printf(1,"%s\n",{s[i]})
+end for
+
+puts(1,'\n')
+
+for i = 1 to length(s) do  -- print subelements of elements of a list of 'strings'
+	for j = 1 to length(s[i]) do
+		printf(1,"%s\n",s[i][j])
+	end for
+	puts(1,'\n')
+end for
+
+if getc(0) then end if

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

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

Task/Loops-Foreach/Jactl/loops-foreach.jactl

@@ -0,0 +1,2 @@
+def list = ['a','b','c','d','e']
+list.each{ println it }

Task/Loops-Foreach/PowerShell/loops-foreach.ps1

@@ -0,0 +1,7 @@
+$colors = "Black","Blue","Cyan","Gray","Green","Magenta","Red","White","Yellow",
+          "DarkBlue","DarkCyan","DarkGray","DarkGreen","DarkMagenta","DarkRed","DarkYellow"
+
+foreach ($color in $colors)
+{
+    Write-Host "$color" -ForegroundColor $color
+}

Task/Loops-Foreach/ReScript/loops-foreach.res

@@ -0,0 +1,3 @@
+let fruits = ["apple", "banana", "coconut"]
+
+Js.Array2.forEach(fruits, f => Js.log(f))

Task/Loops-Foreach/Rebol/loops-foreach.rebol

@@ -0,0 +1,13 @@
+REBOL [
+	Title: "Loop/Foreach"
+	URL: http://rosettacode.org/wiki/Loop/Foreach
+]
+
+names: [Sork Gun Blues Neds Thirst Fright Catur]
+
+foreach name names [prin join name "day "]  print ""
+
+; Rebol also has the 'forall' construct, which provides the rest of
+; the list from the current position.
+
+forall names [prin join names/1 "day "]  print ""

Task/Loops-Foreach/Rye/loops-foreach.rye

@@ -0,0 +1 @@
+for { 1 2 4 } { .print }

Task/Loops-Foreach/VBScript/loops-foreach.vbs

@@ -0,0 +1,5 @@
+items = Array("Apple", "Orange", "Banana")
+
+For Each x In items
+    WScript.Echo x
+Next