摘要:
1 #lang sicp 2 3 (#%require sicp-pict) 4 5 (define (make-vect a b) 6 (cons a b)) 7 8 (define (xcor-vect v) 9 (car v)) 10 11 (define (ycor-vect v) 12 ( 阅读全文
摘要:
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 ... 阅读全文
摘要:
2.42 尚未理解书上的queens函数 参考代码 阅读全文