产生一元表示的函数

Question

我应该编写一个接受非负数并生成其一元表示的函数。 我是方案编程的新手。有人能让我摆脱困境吗？

Answer 1

(define int-unary (lambda (n) (if (= n 0) 'z (cons 's (int-unary(n-1))))))

这是我最终得到的东西，它给了我想要的输出。