SICP_2.44-2.47

 1 #lang sicp
 2 
 3 (#%require sicp-pict)
 4 
 5 
 6 ;;;;;;;;;;;;;;;;;;2.44
 7 (define (up-split painter n)
 8   (if (= n 0)
 9       painter
10       (let ((smaller (up-split painter (- n 1))))
11         (below painter (beside smaller smaller)))))
12 
13 ;;;;;;;;;;;;;;;;;test
14 (paint (up-split einstein 4))
15 
16 ;;;;;;;;;;;;;;;;;;2.45
17 
18 (define (split op1 op2)
19   (lambda (painter n)
20     (if (= n 0)
21         painter
22         (let ((smaller ((split op1 op2) painter (- n 1))))
23           (op1 painter (op2 smaller smaller))))))
24 
25 ;(define (split op1 op2)
26 ;  (define (inner pinter n)
27 ;    (if (= n 0)
28 ;        painter
29 ;        (let ((smaller (inner painter (- n 1))))
30 ;          (op1 painter (op2 smaller smaller)))))
31 ;  inner)
32 
33 (define right-split (split beside below))
34 ;;;;;;;;;;;;;;;;;test
35 (paint (right-split einstein 4))
36 
37 ;;;;;;;;;;;;;;;;;;;2.46
38 (define (make-vect a b)
39   (cons a b))
40 
41 (define (xcor-vect v)
42   (car v))
43 
44 (define (ycor-vect v)
45   (cdr v))
46 
47 (define (add-vect v1 v2)
48   (make-vect (+ (xcor-vect v1)
49                 (xcor-vect v2))
50              (+ (ycor-vect v1)
51                 (ycor-vect v2))))
52 
53 (define (sub-vect v1 v2)
54   (make-vect (- (xcor-vect v1)
55                 (xcor-vect v2))
56              (- (ycor-vect v1)
57                 (ycor-vect v2))))
58 
59 (define (scale-vect s v1)
60   (make-vect (* s (xcor-vect v1))
61              (* s (ycor-vect v1))))
62 
63 ;;;;;;;;;;;;;;;;;;;;2.47
64 (define (make-frame1 origin edge1 edge2)
65   (list origin edge1 edge2))
66 
67 (define (make-frame2 origin edge1 edge2)
68   (cons origin (cons edge1 edge2)))
69 
70 ;;;;;;;;;;;;;;;1
71 (define (origin-frame1 frame)
72   (car frame))
73 
74 (define (edge1-frame1 frame)
75   (cadr frame))
76 
77 (define (edge2-frame1 frame)
78   (caddr frame))
79 
80 ;;;;;;;;;;;;;;;2
81 (define (origin-frame2 frame)
82   (car frame))
83 
84 (define (edge1-frame2 frame)
85   (cadr frame))
86 
87 (define (edge2-frame2 frame)
88   (cddr frame))

 

转载于:https://www.cnblogs.com/tclan126/p/6424906.html