Racket 球拍的程序是什么

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

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

---

这是

map

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

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