球拍是什么程序

Question

我有一个程序，但实际上我不知道它做了什么。 有人会解释一下吗？

(define (stj fun listt)
  (if (null? listt)
      `()
      (cons (fun (car listt)) (stj fun (cdr listt)))))

Answer 1

这是map程序，请检查documentation。它将过程和列表作为参数，并将过程应用于输入列表中的每个元素，生成包含结果的输出列表：

(stj sqr '(1 2 3 4 5))
=> '(1 4 9 16 25)