Scheme 方案语言递增顺序

我正在尝试用scheme语言编写代码。我正在尝试编写一个名为Order的函数，如果列表中的整数按递增顺序排列，它将生成true，否则将生成false

例如：

(order? (cons 1 (cons 2 (cons 3 (cons 4 empty)))))
true
(order? (cons 1 (cons 2 (cons 3 (cons 1 empty)))))
false

---

如果希望通过显式递归解决此问题，则以下是列表被视为有序的条件：

• 列表为空，或者
• 该列表只有一个元素，或者
• 它的第一个元素比第二个元素小，并且它的尾部是有序的

---

翻译成Scheme left作为练习

如果您使用的是

empty

，您必须是在编写Racket，而不是标准Scheme。到目前为止，你做了什么来解决你的问题？你应该包括你最好的尝试，以便其他人能够提供帮助；否则，您似乎是在要求某人为您编写代码。也就是说，这是一条单行线。你知道

（<123445）

-->

\t

。现在填写空白：

（定义（订单增加？xs）（\uuuuuuuuuuxs））

。