2.2

 

;2.2

;构建线段
(define (make-segment start end)
  (cons start end))

;构建点
(define (make-point x y)
  (cons x y))

(define (x-point p)
  (car p))

(define (y-point p)
  (cdr p))

;获得线段的首尾端点
(define (start-segment segment)
  (car segment))

(define (end-segment segment)
  (cdr segment))

;获得线段的中点
(define (mid-segment segment)
  (make-point (average (x-point (start-segment segment)) 
                       (x-point (end-segment segment)))
              (average (y-point (start-segment segment)) 
                       (y-point (end-segment segment)))
              ))

(define (average x y)
  (/ (+ x y) 2))

;打印点
(define (print-point p)
  (newline)
  (display "(")
  (display (x-point p))
  (display ",")
  (display (y-point p))
  (display ")"))