;問題の意図が良くわからない。 (define (square x) (* x x)) (define (average x y) (/ (+ x y) 2)) (define (make-segment s e) (cons s e)) (define (start-segment seg) (car seg)) (define (end-segment seg) (cdr seg)) (define (make-point x y) (con…

(define (average x y) (/ (+ x y) 2)) (define (make-segment s e) (cons s e)) (define (start-segment seg) (car seg)) (define (end-segment seg) (cdr seg)) (define (make-point x y) (cons x y)) (define (x-point p) (car p)) (define (y-point p) (…

(define (gcd a b) (if (= b 0) a (gcd b (remainder a b)))) (define (make-rat n d) (let ((g (gcd n d))) (let ((ng (/ n g)) (dg (/ d g))) (if (< ng 0) (cons (- ng) (- dg)) (cons ng dg))))) ;(define (make-rat n d) ; (let ((g (gcd n d))) ; (con…