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

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