2011/9/14 Meikel Brandmeyer <m...@kotka.de>

> Hi,
>
> Am 14.09.2011 um 16:54 schrieb octopusgrabbus:
>
> > (defn skl
> >   [tree]
> >   (map skl (filter seq? tree)))
> >
>
> Is that what you want?
>
> (defn skl
>  [tree]
>  (loop [output []
>         tree   (seq tree)]
>    (if tree
>      (let [fst (first tree)]
>        (if (seq? fst)
>          (recur (conj output (skl fst)) (next tree))
>          (recur output (next tree))))
>      output)))
>
>
Hi Meikel,

I haven't paid enough attention to be sure not to say nonsense, but by
seeing in your code a recursive call to skl makes me think the code still
can blow up the stack ?

Sincerely,

-- Laurent


> Sincerely
> Meikel
>
> --
> 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 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

Reply via email to