mal/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")
All: perf test, Makefile refactor, add host-language Other: - bash,make,postscript: quasiquote of vectors - Fix Java slurp - add time function to core.mal - switches on host-language for make time-secs vs time-ms - Ignore */experiments directories 2014-04-18 06:49:07 +04:00			`(load-file "../core.mal")`
rust: add step8_macros 2014-10-28 02:13:45 +03:00			`(load-file "../perf.mal")`
All: perf test, Makefile refactor, add host-language Other: - bash,make,postscript: quasiquote of vectors - Fix Java slurp - add time function to core.mal - switches on host-language for make time-secs vs time-ms - Ignore */experiments directories 2014-04-18 06:49:07 +04:00
			`;;(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")`