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

(load-file "../core.mal")
(load-file "../perf.mal")

;;(prn "Start: basic math/recursion test")

(def! sumdown (fn* (N) (if (> N 0) (+ N (sumdown  (- N 1))) 0)))
(def! fib (fn* (N) (if (= N 0) 1 (if (= N 1) 1 (+ (fib (- N 1)) (fib (- N 2)))))))

(time (do
  (sumdown 10)
  (fib 12)))

;;(prn "Done: basic math/recursion test")
Commit	Line	Data
db4c329a	1	(load-file "../core.mal")
a77e2b31	2	(load-file "../perf.mal")
db4c329a JM	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")