mnzk · May 27, 2012 06:23
diff --git a/make-coll.clj b/make-coll.clj
 (defn make-coll
  [c n init]
  (let [s (repeat n init)]
    (if (instance? String c)
      (apply str s)
      (into (empty c) s))))

 (make-coll [] 5 'a)   ;=> [a a a a a]
 (make-coll '() 5 'a)  ;=> (a a a a a)
 (make-coll "" 5 'a)   ;=> "aaaaa"
	(defn make-coll
	[c n init]
	(let [s (repeat n init)]
	(if (instance? String c)
	(apply str s)
	(into (empty c) s))))

	(make-coll [] 5 'a) ;=> [a a a a a]
	(make-coll '() 5 'a) ;=> (a a a a a)
	(make-coll "" 5 'a) ;=> "aaaaa"