scheme - 方案语言升序

Question

我正在尝试用方案语言编写代码。我正在尝试编写一个名为 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

标签： schemeracket

Answer 1

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

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

翻译成 Scheme 留作练习