Another option (though Bens does look nicer!) (loop [xs (->> "00101110101110" (map vector (iterate inc 1)) (filter #(= (last %) \1)) (map first)) it nil] (let [steps (partition 2 1 xs) [i o] (split-with in-step steps)] (cond (every? empty? steps) (str it (first xs)) (empty? i) (recur (rest xs)(str it (first xs) ",")) :else (recur (last (split-at (count i) xs)) (str it (ffirst i) "-")))))
> -- You received this message because you are subscribed to the Google Groups "Clojure" group. To post to this group, send email to clojure@googlegroups.com Note that posts from new members are moderated - please be patient with your first post. To unsubscribe from this group, send email to clojure+unsubscr...@googlegroups.com For more options, visit this group at http://groups.google.com/group/clojure?hl=en --- You received this message because you are subscribed to the Google Groups "Clojure" group. To unsubscribe from this group and stop receiving emails from it, send an email to clojure+unsubscr...@googlegroups.com. For more options, visit https://groups.google.com/d/optout.