调用函数列表并应用于一个参数方案

Question

如果我想运行对那个论点进行多次测试，是否有一种简单的方法可以做到这一点？喜欢‘(add1 list?number?square) 3) and get (4 #f #t 9)?

（定义（构造（functList argv））

Answer 1

在函数列表上使用 map，将每个应用到值：

(define (f-map fns v)
  (map (lambda (f) (f v)) fns))

> (f-map (list add1 list? number?) 3)
'(4 #f #t)

Calling a list of functions and applying to one argument scheme