12 lines
156 B
Scheme
12 lines
156 B
Scheme
(define atom?
|
|
(lambda (x)
|
|
(and (not (pair? x)) (not (null? x)))))
|
|
|
|
(define add1
|
|
(lambda (x)
|
|
(+ x 1)))
|
|
|
|
(define sub1
|
|
(lambda (x)
|
|
(- x 1)))
|