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)))
|