传递函数列表中的Common Lisp

Question

争论说有一个功能F.我想传递的函数列表作为参数进入函数F

函数f会经历各功能列表一个接一个地将每一个应用到两个整数：x和y。

例如，如果列表=（加，减，加，除，时间，加号）和x = 6和y = 2，输出应该是这样的：

8 4 8 3 12 8 

如何共同实现这个Lisp的？

Answer 1

有很多可能性。

CL-USER> (defun f (x y functions) 
      (mapcar (lambda (function) (funcall function x y)) functions)) 
F 
CL-USER> (f 6 2 (list #'+ #'- #'+ #'/ #'* #'+)) 
(8 4 8 3 12 8) 
CL-USER> (defun f (x y functions) 
      (loop for function in functions 
       collect (funcall function x y))) 
F 
CL-USER> (f 6 2 (list #'+ #'- #'+ #'/ #'* #'+)) 
(8 4 8 3 12 8) 
CL-USER> (defun f (x y functions) 
      (cond ((null functions) '()) 
       (t (cons (funcall (car functions) x y) 
          (f x y (cdr functions)))))) 
F 
CL-USER> (f 6 2 (list #'+ #'- #'+ #'/ #'* #'+)) 
(8 4 8 3 12 8) 
CL-USER> (defun f (x y functions) 
      (labels ((rec (functions acc) 
         (cond ((null functions) acc) 
          (t (rec (cdr functions) 
            (cons (funcall (car functions) x y) 
              acc)))))) 
      (nreverse (rec functions (list))))) 
F 
CL-USER> (f 6 2 (list #'+ #'- #'+ #'/ #'* #'+)) 
(8 4 8 3 12 8) 
CL-USER> (defun f (x y functions) 
      (flet ((stepper (function result) 
        (cons (funcall function x y) result))) 
      (reduce #'stepper functions :from-end t :initial-value '()))) 
F 
CL-USER> (f 6 2 (list #'+ #'- #'+ #'/ #'* #'+)) 
(8 4 8 3 12 8) 

等等。

前两个是可读的，第三个可能是第一个Lisp课程中的新手如何做到的，第四个仍然是新手，在听到尾部呼叫优化之后，第五个是由在Haskeller掩护下。