mirror of
https://github.com/penpot/penpot.git
synced 2025-01-09 16:30:37 -05:00
31 lines
684 B
Clojure
31 lines
684 B
Clojure
(ns bench
|
|
(:require
|
|
[app.common.data :as d]
|
|
[app.common.data.macros :as dm]
|
|
[app.common.geom.point :as gpt]
|
|
[app.common.geom.shapes.rect :as gsr]
|
|
[app.common.perf :as perf]
|
|
[clojure.spec.alpha :as s]
|
|
[clojure.test.check.generators :as gen]))
|
|
|
|
(def points
|
|
(gen/sample (s/gen ::gpt/point) 20))
|
|
|
|
(defn bench-points
|
|
[]
|
|
#_(perf/benchmark
|
|
:f #(gpt/center-points-old points)
|
|
:samples 20
|
|
:max-iterations 500000
|
|
:name "base")
|
|
(perf/benchmark
|
|
:f #(gpt/center-points points)
|
|
:max-iterations 500000
|
|
:samples 20
|
|
:name "optimized"))
|
|
|
|
(defn main
|
|
[& [name]]
|
|
(case name
|
|
"points" (bench-points)
|
|
(println "available: points")))
|