10 lines
202 B
Scheme
10 lines
202 B
Scheme
(define display write)
|
|
(define len length)
|
|
(define (nil) "nil obj" ())
|
|
(define (ok) "ok obj" ())
|
|
(define fold foldl)
|
|
(define reduce fold)
|
|
(define ceil ceiling)
|
|
(define head car)
|
|
(define tail list-tail)
|