(defn mycount [foo acc]
  (if (seq foo)
    (recur (rest foo) (inc acc))
    acc))

(def mseq '(4 5 6))
(mycount mseq 0)

Generated by matt using scpaste at Sat Jul 16 14:34:18 2011. HADT. (original)