w01fe · July 10, 2013 06:52
diff --git a/hiphip_dot_product.clj b/hiphip_dot_product.clj
 ;; 8.5 us for 10k doubles: 2.3 GFlops
 (require '[hiphip.double :as dbl])
 (defn dot-product [ws xs]
  (dbl/asum [x xs w ws] (* x w)))
	;; 8.5 us for 10k doubles: 2.3 GFlops
	(require '[hiphip.double :as dbl])
	(defn dot-product [ws xs]
	(dbl/asum [x xs w ws] (* x w)))