Meikel,
What is the gain of using lazy-seq here? Why can't we go without laziness?
(defn group
[s]
(when-let [s (seq s)]
(let [f (first s)
[fs & r] (split-with #(= % f) s)]
(cons fs (group r)))))
Regards,
Emeka
On Mon, Nov 9, 2009 at 4:44 PM, Emeka <[email protected]> wrote:
> Meikel,
>
> Is like you over engineered your version?
> (defn group
> [s]
> (lazy-seq
> (when-let [s (seq s)]
> (let [f (first s)
> [fs & r] (split-with #(= % f) s)]
> (cons fs (group r))))))
> Should be ..
>
> (defn group
> [s]
> (lazy-seq
> (when-let [s (seq s)]
> (let [f (first s)
> [fs r] (split-with #(= % f) s)]
> (cons fs (group r))))))
>
> &
>
> Regards,
> Emeka
>
>>
>>
>
--~--~---------~--~----~------------~-------~--~----~
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
-~----------~----~----~----~------~----~------~--~---
