球拍什麼程序

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)