I must clarify my question: I need the longest INITIAL sequence where
the items are sequential.
One solution offered by "cgrand" at stackoverflow is
(defn longest-initial-sequence [[x :as s]]
(take-while identity (map #(#{%1} %2) s (iterate inc x))))
On Apr 27, 2:59 pm, CuppoJava <[email protected]> wrote:
> Here's an attempt, but it's not my best work. =)
>
> (def temp [2 3 4 6 8 1])
>
> (let [l (filter identity
> (for [[a b c] (map vector temp (rest temp))]
> (if (= (- b a) 1)
> a
> nil)))]
> (concat l [(+ (last l) 1)]))
>
> -Patrick
>
> --
> You received this message because you are subscribed to the Google
> Groups "Clojure" group.
> To post to this group, send email to [email protected]
> Note that posts from new members are moderated - please be patient with your
> first post.
> To unsubscribe from this group, send email to
> [email protected]
> For more options, visit this group
> athttp://groups.google.com/group/clojure?hl=en
--
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to [email protected]
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
