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))