要求创建一个数据类型线段,能够给出线段中点
比较简单,直接上代码
(define (make-line-segment start-point end-point)
(cons start-point end-point))
(define (make-point coordinatex coordinatey)
(cons coordinatex coordinatey))
(define (coordinatex x) (car x))
(define (coordinatey x) (cdr x))
(define (start-point line) (car line))
(define (end-point line) (cdr line))
(define (get-midpoint line)
(cons (/ (+ (coordinatex (start-point line)) (coordinatex (end-point line))) 2) (/ (+ (coordinatey (start-point line)) (coordinatey (end-point line))) 2)))