ordered.pl

details

attribute	value
description
owner	Johannes Waldmann
uploaded	2017-08-17 03:45:17.0
disk size	375 Bytes
downloadable	true

type

attribute	value
name	no_type
processor id	1
description	this is the default benchmark type for rejected benchmarks and benchmarks that are not associated with a type.
owning community	none

contents

% Author: Thomas Stroeder
% terminating

%query: ordered(i).
ordered([]) :- !.
ordered([_]) :- !.
ordered(Xs) :- head(Xs,X), tail(Xs,Ys), head(Ys,Y), tail(Ys,Zs), less(X,s(Y)), ordered([Y|Zs]).

head([],_).
head([X|_],X).

tail([],[]).
tail([_|Xs],Xs).

less(0,Y) :- !, eq(Y,s(_)).
less(X,Y) :- p(X,Px), p(Y,Py), less(Px,Py).

p(0,0).
p(s(X),X).

eq(X,X).

popout

content may be truncated. 'popout' for larger text window.

actions get anonymous link download benchmark