mirror of
https://github.com/kanaka/mal.git
synced 2024-09-20 01:57:09 +03:00
12 lines
347 B
Plaintext
12 lines
347 B
Plaintext
(load-file "../core.mal")
|
|
(load-file "../perf.mal")
|
|
|
|
;;(prn "Start: basic macros performance test")
|
|
|
|
(time (do
|
|
(or false nil false nil false nil false nil false nil 4)
|
|
(cond false 1 nil 2 false 3 nil 4 false 5 nil 6 "else" 7)
|
|
(-> (list 1 2 3 4 5 6 7 8 9) rest rest rest rest rest rest first)))
|
|
|
|
;;(prn "Done: basic macros performance test")
|