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 <[email protected]> wrote:
>
> On Jun 12, 9:44 pm, James Reeves <[email protected]> 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 [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
-~----------~----~----~----~------~----~------~--~---
