I Am Writing A Function Which Takes Two Parameter P1 And P2 And Returns P1 If It

I am writing a function which takes two parameter p1 and p2 and returns p1 if it is closer to (0 0) than p2. P1 and P2 are 2d points.

Here is my attempt in Racket,

(define ptcomparator (lambda (p1 p2)

            (if(<(distance(p1 (0 0)) (distance(p2 (0 0)))))

                   #t

                   #f)))

(define distance(lambda(x y)

 (sqrt(-(*(+(car x)(car y)(car x)(car y))(cdr x)(cdr y))(cdr x)(cdr y)))))

 

"Looking for a Similar Assignment? Get Expert Help at an Amazing Discount!"