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

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

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