Obecnie próbuję napisać funkcję z listy punktów, która zwraca odległość od punktu p do punktu na mojej liście punktów, który jest najdalej od p. Moja lista punktów jest następująca:

((2 . 4) (3 . 6) (5 . 12) (-4 . 3) (8.4 . 9) (0 . -1))

Zrobiłem też pewne abstrakcje, aby pobrać ogólny samochód i cdr (dla łatwiejszej widoczności w kodzie), a także samochód i cdr samej listy.

(define (get-x p) (car p)
(define (get-y p) (car p)


(define (get-first-point pt-list)
        (get-x pt-list))

(define (get-rest-points pt-list)
        (get-y pt-list))                                                                                         

Napisałem już również uogólnioną formułę odległości, której mogę użyć dla dowolnych dwóch punktów, które wybieram (pamiętaj, że odciąłem samochód i cdr odpowiednio na get-x i get-y).

(define (distance a b)
    (if (or (null? a) (null? b))
        0
        (sqrt (+ (expt (- (get-x a)
                          (get-x b))  2) 
                 (expt (- (get-y a) 
                          (get-y b))  2)))))

Teraz, kiedy to mam, wiem, że muszę porównać różne odległości w całym moim zbiorze punktów i wybrać maksymalną wartość zwrotu. Mam częściowe rozwiązanie, ale nie takie, które jest poprawnekażdy punkt.

(define (max-distance p pt-list)
    (if (null? pt-list)
        0
        (max (distance p (get-first-point pt-list)) ; 1
             (distance p (get-first-point (get-rest-points pt-list))) ; 2
             (distance p (get-first-point (get-rest-points (get-rest-points pt-list)))) ; 3
             (distance p (get-first-point (get-rest-points (get-rest-points (get-rest-points pt-list))))) ; 4
             (distance p (get-first-point (get-rest-points (get-rest-points (get-rest-points (get-rest-points pt-list)))))) ; 5
             (distance p (get-first-point (get-rest-points (get-rest-points (get-rest-points (get-rest-points (get-rest-points pt-list))))))) ; 6
    )
)

)

Prawdopodobnie dowiesz się, co robię (strasznie), ale dlatego potrzebuję pomocy.