vireshas · July 5, 2018 08:51
diff --git a/bad_code.clj b/bad_code.clj
 (def path ["abc" "def" "xyz" "ref" "fed"])

 (defn a []
  (->> path
  (interpose "/")
  (into ["/"])                 
  (apply str)))

 (defn b []
  (str "/" (clojure.string/join #"/" path)))

 (defn timer [f]
  (let [_ (time (repeat 1000000 f))]))

 (timer a)
 (timer b)
	(def path ["abc" "def" "xyz" "ref" "fed"])

	(defn a []
	(->> path
	(interpose "/")
	(into ["/"])
	(apply str)))

	(defn b []
	(str "/" (clojure.string/join #"/" path)))

	(defn timer [f]
	(let [_ (time (repeat 1000000 f))]))

	(timer a)
	(timer b)