eval call/cc }:)

2026-09-05 23:58:37 -06:00
parent 10bd6b733a
commit 0f9ba3c51e
3 changed files with 39 additions and 14 deletions
@@ -0,0 +1,7 @@
+(letrec ((my-map (λ (f l)
+                   (if (pair? l)
+                       (cons (f (car l))
+                             (my-map f (cdr l)))
+                       (list)))))
+  (my-map (λ (x) (* x x))
+          (list 0 1 2 3 4)))