w01fe · December 19, 2015 13:40
diff --git a/hiphip_add_in_place.clj b/hiphip_add_in_place.clj
 (defn add-in-place! 
  "Modify xs, incrementing each element by the corresponding element of ys"
  [xs ys]
  (dbl/afill! [x xs y ys] (+ x y)))

 (defn pointwise-product 
  "Produce a new double array with the product of corresponding elements of xs and ys"
  [xs ys]
  (dbl/amap [x xs y ys] (* x y)))
	(defn add-in-place!
	"Modify xs, incrementing each element by the corresponding element of ys"
	[xs ys]
	(dbl/afill! [x xs y ys] (+ x y)))

	(defn pointwise-product
	"Produce a new double array with the product of corresponding elements of xs and ys"
	[xs ys]
	(dbl/amap [x xs y ys] (* x y)))