AU
Size: a a a
AU
VL
VL
VL
VL
AU
VL
I
VG
KR
VG
VL
IG
IG
(defn find-first [pred coll]
(some (fn [x]
(when (pred x)
x)) coll))
(time
(dotimes [_ 10000]
(first (filter int? [1 nil nil]))))
"Elapsed time: 7.419166 msecs"
(time
(dotimes [_ 10000]
(find-first int? [1 nil nil])))
"Elapsed time: 3.470836 msecs"
GA
GA
GA
GA