Racket，使用任意数量的参数执行任意函数

Question

我想按照以下方式定义一个通用函数：

(define (gen-func other-func)
   (other-func))

这将执行传递给它的函数。但是，我希望能够使用other-func 传递参数。 所以如果我有：

(define (add-test a b c d)
    (+ a b c d))

和

(define (divide-test a b)
    (/ a b))

那我就可以了

(gen-func divide-test 3 4)

和

(gen-func add-test 1 2 3 4)

但它实际上会做我想要的（通过传递任意数量的参数来执行函数）。这是我学习 Racket 过程的一部分。

Answer 1

您正在寻找的是apply 和其他参数：

(define (gen-func func . args)
   (apply func args))

虚线参数列表func . args 导致第一个参数之后的所有参数都被收集到列表args 中。之所以这样是因为(func . args)和(cons func args)是一样的，所以在调用函数时，func设置为(car arglist)，args设置为(cdr arglist)，也就是列表第一个之后的争论。