scheme - Racket中 “map”的定义是什么

Question

在 Racket 中不使用任何其他高级函数的情况下，“map”函数的定义是什么？

我需要一个堆栈递归版本。

Answer 1

map 函数的简单定义可以是:

(define (map f l)
  (if (null? l)
      '()
      (cons (f (car l)) (map f (cdr l)))))

(map (lambda (n) (* n n)) '(1 2 3 4)) ;; => (1 4 9 16)