1 #! /usr/bin/guile -s-
2 !#-
3 -
4 -
5 #!-
6 這是一個參數(shù)的Lambda加法-
7 !#-
8 (display ((lambda (x) (+ x x))1))(newline) -
9 -
10 #!-
11 這是兩個參數(shù)的Lambda減法-
12 !#-
13 (define reverse-subtract-
14 (lambda (x y) (- y x)))- 15 (display (reverse-subtract 7 10 ))(newline)-
16 -
17 #!-
18 帶有局部變量的兩個參數(shù)的Lambda加法-
19 !#-
20 (define foo- 21 (let ((x 4))-
22 (lambda (y) (+ x y))))-
23 (display (foo 6))(newline)-