Add PersistentArrayMap factory, sample maps

project.clj

@@ -5,8 +5,8 @@
   :source-path "src/clj/"
   :dependencies [[org.clojure/clojure "1.3.0"]
                  ;; locally built from
-                 ;; https://github.com/michalmarczyk/clojurescript/tree/reprecating-objmap-2
-                 [org.clojure/clojurescript "0.0-1110"]]
+                 ;; https://github.com/michalmarczyk/clojurescript/tree/reprecating-objmap-4
+                 [org.clojure/clojurescript "0.0-1125"]]
   :plugins [[lein-cljsbuild "0.1.7"]]
   :cljsbuild {:builds [{:source-path "src/cljs/"
                         :compiler {:output-to "phm.js"

src/cljs/phm.cljs

@@ -10,6 +10,9 @@
 (defn ^:export empty-persistent-hash-map []
   cljs.core.PersistentHashMap/EMPTY)
 
+(defn ^:export empty-persistent-array-map []
+  cljs.core.PersistentArrayMap/EMPTY)
+
 (defn ^:export assocwrapper [m k v]
   (assoc m k v))
 

src/cljs/phm/samples.cljs

@@ -0,0 +1,39 @@
+(ns phm.samples)
+
+(defn n->m [m n]
+  (apply assoc m (interleave (range n) (range n))))
+
+(defn n->phm [n]
+  (n->m cljs.core.PersistentHashMap/EMPTY n))
+
+(defn n->pam [n]
+  (n->m cljs.core.PersistentArrayMap/EMPTY n))
+
+(defn n->strm [m n]
+  (apply assoc m (interleave (map (partial str "foo") (range n)) (range n))))
+
+(defn n->strom [n]
+  (n->strm cljs.core.ObjMap/EMPTY n))
+
+(defn n->strphm [n]
+  (n->strphm cljs.core.PersistentHashMap/EMPTY n))
+
+(defn n->strpam [n]
+  (n->strphm cljs.core.PersistentArrayMap/EMPTY n))
+
+(def test-range (range 4 65 4))
+
+(def ^:export phms
+  (apply js-obj (mapcat (juxt identity n->phm) test-range)))
+
+(def ^:export pams
+  (apply js-obj (mapcat (juxt identity n->pam) test-range)))
+
+(def ^:export stroms
+  (apply js-obj (mapcat (juxt identity n->strom) test-range)))
+
+(def ^:export strphms
+  (apply js-obj (mapcat (juxt identity n->strphm) test-range)))
+
+(def ^:export strpams
+  (apply js-obj (mapcat (juxt identity n->strpam) test-range)))