tests/perf1.mal

   1 (load-file "../core.mal")
   2 (load-file "../perf.mal")
   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")