mirror of
https://github.com/samsonjs/lake.git
synced 2026-03-25 08:55:49 +00:00
6 lines
198 B
Scheme
6 lines
198 B
Scheme
|
|
; for The Little Schemer
|
|
(define atom? (lambda (x) (and (not (pair? x)) (not (null? x)))))
|
|
(define add1 (lambda (x) (+ x 1)))
|
|
(define sub1 (lambda (x) (- x 1)))
|
|
(define zero? (lambda (x) (= x 0)))
|