【SICP练习】43 练习2.2



练习2.2

(define(make-segment start-point end-point)

(cons start-point end-point))

(define(start-segment seg)

(car seg))

(define(start-segment seg)

     (cdr seg))

(define(make-point x y)

       (cons x y))

(define(x-point p)

(car p))

(define(y-point p)

(cdr p))

(define(average x y)

     (/ (+ x y) 2.0))

(define(mid-segment seg)

       (let ((start (start-segment seg))

         (end (end-segment seg)))

       (make-point (average (x-point start)(x-point end))

                    (average (y-point start)(y-point end)))))

(define(print-point p)

   (newline)

   (display “(“)

   (display (x-point p))

   (display “,”)

   (display (y-point p))

   (display “)”))