Thanks for look, I figured it was unlikely anyone could give me a solution, but it was late at night, clojure wasn't telling me anything, and I was kind of burnt out. I've been experimenting and trying to replicate the problem in a smaller program but all I've learned is that if I move the function now in my let to a defn(adding some new arguments since it's left the closure), it's the new function definition where my program freezes, and if I comment out the recur calls, my program compiles.
On Nov 1, 12:21 am, Meikel Brandmeyer <m...@kotka.de> wrote: > Hi, > > your code is really hard to understand. Please let let to be your > friend! I extracted things a little bit and put everything in a let. > Since I have no clue about collission detection in physics engines I > derived the local names from the operations done "i"nc, "d"ec, etc. > More meaningful names conveying domain information are left to the > astute reader as an excercise. ;-) > > You probably can replace defstruct with defrecord. defrecord will > supersede defstruct eventually. > > > (defstruct projection-struct :start :stop :start-points :stop-points) > > (println 1) > > Here you can use the type function. Also note: your method won't work. > Your dispatch function should match your methods in arity. It may take > more if they are "don't cares" for the dispatch. > > > (defmulti projection (fn [shape & _] (type shape))) > > (println 2) > > As I said, some cleanup with let (hopefully without messing things > up). Also you cannot "call" integers with vectors. You have to use > nth. > > > > > (defmethod projection :polygon > > [shape plane] > > (let [points (:points shape) > > npoints (int (count points)) > > dotp #(->> % (nth points) (dot plane)) > > search (fn [condition] > > (loop [accum (int 0) > > step npoints > > from (int -1)] > > (let [step (inc (/ step (int 2))) > > iaccum (+ accum step) > > daccum (- accum step) > > naccum (mod iaccum npoints) > > paccum (mod daccum npoints) > > dotp-accum (dotp accum) > > dotp-naccum (dotp naccum) > > dotp-paccum (dotp paccum) > > apoints (nth points accum) > > fpoints (nth points from)] > > (condp condition dotp-accum > > dotp-naccum (if (= from iaccum) > > [dotp-naccum [fpoints apoints]] > > (recur naccum step accum)) > > dotp-paccum (if (= from daccum) > > [dotp-paccum [fpoints apoints]] > > (recur paccum step accum)) > > [dotp-accum [apoints]])))) > > [start start-points] (search <=) > > [end end-points] (search >=)] > > (struct projection-struct start end start-points end-points))) > > (println 3) > > On 1 Nov., 01:10, Jarl Haggerty <fictivela...@gmail.com> wrote: > > > I've also redefined the math functions to work with vectors and > > matrices. > > Hmm.. I would suggest to stay away from such experiments until you > have a better understanding on Clojure. > > That all said: I don't have a problem for your real problem. I don't > see an obvious reason why the defmethod should hang. I would expect > some quirk in your environment from outside this code snippet. > > 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
