take 从列表中获取子列表
into a b 把b conj 到a中
(defn count-a-seq [lat] (reduce (fn [x y] (+ x 1)) 0 lat))
reduce 将list通过fn一个个合并成一个，当然也可以只是对每个进行+1
clojure学习记录
原文：http://www.cnblogs.com/TLightSky/p/4127418.html
