13 lines
172 B
Scheme
13 lines
172 B
Scheme
|
#lang scheme
|
||
|
|
||
|
(define (displayln x) (display x) (newline))
|
||
|
|
||
|
|
||
|
(define (const x) (lambda () x))
|
||
|
|
||
|
(define two-thunk (const 2))
|
||
|
|
||
|
(displayln two-thunk)
|
||
|
(displayln (two-thunk))
|
||
|
|