Data update

Task/Associative-array-Iteration/EMal/associative-array-iteration.emal

@@ -1,15 +1,11 @@
-Map map = text%text["Italy" => "Rome", "France" => "Paris"]
+Map map ← text%text["Italy" ⇒ "Rome", "France" ⇒ "Paris"]
 map.insert("Germany", "Berlin")
-map["Spain"] = "Madrid"
+map["Spain"] ← "Madrid"
 writeLine("== pairs ==")
 for each Pair pair in map
   writeLine(pair)
 end
 writeLine("== keys ==")
-for each text key in map.keys()
-  writeLine(key)
-end
+for each text key in map.keys() do writeLine(key) end
 writeLine("== values ==")
-for each text value in map.values()
-  writeLine(value)
-end
+map.values().list(<text value|writeLine(value))

Task/Associative-array-Iteration/NewLISP/associative-array-iteration-1.l

@@ -9,4 +9,4 @@
 
 ;; loop over the assocation list:
 (dolist (elem alist)
-  (println (format "%s -> %s" (first elem) (last elem))))
+  (println (format "%s -> %s" elem)))

Task/Associative-array-Iteration/NewLISP/associative-array-iteration-2.l

@@ -0,0 +1,24 @@
+(macro (ainc! Alist Key Value Function (Deflt 0))
+  (local (E-Message K Val Func)
+    (setq K Key)
+    (setq Func Function)
+    (if (true? Func)
+      (setq Val Value)
+      (begin (setq Func +) (setq Val (or Value 1))))
+    (unless
+      (catch
+        (setf (assoc K Alist)
+          (list ($it 0) (Func Val ($it 1))))
+        'E-Message)
+      (if (starts-with E-Message "ERR: no reference")
+        (setf Alist (cons (list K (Func Val Deflt)) Alist))
+        (throw-error E-Message)))))
+
+(setq alist '())
+(ainc! alist 'b 22)
+(ainc! alist 'b)
+(ainc! alist 'name "Fred" or)
+(ainc! alist 'letters 'h cons '())
+(ainc! alist 'letters 'o cons)
+
+(println alist)

Task/Associative-array-Iteration/NewLISP/associative-array-iteration-3.l

@@ -0,0 +1,2 @@
+(dolist (e alist)
+  (println (format "key: %-9s  val: %s" (map string e))))

Task/Associative-array-Iteration/NewLISP/associative-array-iteration-4.l

@@ -0,0 +1,2 @@
+(dolist (k (map first alist))
+  (println k))

Task/Associative-array-Iteration/NewLISP/associative-array-iteration-5.l

@@ -0,0 +1,2 @@
+(dolist (v (map last alist))
+  (println v))