newfoundresearch · December 28, 2011 01:21
diff --git a/gistfile1.clj b/gistfile1.clj
 (defn t2 [ks]
   (persistent!
      (reduce
         (fn [m k] 
 	    (assoc! m k (* k 2)))
         (transient {})
 	 ks)))

 (def m (t2 (range 1 1e6)))



 OutOfMemoryError Java heap space  clojure.lang.PersistentHashMap$BitmapIndexedNode.assoc (PersistentHashMap.java:678)
	(defn t2 [ks]
	(persistent!
	(reduce
	(fn [m k]
	(assoc! m k (* k 2)))
	(transient {})
	ks)))

	(def m (t2 (range 1 1e6)))



	OutOfMemoryError Java heap space clojure.lang.PersistentHashMap$BitmapIndexedNode.assoc (PersistentHashMap.java:678)