;; q2.1 ;;正負を正規化するmake-ratの改良版 (define (make-rat n d) (cond ;; (((and (> n 0) (> d 0))(cons n d));両者+ならそのまま ((and (< n 0) (< d 0)) (cons (* -1 n) (* -1 d)));両者-なら両者-で ((and (> n 0) (< d 0)) (cons (* -1 n) (* -1 d…

ちょっと楽しい ;;; 1.3.4 値として返される手続き (define (average a b) (/ (+ a b) 2) ) (define (square a) (* a a) ) (define (average-dump f) (lambda (x) (average x (f x)))) ((average-dump square) 10) ;;; q1.41 (define (double f) (lambda (x)…