方案语言递增顺序
Scheme language increasing order
我正在尝试用方案语言编写代码。我正在尝试编写一个名为 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 留作练习
我正在尝试用方案语言编写代码。我正在尝试编写一个名为 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 留作练习