|
#lang scheme
|
|
|
|
(define (displayln x) (newline) (display x))
|
|
|
|
(define (ambig1 x) (lambda (x) x))
|
|
|
|
(displayln ((ambig1 13) 42))
|
|
|
|
(define (ambig2 a)
|
|
(displayln a)
|
|
(define a- a)
|
|
(lambda (b) (displayln b)
|
|
(lambda (a)
|
|
(displayln a)
|
|
(displayln b)
|
|
(displayln a-))))
|
|
|
|
(((ambig2 1) 2) 3) |