LISP - 沒有setq最近的功能/ SETF等

Question

我試着寫了「最近」的功能，在Lisp中，不使用setq/SETF等等

函數發現一個給定的向量的最近鄰的矢量（在列表中找到它）。

我試過了，但沒有套太硬，非常感謝。

Answer 1

通常變量的更新是通過遞歸方法來實現：

(defun main-function (arg) 
    (main-function-helper arg 0 1)) 

(defun main-function-helper (arg var1 var2) 
    (if (= arg var1) 
     var2 
     (main-function-helper arg (1+ var1) (1+ var2)))) 

當你做，你可以把助手進入主功能：

(defun main-function (arg) 
    (labels ((helper (var1 var2) ; arg left out since it's not changed 
      (if (= arg var1) 
       var2 
       (helper (1+ var1) (1+ var2)))))     
    (helper 0 1))) 

這當然是一個的愚蠢的實施1+積極的論點。

Answer 2

沒有設置，返回病例列表的名單有關係：

（注：循環宏使用設置在某個點：P）

(defun euclid (v1 v2) 
    (sqrt (loop for x in v1 for y in v2 sum 
    (expt (- x y) 2)))) 


(defun closest (target listoflists distancefn) 
    (loop for l in listoflists for d = (apply distancefn (list target l)) 
    minimizing d into min 
    collecting (list l d) into col 
    finally (return 
     (loop for (vec dis) in col when 
     (eql dis min) collect vec)))) 

(closest '(1 2 3) '((1 2 2) (1 2 2) (2 2 2)) #'euclid) 
> ((1 2 2) (1 2 2))