tests/perf2.mal

   1 (load-file "../core.mal")
   2 (load-file "../perf.mal")
   3
   4 ;;(prn "Start: basic math/recursion test")
   5
   6 (def! sumdown (fn* (N) (if (> N 0) (+ N (sumdown  (- N 1))) 0)))
   7 (def! fib (fn* (N) (if (= N 0) 1 (if (= N 1) 1 (+ (fib (- N 1)) (fib (- N 2)))))))
   8
   9 (time (do
  10   (sumdown 10)
  11   (fib 12)))
  12
  13 ;;(prn "Done: basic math/recursion test")