diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/perf3.mal | 28 | ||||
| -rw-r--r-- | tests/step2_eval.mal | 4 |
2 files changed, 30 insertions, 2 deletions
diff --git a/tests/perf3.mal b/tests/perf3.mal new file mode 100644 index 0000000..be66239 --- /dev/null +++ b/tests/perf3.mal @@ -0,0 +1,28 @@ +(load-file "../core.mal") +(load-file "../perf.mal") + +;;(prn "Start: basic macros/atom test") + +(def! atm (atom (list 0 1 2 3 4 5 6 7 8 9))) + +(println "iters/s:" + (run-fn-for + (fn* [] + (do + (or false nil false nil false nil false nil false nil (first @atm)) + (cond false 1 nil 2 false 3 nil 4 false 5 nil 6 "else" (first @atm)) + (-> (deref atm) rest rest rest rest rest rest first) + (swap! atm (fn* [a] (concat (rest a) (list (first a))))))) + 10)) + +;;(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))))))) +;; +;;(println "iters/s:" +;; (run-fn-for +;; (fn* [] +;; (do +;; (sumdown 10) +;; (fib 12))) +;; 3)) +;;(prn "Done: basic macros/atom test") diff --git a/tests/step2_eval.mal b/tests/step2_eval.mal index aaf1a7d..e975910 100644 --- a/tests/step2_eval.mal +++ b/tests/step2_eval.mal @@ -11,8 +11,8 @@ (/ (- (+ 5 (* 2 3)) 3) 4) ;=>2 -(/ (- (+ 515 (* 222 311)) 300) 41) -;=>1689 +(/ (- (+ 515 (* 222 311)) 302) 27) +;=>2565 (abc 1 2 3) ; .*\'abc\' not found.* |