kedu Wrexsoul
user=> (count-more-than? 0 ())
true
(defn count-more-than? [n xs]
(if (not (seq xs))
(or (zero? n)
(recur (dec n) (rest xs)))))
I'm afraid your code didn't return true for me. Just look at your code, (seq
'()) will always give nil, so your code will return nil and not true. To get
true from your code I guess the (seq xs) should be changed to (not (seq
xs)).
Or am I missing something?
Emeka
On Sat, Jun 13, 2009 at 6:02 PM, Wrexsoul <d2387...@bsnow.net> wrote:
>
> On Jun 12, 9:44 pm, James Reeves <weavejes...@googlemail.com> wrote:
> > (defn count-more-than? [n xs]
> > (or (zero? n)
> > (if (seq xs)
> > (recur (dec n) (rest xs)))))
> >
> > (defn interesting? [pixels c]
> > (count-more-than? c (filter in-interval? pixels)))
>
> Nice, but
>
> user=> (count-more-than? 0 ())
> true
>
> (defn count-more-than? [n xs]
> (if (seq xs)
> (or (zero? n)
> (recur (dec n) (rest xs)))))
>
> seems to work. :)
> >
>
--~--~---------~--~----~------------~-------~--~----~
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
-~----------~----~----~----~------~----~------~--~---
