Lisp找最近點

在Lisp中，可以使用各種算法來找到最近點。其中一種簡單的方法是使用暴力算法，即檢查每一對點之間的距離，並找出距離最小的那一對。以下是一個簡單的例子，展示了如何在Lisp中實現這一點：

(defun distance (p1 p2)
  (let ((dx (- (first p2) (first p1)))
        (dy (- (second p2) (second p1))))
    (sqrt (+ (expt dx '2) (expt dy '2)))))

(defun nearest-points (points)
  (let ((n (length points))
        (min-distance most-positive-double-float)
        (min-index1 0)
        (min-index2 0))
    (dotimes (i n)
      (dotimes (j (1+ i))
        (let ((distance (distance points i j)))
          (when (< distance min-distance)
            (setf min-distance distance
                  min-index1 i
                  min-index2 j)))))
    (values min-distance min-index1 min-index2)))

這個distance函數計算兩個點之間的歐幾里得距離。nearest-points函數接受一個點的列表作為輸入，並返回最近點的距離和它們的索引。most-positive-double-float是Lisp中最大的雙精度浮點數，用於初始化min-distance變量。

請注意，這個算法的時間複雜度是O(n^2)，對於大數據集來說可能非常慢。如果你需要一個更高效的算法，你可能需要考慮使用數據結構（如Kd樹或配對堆）來加速搜尋過程。