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

(load-file      "../lib/load-file-once.mal")
(load-file-once "../tests/computations.mal") ; fib sumdown
(load-file-once "../lib/perf.mal")           ; time

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

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

;;(prn "Done: basic math/recursion test")
Commit	Line	Data
13e679cd NB	1	(load-file "../lib/load-file-once.mal")
	2	(load-file-once "../tests/computations.mal") ; fib sumdown
	3	(load-file-once "../lib/perf.mal") ; time
db4c329a JM	4
	5	;;(prn "Start: basic math/recursion test")
	6
db4c329a JM	7	(time (do
	8	(sumdown 10)
	9	(fib 12)))
	10
	11	;;(prn "Done: basic math/recursion test")