喜羊羊大舅子的专栏

第一章未整理，先放到这里 ;; ex1.3 (define (sq x)   (* x x)) (define (greater-two-sqrt-sum a b c)   (let ((x (min a b c)))     (cond ((= x a) (+ (sq b) (sq c)))           ((= x b) (+ (sq a) (sq c)))

2.1.1 范例 2.1 习题 (define (make-rat n d) (cond ((< 0 (* n d)) (cons (abs n) (abs d))) ((= 0 d) "divides 0") (else (cons (- (abs n)) (abs d))))) (define (numer x) (car x