Login
7 branches 0 tags
Ben (X13/Arch) Simplified things a little 0643405 9 days ago 1260 Commits
nujel / tests / slow / recfib.nuj
#!/usr/bin/env nujel

(defn fib (n)
      (cond ((zero? n) 0)
            ((= 1 n) 1)
            (#t (+ (fib (- n 1)) (fib (- n 2))))))

(def res (fib 36))
(when-not (= res 14930352)
          (throw (list :wrong-result "Wrong result" res)))
:success