Du kannst nicht mehr als 25 Themen auswählen
Themen müssen entweder mit einem Buchstaben oder einer Ziffer beginnen. Sie können Bindestriche („-“) enthalten und bis zu 35 Zeichen lang sein.
13 Zeilen
327 B
13 Zeilen
327 B
(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")
|