clojure call performance

gistfile1.clj

(ns funcall_perf)

(defn len1a [^String foo] (.length foo))
(defn len1b [foo] (.length foo))
(defn len2a [^String foo] (count foo))
(defn len2b [foo] (count foo))

; warm up
(doseq [func [len1a len1b len2a len2b]]
       (dotimes [n 1000000]
                (func "asdf")))

(doseq [func [len1a len1b len2a len2b]]
       (time
         (dotimes [n 1000000]
                  (func "asdf"))))