Scheme中可变参数映射函数的实现(Implementation of variadic map function in Scheme)

 正如你在下面的例子中看到的，Scheme中的map函数是可变参数函数。 
 
> (map (lambda (number1 number2)
     (+ number1 number2))
   '(1 2 3 4)
   '(10 100 1000 10000))
'(11 102 1003 10004)
 
 我想实现这个可变参数选项，但我只能成功找到两个参数映射实现： 
 
(define (map f lst)
   (if (null? lst)
       '()
       (cons (f (car lst)) (map f (cdr lst)))))
 
 有人可以帮助我实现可变地图功能吗？ 

As you can see in the example below, map function in Scheme is variadic function.
 
> (map (lambda (number1 number2)
     (+ number1 number2))
   '(1 2 3 4)
   '(10 100 1000 10000))
'(11 102 1003 10004)
 
I want to implement this variadic option, but I only succeeded to find the two arguments map implementation:
 
(define (map f lst)
   (if (null? lst)
       '()
       (cons (f (car lst)) (map f (cdr lst)))))
 
Can someone help me implement variadic map function?

原文：https://stackoverflow.com/questions/21629203