Thanks David. On Jul 17, 4:58 pm, David Nolen <dnolen.li...@gmail.com> wrote: > I tried this, it runs in about the same amount of time as it did for you. > > On Sat, Jul 17, 2010 at 7:17 PM, Carson <c.sci.b...@gmail.com> wrote: > > Hi David, > > Would appreciate if you could try out my attempt at this [1] on your > > machine. My machine ain't as fast as yours apparently... > > > [1] > > >https://groups.google.com/group/clojure/tree/browse_frm/thread/ee4169... > > > Thanks, > > Carson > > > On Jul 17, 4:04 pm, David Nolen <dnolen.li...@gmail.com> wrote: > > > (defn ^{:static true} convolve ^doubles [^doubles xs ^doubles is] > > > (let [xlen (count xs) > > > ilen (count is) > > > ys (double-array (dec (+ xlen ilen)))] > > > (dotimes [p xlen] > > > (dotimes [q ilen] > > > (let [n (+ p q), x (aget xs p), i (aget is q), y (aget ys n)] > > > (aset ys n (+ (* x i) y))))) > > > ys)) > > > > I don't think this is so bad and it can do a million points in ~400ms on > > my > > > machine. 100,000 points in ~25ms. I don't consider this dropping to the > > Java > > > level at all. > > > -- > > 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<clojure%2bunsubscr...@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
