18 lines
265 B
Scheme
18 lines
265 B
Scheme
|
(load "util.scm")
|
||
|
|
(load "misc/sicp-compiler.scm")
|
||
|
|
|
||
|
|
(display "\nex-5.39\n")
|
||
|
|
|
||
|
|
(let ((x 3) (y 4))
|
||
|
|
(lambda (a b c d e)
|
||
|
|
(let ((y (* a b x))
|
||
|
|
(z (+ c d x)))
|
||
|
|
(* x y z))))
|
||
|
|
|
||
|
|
(display "\nex-5.40\n")
|
||
|
|
|
||
|
|
|
||
|
|
; (display "\nex-5.41\n")
|
||
|
|
; (display "\nex-5.42\n")
|
||
|
|
|