*** 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/t4.lsp
+++ b/ase/test/lsp/t4.lsp
@ -0,0 +1,7 @@
+;Compute the factorial of N.
+(defun factorial (N)
+	(if (= N 1)
+		1
+		(* N (factorial (- N 1)))))
+
+(factorial 10)