vlcnd.pl

details

attribute	value
description
owner	Johannes Waldmann
uploaded	2017-08-17 03:45:17.0
disk size	351 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

% Variable list construction and destruction
% Adapted from LP/BCGGV05/t.pl
% terminating

%query: vlcnd(i).
vlcnd(N) :- vl(N,Xs), select(_,Xs,Ys), vl(M,Ys), vlcnd(M).
vlcnd(0).

vl(0,L) :- !, eq(L,[]).
vl(N,[_|Xs]) :- p(N,P), vl(P,Xs).

select(X,[Y|Xs],[Y|Ys]) :- select(X,Xs,Ys).
select(X,[X|Xs],Xs).

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