Implementation of Points

left top right

(define (first-dimension point) (car point))
(define (other-dimensions point) (cdr point))
(define (zero-dimension? point) (null? point))

(define origin-3d (list 0 0 0))
(define p1 (list 2 3))
(define p2 (list 3 4))
(define p3 (list 2 7))

(distance p1 p2)
(distance p1 p3)
(distance p3 p1)

Jim Miller W3C