lisp - 将 sqrt 函数应用于 lisp 中的多个列表

Question

尝试学习 Lisp 的新手。我想将 sqrt(或任何函数)应用于 Clisp 中的多个列表。例如。使用 mapcar 我们可以应用于一个列表，例如 ( map 车#'sqrt(10 20 30))。

但是列表是 ((10 20) (30 40) (50)) 的情况呢？预先感谢您的帮助。

Answer 1

尝试

? (mapcar (lambda (e) (mapcar #'sqrt e)) '((10 20) (30 40) (50)))
((3.1622777 4.472136) (5.477226 6.3245554) (7.071068))

对于任意深度，您可以使用递归函数:

(defun rmap (fun lst)
  (mapcar
   (lambda (x)
     (if (listp x)
       (rmap fun x)
       (funcall fun x)))
   lst))