shuffle.pl

details

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

%query: query(i).

/* from Walther, 1994 */

append(nil,XS,XS).
append(cons(X,XS),YS,cons(X,ZS)) :- append(XS,YS,ZS).
reverse(nil,nil).
reverse(cons(X,nil),cons(X,nil)).
reverse(cons(X,XS),YS) :- reverse(XS,ZS), append(ZS,cons(X,nil),YS).

shuffle(nil,nil).
shuffle(cons(X,XS),cons(X,YS)) :- reverse(XS,ZS), shuffle(ZS,YS).

query(XS) :- shuffle(cons(X,XS),YS).

popout

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

actions get anonymous link download benchmark