1 #! /usr/bin/guile -s-
2 !#-
3 -
4 -
5 #!-
6 这是一个参数的Lambda加法-
7 !#-
8 (display ((lambda (x) (+ x x))1))(newline) -
9 -
10 #!-
11 这是两个参数的Lambda减法-
12 !#-
13 (define reverse-subtract-
14 (lambda (x y) (- y x)))- 15 (display (reverse-subtract 7 10 ))(newline)-
16 -
17 #!-
18 带有局部变量的两个参数的Lambda加法-
19 !#-
20 (define foo- 21 (let ((x 4))-
22 (lambda (y) (+ x y))))-
23 (display (foo 6))(newline)-