Implementation of N-Dimensional Points

(define make-point list)

(define (point.dimension pt) (length pt))
(define (point.coord pt dim)
  (list-ref pt (- dim 1)))

(define (point.x pt) (point.coord pt 1))
(define (point.y pt) (point.coord pt 2))
(define (point.z pt) (point.coord pt 3))

Jim Miller