cleanup

2026-08-20 05:32:21 -06:00
parent c5f9bf1850
commit fc8cf263aa
22 changed files with 87 additions and 617 deletions
@@ -1,21 +0,0 @@
-(define (-& x y k) (k (- x y)))
-(define (zero?& x k) (k (zero? x)))
-(define (halt x) x)
-
-(letrec ((even? (lambda (n ktail)
-                  (zero?& n
-                          (lambda (x1)
-                            (if x1
-                                #t
-                                (-& n 1
-                                    (lambda (x2)
-                                      (odd? x2 ktail))))))))
-         (odd? (lambda (n ktail)
-                 (zero?& n
-                         (lambda (x1)
-                           (if x1
-                               #f
-                               (-& n 1
-                                   (lambda (x2)
-                                     (even? x2 ktail)))))))))
-  (even? 12 halt))