lisp - 使用 mapcar 计算欧式距离并应用

Question

我正在尝试创建一个函数，使用 apply 和 mapcar 来计算它。

在使用第一个 mapcar 获取列表中 p-q 的所有差异后，我被卡住了。如何对列表中的所有元素求平方并求和？

(defun euclidean-distance-map (p q)
  ;; get a list of differences of p - q
  (mapcar #'- p q))

Answer 1

高阶函数

如果您真的需要坚持使用 HOF(reduce 和 mapcar)，那么这里有几个选项:

(defun euclidean-distance-map (p q)
  (let ((d (mapcar #'- p q))) ; get a list of differences of p & q
    (sqrt (reduce #'+ (mapcar #'* d d)))))

(defun euclidean-distance-map (p q)
  (sqrt (reduce #'+ (mapcar (lambda (x) (* x x)) (mapcar #'- p q)))))

(defun euclidean-distance-map (p q)
  (sqrt (reduce #'+ (mapcar (lambda (x y)
                              (let ((d (- x y)))
                                (* d d)))
                            p q))))

应用 与 减少

使用 apply而不是 reduce 是一个坏的想法(因为 call-arguments-limit 和风格)，但是你开始吧:

(defun euclidean-distance-map (p q)
  (let ((d (mapcar #'- p q))) ; get a list of differences of p & q
    (sqrt (apply #'+ (mapcar #'* d d)))))

(defun euclidean-distance-map (p q)
  (sqrt (apply #'+ (mapcar (lambda (x) (* x x)) (mapcar #'- p q)))))

(defun euclidean-distance-map (p q)
  (sqrt (apply #'+ (mapcar (lambda (x y)
                             (let ((d (- x y)))
                               (* d d)))
                           p q))))

内存

如果没有众所周知的“足够聪明的编译器”，mapcar 分配的存储空间会立即被丢弃。不过，这不一定是现代分代 GC 的问题。

迭代

注意迭代版本使用loop同样清楚:

(defun euclidean-distance-map (p q)
  (sqrt (loop for x in p
          and y in q
          for d = (- x y)
          sum (* d d))))

Lisp 是一种多范式语言，您不必强制自己进入 specific框架。