|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 |
#lang slideshow(define c (circle 10))(define r (rectangle 10 20));定义一个调用函数(define (square n) (filled-rectangle n n));局部绑定(define (four p) (define two-p (hc-append p p)) (vc-append two-p two-p));使用let进行绑定(define (checker p1 p2) (let
([p12 (hc-append p1 p2)] [p21(hc-append p2 p1)]) (vc-append p12 p21))) |
原文：http://www.cnblogs.com/fistao/p/3755890.html