factor_benchmark.clj

(use 'penumbra.compute 'penumbra.app)

(with-gl
  (defmap generate
    (let [s (sin :index)]
      (normalize
        (float3 s (* 3.0 (cos :index)) (/ (* s s) 2.0)))))
  (defreduce find-max
    (max %1 %2))
  (dotimes [_ 100]
    (time (println (find-max (generate 5e6))))))