[jackhill/mal.git] / tests / perf1.mal

(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")
Commit	Line	Data
db4c329a	1	(load-file "../core.mal")
a77e2b31	2	(load-file "../perf.mal")
db4c329a JM	3
	4	;;(prn "Start: basic macros performance test")
	5
	6	(time (do
	7	(or false nil false nil false nil false nil false nil 4)
	8	(cond false 1 nil 2 false 3 nil 4 false 5 nil 6 "else" 7)
	9	(-> (list 1 2 3 4 5 6 7 8 9) rest rest rest rest rest rest first)))
	10
	11	;;(prn "Done: basic macros performance test")