Just another update

Task/Associative-array-Iteration/Scheme/associative-array-iteration-1.ss

@@ -0,0 +1,11 @@
+;; Create an associative array (hash-table) whose keys are strings:
+(define table (hash-table 'string=?
+  '("hello" . 0) '("world" . 22) '("!" . 999)))
+
+;; Iterate over the table, passing the key and the value of each entry
+;; as arguments to a function:
+(hash-table-for-each
+  table
+  ;; Create by "partial application" a function that accepts 2 arguments,
+  ;; the key and the value:
+  (pa$ format #t "Key = ~a, Value = ~a\n"))

Task/Associative-array-Iteration/Scheme/associative-array-iteration-2.ss

@@ -0,0 +1,11 @@
+;; Iterate over the table and create a list of the keys and the
+;; altered values:
+(hash-table-map
+  table
+  (lambda (key val) (list key (+ val 5000))))
+
+;; Create a new table that has the same keys but altered values.
+(use gauche.collection)
+(map-to <hash-table>
+  (lambda (k-v) (cons (car k-v) (+ (cdr k-v) 5000)))
+  table)