miloignis/kraken
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added ability to turn off 4 major optimizations, integrated into benchmarks now focused only on Kraken (and NewLisp)

Browse Source
This commit is contained in:
Nathan Braswell
2022-11-10 02:10:56 -05:00
parent a7248daca0
commit 8638086480
7 changed files with 143 additions and 94 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
koka_bench/kraken/rbtree-opt.kp
View File

@@ -206,7 +206,10 @@
monad (array 'write 1 (str "running tree test") (vau (written code)
(array 'args (vau (args code)
(array 'exit (log (reduce-test-tree (make-test-tree (read-string (idx args 1)) map-empty))))
;(array 'exit (log (reduce-test-tree (make-test-tree (read-string (idx args 1)) map-empty))))
(array 'exit (let (a (log (reduce-test-tree (make-test-tree (read-string (idx args 1)) map-empty)))) 0))
;(array 'exit (log (let (t (make-test-tree (read-string (idx args 1)) map-empty)
; _ (log "swapping to reduce")
; ) (reduce-test-tree t))))

3
koka_bench/kraken/rbtree.kp
View File

@@ -296,7 +296,8 @@
monad (array 'write 1 (str "running tree test") (vau (written code)
(array 'args (vau (args code)
(array 'exit (log (reduce-test-tree (make-test-tree (read-string (idx args 1)) map-empty))))
;(array 'exit (log (reduce-test-tree (make-test-tree (read-string (idx args 1)) map-empty))))
(array 'exit (let (a (log (reduce-test-tree (make-test-tree (read-string (idx args 1)) map-empty)))) 0))
))
))