select1.pl

details

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

% Adapted from LP/talp_apt/select1.pl
% terminating

%query: select(i,i,o).
select(_,[],_) :- !, failure(a).
select(X,Y,Zs) :- head(Y,X), tail(Y,Zs).
select(X,Y,[H|Zs]) :- head(Y,H), tail(Y,T), select(X,T,Zs).

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

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

failure(b).

popout

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

actions get anonymous link download benchmark