随笔分类 -  SICP

摘要：2.53(a b c)((george))((y1 y2))(y1 y2)#f#f(red shoes blue socks)2.54(define (equal? list1 list2) (cond ((or(null? list1)(null? list2))... 阅读全文

摘要：in drscheme '()=nil2.17(define (last-pair l) (if(equal? (cdr l) '()) (car l) (last-pair (cdr l))))2.18(define (reverse l) (d... 阅读全文

摘要：2.1(define (make-rat n d) (let ((abs-n (abs n)) (abs-d (abs d)) (g (gcd (abs n) (abs d)))) (if (positive? (* n d)) ... 阅读全文

摘要：1.1101283619#f4166161.2(/ (+ 5 4 (- 2 (- 3 (+ 6 (/ 1 3)))))(* 3 (- 6 2)(- 2 7)))1.3(define (sum x y z) (+ (square(larger x y))(square... 阅读全文