Having some fun

2025-10-12 22:59:13 +02:00
parent 7c270cb7a8
commit bdb3b8c5b4
5 changed files with 206 additions and 0 deletions
--- a/test.lispbm
+++ b/test.lispbm
@ -0,0 +1,10 @@
+(defun fac (x)
+  (match x
+    (0 1)
+    (1 1)
+    (_ (* x (fac (- x 1))))))
+
+(defun mymap (f m)
+  (if (eq m nil)
+      nil
+      (cons (f (car m)) (mymap m f))))