简洁的lisp代码,将函数列表全部应用于同一个参数,并获取返回值列表?

这个操作并不常见,而且除了直接在公共Lisp中编写它之外,没有真正的预定义方法来执行它。很多人都喜欢一个简短的语法,并添加了一些语法元素,在这种情况下,这些元素可以帮助所有类型的Lisp。在普通的Lisp中,可能需要编写一个函数来满足您的需要(而不是添加语法)。

(defun fmap (functions &rest args)
  (declare (dynamic-extent args))
  "Applies each function to the arguments. Returns a list of results."
  (mapcar (lambda (function)
            (apply function args))
          functions))

CL-USER 1 > (fmap (list #'+ #'- #'* #'/) 42 17)
(59 25 714 42/17)