Skip to content

Instantly share code, notes, and snippets.

@w01fe

w01fe/clj_areduce_dot_product.clj

Last active December 19, 2015 13:39
Show Gist options
  • Save w01fe/5963975 to your computer and use it in GitHub Desktop.
Save w01fe/5963975 to your computer and use it in GitHub Desktop.
Download ZIP
clj_areduce_dot_product.clj
Raw
clj_areduce_dot_product.clj
;; 8.5 us for 10k doubles: 2.3 GFlops
;; (11 us with *unchecked-math* false)
(defn dot-product [^doubles ws ^doubles xs]
(areduce xs i ret 0.0
(+ ret (* (aget xs i)
(aget ws i)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment