A fork of Crisp for HARP
Du kan inte välja fler än 25 ämnen Ämnen måste starta med en bokstav eller siffra, kan innehålla bindestreck ('-') och vara max 35 tecken långa.
 

13 rader
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")