Scheme 如何得到这个函数的倒数？

鉴于功能：

(define (pp sxp)
  (cond
    ((null? sxp) sxp)
    ((list? sxp) (let-values (((args op) (split-at-right sxp 1)))
                   (cons (car op) (map pp args))))
    (else sxp)))

我什么都试过了，但没能解决。

---

谢谢大家!

可能效率不高，但您可以做到这一点

定义pf-sxp 康德 无效的sxp sxp 列表sxp追加rest sxp列表第一个sxp else sxp

---

您可能需要注意长度为1的列表。

此函数的作用是什么？反过来会怎么样？我什么都试过了。。。。分享你最大的努力；你在尝试什么，出了什么问题？