1
1
mirror of https://github.com/kanaka/mal.git synced 2024-11-09 18:06:35 +03:00
mal/impls/tests/perf1.mal

14 lines
486 B
Plaintext
Raw Normal View History

(load-file "../lib/load-file-once.mal")
(load-file-once "../lib/threading.mal") ; ->
(load-file-once "../lib/perf.mal") ; time
(load-file-once "../lib/test_cascade.mal") ; or
;;(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")