whoops...
(defn in-step [xs]
(let [[x1 x2] xs]
(= (- x2 x1) 1)))
On Monday, December 22, 2014 11:38:49 PM UTC-8, Tim wrote:
>
> 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.
