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 wrote:
> Her
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 b
