2021-12-28 01:42:17 +00:00
|
|
|
#lang scheme
|
|
|
|
|
|
2021-12-29 02:32:43 +00:00
|
|
|
(define (displayln x)
|
|
|
|
|
(display x)
|
|
|
|
|
(newline))
|
2021-12-28 01:42:17 +00:00
|
|
|
|
2021-12-29 02:32:43 +00:00
|
|
|
(define (const x)
|
|
|
|
|
(lambda () x))
|
2021-12-28 01:42:17 +00:00
|
|
|
|
|
|
|
|
(define two-thunk (const 2))
|
|
|
|
|
|
|
|
|
|
(displayln two-thunk)
|
|
|
|
|
(displayln (two-thunk))
|
