Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-13 02:28:18 -05:00
Code Issues Activity

Add intervaltree related code to experiments/bench environment script.

Browse source
This commit is contained in:
Andrey Antukh 2016-06-07 22:04:10 +03:00
parent 9d5ba9d731
commit 9c7fb455a6
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
1 changed files with 23 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
dev/bench/core.cljs
View file

@ -1,5 +1,6 @@
(ns bench.core
(:require [kdtree.core :as k]
[intervaltree.core :as it]
[cljs.pprint :refer (pprint)]
[cljs.nodejs :as node]))
@ -76,6 +77,25 @@
(pprint (js->clj (.nearest tree #js [1742 1420] 6)))
))
(defn test-interval
[]
(let [tree (doto (it/create)
(.add #js [1 5])
(.add #js [5 7])
(.add #js [-4 -1])
(.add #js [-10 -3])
(.add #js [-20 -10])
(.add #js [20 30])
(.add #js [3 9])
(.add #js [100 200])
(.add #js [1000 2000])
(.add #js [6 9])
)]
(js/console.dir tree #js {"depth" nil})
(js/console.log "contains", 4, (.contains tree 4))
(js/console.log "contains", 0, (.contains tree 0))
))
(defn main
[& [type]]
(cond
@ -88,6 +108,9 @@
(= type "test")
(test-accuracity)
(= type "interval")
(test-interval)
:else
(println "not implemented")))