检查列表是否已排序

Question

我正在尝试比较 a 的元素list以integer查看它们是否已排序（或未排序）。我在用着Amzi!

我尝试了几次，但没有任何效果......:(

ordered([X]).
ordered([N|[N1|L]]) :- N <= N1, ordered([N1|L]).

ordered_([X]).
ordered_([Head,Head1|Tail]) :- Head <= Head1, ordered_([Head1|Tail]).

no如果输入此列表，则两者都会返回：

ordered([1,2,3,4]).
ordered_([1,2,3,4]).

我明白我需要将head与进行比较head of the tail。

Answer 1

看起来它不应该比更复杂

ordered( []      ) .
ordered( [_]     ) .
ordered( [X,Y|Z] ) :- X =< Y , ordered( [Y|Z] ) .