Add recursion test

2021-04-02 16:20:07 +02:00 · 2021-04-02 16:20:07 +02:00 · 59e7694dc0
parent d35611b813
commit 59e7694dc0
1 changed files with 9 additions and 0 deletions
--- a/t/recursion.t
+++ b/t/recursion.t
@ -0,0 +1,9 @@
+;; Factorial
+
+(defun factorial (n)
+  (if (> n 1)
+      (* n (factorial (- n 1)))
+    1))
+
+(expect "Factorial of 5 is 120" (= (factorial 5) 120))
+(expect "Factorial of 1 is 1" (= (factorial 1) 1))