Skip to content

Instantly share code, notes, and snippets.

@w01fe

w01fe/clj_dot_product.clj

Created July 10, 2013 06:48
Show Gist options
  • Save w01fe/5963969 to your computer and use it in GitHub Desktop.
Save w01fe/5963969 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
clj_dot_product.clj
;; 1ms for 10k doubles: 20 MFlops
(defn dot-product [^doubles ws ^doubles xs]
(reduce + (map * ws xs))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment