2008-03-21 03:49:53 +00:00
parent f9c7b599d4
commit b52f039c69
358 changed files with 6823 additions and 6288 deletions
--- a/ase/cmd/lsp/t5.lsp
+++ b/ase/cmd/lsp/t5.lsp
@@ -0,0 +1,8 @@
+; Compute the N'th Fibonacci number.
+(defun fibonacci (N)
+  ;(if (or (zerop N) (= N 1))
+  (if (or (= N 0) (= N 1))
+      1
+    (+ (fibonacci (- N 1)) (fibonacci (- N 2)))))
+
+(fibonacci 5)