SICP(1985) ex2-2 line-segment

要求创建一个数据类型线段,能够给出线段中点

比较简单,直接上代码

(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)))