mirror of
https://github.com/kanaka/mal.git
synced 2024-09-20 10:07:45 +03:00
29 lines
800 B
Plaintext
29 lines
800 B
Plaintext
(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")
|