-
-
(lambda (x) (* x x))
;Value: #[compound-procedure ...]
|
-
-
((lambda (x) (* x x)) 5)
;Value: 25
|
-
-
(define double (lambda (x) (* 2 x)))
;Value: "double -> #[compound-procedure ...]
|
-
-
(double (double 6))
;Value: 24
|
-
-
(double double)
;Error: #[compound-procedure] passed to multiply
|
|
-
-
(define cube (lambda (x) (*x x x)))
;Value: "cube -> #[compound-procedure ...]
|
-
-
(cube 3)
;Error: "Unbound variable: *x"
|
-
-
(define + 3)
;Value: "+ -> 3"
|
-
-
(define - 6)
;Value: "- -> 6"
|
-
-
(* + -)
;Value: 18
|
|