lisp - 有没有更短的方法来编写应用于这样的方案中的列表的函数？

Question

我正在使用 R5RS(在 Racket 中)。这是我的例子

(map (lambda (x) (list (apply + x) (apply * x))) '((1 2 3) (4 5 6)))
 -> ((6 6) (15 120))

我只是想知道是否有这样的内置函数

(map-apply '(+ *) '((1 2 3) (4 5 6)))

这可能会产生相同的结果。

Answer 1

没有内置的，但您可以编写自己的:

(define (map-apply funcs items)
  (map (lambda (item)
         (map (lambda (func)
                (apply func item))
              funcs))
       items))

不过，您必须传入 (list + *)，而不是 '(+ *)。