From 288727f09a1b3458c268497d111349e608c3f9fa Mon Sep 17 00:00:00 2001
From: "bozo.kopic" <bozo@kopic.xyz>
Date: Tue, 2 Aug 2022 01:20:12 +0200
Subject: init

---
 examples/factorial.lsp | 6 ++++++
 1 file changed, 6 insertions(+)
 create mode 100644 examples/factorial.lsp

(limited to 'examples')

diff --git a/examples/factorial.lsp b/examples/factorial.lsp
new file mode 100644
index 0000000..a539a01
--- /dev/null
+++ b/examples/factorial.lsp
@@ -0,0 +1,6 @@
+(define (factorial x)
+    (if x
+        (* x (factorial (- x 1)))
+        1))
+
+(factorial 10)
-- 
cgit v1.2.3-70-g09d2