*** empty log message ***

2005-09-20 12:06:51 +00:00
parent add76da3fa
commit b5cbca0e8d
14 changed files with 473 additions and 168 deletions
--- a/ase/test/lsp/t5.lsp
+++ b/ase/test/lsp/t5.lsp
@ -0,0 +1,7 @@
+; Compute the N'th Fibonacci number.
+(defun fibonacci (N)
+  (if (or (zerop N) (= N 1))
+      1
+    (+ (fibonacci (- N 1)) (fibonacci (- N 2)))))
+
+(fibonacci 5)