Data commit

Task/Associative-array-Creation/Ol/associative-array-creation.ol

@@ -0,0 +1,31 @@
+;;; empty associative array
+#empty
+; or short form
+#e
+
+;;; creating the new empty associative array
+(define empty-map #empty)
+
+;;; creating associative array with values
+(define my-map (pairs->ff '(
+   (1 . 100)
+   (2 . 200)
+   (7 . 777))))
+;;; or in short form (available from Ol version 2.1)
+(define my-map {
+   1 100
+   2 200
+   7 777})
+
+;;; add new key-value pair to the existing associative array
+(define my-new-map (put my-map 'the-key 'the-value))
+
+;;; print our arrays
+(print empty-map)
+; ==> #()
+
+(print my-map)
+; ==> #((1 . 100) (2 . 200) (7 . 777))
+
+(print my-new-map)
+; ==> #((1 . 100) (2 . 200) (7 . 777) (the-key . the-value))