11 lines
200 B
Scheme
11 lines
200 B
Scheme
|
(define (displayln x) (display x) (newline))
|
||
|
|
|
||
|
|
(define (make-print x)
|
||
|
|
(define (print) (displayln x))
|
||
|
|
print)
|
||
|
|
|
||
|
|
(define print-2 (make-print 2))
|
||
|
|
(define print-4 (make-print 4))
|
||
|
|
|
||
|
|
(print-4)
|
||
|
|
(print-2)
|