(defn bishop-moves [x y]
(let [xmax 8 ymax 8]
(run* [q]
(fresh [a b]
(< a xmax)
(< b ymax)
(= (Math/abs (- x a))
(Math/abs (- y b)))
(== q [a b])))))
thanks in advance,
Jim
--
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
caution! logic noob question following...why does the following fail?
can anyone help with this? the stack trace is not very helpful!
- why would this fail in core.logic? Jim - FooBar();
- Re: why would this fail in core.logic? cej38
- Re: why would this fail in core.logic? Baishampayan Ghose
- Re: why would this fail in core.logic? David Nolen
- Re: why would this fail in core.logic? Jim - FooBar();
- Re: why would this fail in core.logic? Moritz Ulrich
- Re: why would this fail in core.logic? Jim - FooBar();
- Re: why would this fail in core.l... Jim - FooBar();
- Re: why would this fail in co... David Nolen
- Re: why would this fail i... Jim - FooBar();
- Re: why would this fail i... Jim - FooBar();
