blob: c1f09cc3fca92012ac47b4caeec7fa64a62cc359 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
;; Sample Elisp code for `test-language'.
(defun fib (n)
"Anything but a fib."
(if (<= n 1)
n
(+ (fib (- n 1))
(fib (- n 2)))))
(or (= 13 (fib 7))
(error "Something's wrong!"))
|