Login
7 branches 0 tags
Ben (X13/Arch) Fixed compiler warning e5f34c6 1 year ago 1239 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