tests/perf1.mal

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