Thanks David. On Jul 17, 4:58 pm, David Nolen <[email protected]> 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 <[email protected]> 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 <[email protected]> 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 [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]<clojure%[email protected]> > > 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 [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
