YAPC::EU 2018 Glasgow Update!

Task/Associative-array-Iteration/8th/associative-array-iteration-1.8th

@@ -0,0 +1,3 @@
+{"one": 1, "two": "bad"}
+( swap . space . cr )
+m:each

Task/Associative-array-Iteration/8th/associative-array-iteration-2.8th

@@ -0,0 +1,3 @@
+{"one": 1, "two": "bad"} m:keys
+( . cr )
+a:each

Task/Associative-array-Iteration/Common-Lisp/associative-array-iteration-6.lisp

@@ -1,7 +1,4 @@
 ;; Project : Associative array/Iteration
-;; Date    : 2018/03/08
-;; Author : Gal Zsolt [~ CalmoSoft ~]
-;; Email   : <calmosoft@gmail.com>
 
 (setf x (make-array '(3 2)
            :initial-contents '(("hello" 13 ) ("world" 31) ("!" 71))))

Task/Associative-array-Iteration/Elena/associative-array-iteration-1.elena

@@ -2,7 +2,7 @@ import system'collections.
 import system'routines.
 import extensions.
 
-public program =
+public program
 [
     // 1. Create
     var aMap := Dictionary new.
@@ -15,4 +15,4 @@ public program =
     // Enumerate
     aMap forEach
         (:aKeyValue)[ console printLine(aKeyValue key," : ",aKeyValue value) ].
-].
+]

Task/Associative-array-Iteration/Elena/associative-array-iteration-2.elena

@@ -0,0 +1,18 @@
+import system'collections.
+import system'routines.
+import extensions.
+
+public program
+[
+    // 1. Create
+    auto aMap := Map<literal,literal>().
+    aMap["key"] := "foox".
+    aMap["key"] := "foo".
+    aMap["key2"]:= "foo2".
+    aMap["key3"]:= "foo3".
+    aMap["key4"]:= "foo4".
+
+    // Enumerate
+    aMap forEach
+        (:tuple)[ console printLine(tuple item1," : ",tuple item2) ].
+]

Task/Associative-array-Iteration/Ring/associative-array-iteration.ring

@@ -1,7 +1,4 @@
 # Project : Associative array/Iteration
-# Date    : 2017/10/22
-# Author : Gal Zsolt (~ CalmoSoft ~)
-# Email   : <calmosoft@gmail.com>
 
 lst = [["hello", 13], ["world", 31], ["!", 71]]
 for n = 1 to len(lst)