将功能应用于球拍中的树结构

Question

我正在尝试以Map的形式将函数应用于树，但不确定如何进行操作。这是我的尝试。

(define (MaptoTree f T)
  (if (pair? T)
      ((map (lambda (x) (MaptoTree f x)) (rest T)))
      (f T)))

编辑：删除了有关将结构转换为列表的问题

Answer 1