ajmorgan
6/6/2014 - 6:02 AM

lazy-seq uses cons, use juxt

lazy-seq uses cons, use juxt

(defn pronounce [coll]
  (let [p (mapcat (juxt count first) (partition-by identity coll))]
    (lazy-seq (cons p (pronounce p)))))


; dude what??
(partial (comp next iterate)
         #(mapcat (juxt count first) (partition-by identity %)))