Commit | Line | Data |
---|---|---|
13e679cd NB |
1 | (load-file "../lib/load-file-once.mal") |
2 | (load-file-once "../lib/threading.mal") ; -> | |
3 | (load-file-once "../lib/perf.mal") ; run-fn-for | |
4 | (load-file-once "../lib/test_cascade.mal") ; or | |
699f0ad2 JM |
5 | |
6 | ;;(prn "Start: basic macros/atom test") | |
7 | ||
8 | (def! atm (atom (list 0 1 2 3 4 5 6 7 8 9))) | |
9 | ||
6da59ec2 | 10 | (println "iters over 10 seconds:" |
699f0ad2 JM |
11 | (run-fn-for |
12 | (fn* [] | |
13 | (do | |
14 | (or false nil false nil false nil false nil false nil (first @atm)) | |
15 | (cond false 1 nil 2 false 3 nil 4 false 5 nil 6 "else" (first @atm)) | |
16 | (-> (deref atm) rest rest rest rest rest rest first) | |
17 | (swap! atm (fn* [a] (concat (rest a) (list (first a))))))) | |
18 | 10)) | |
19 | ||
699f0ad2 | 20 | ;;(prn "Done: basic macros/atom test") |