HomeAboutCodePastes

Paste on 2021-11-05T17:23:43

(defun get-closest (p1 points)
  (loop :for p2 :in points
        :minimizing (distance p1 p2)
        :return p2))

plain