18 lines
256 B
Prolog
18 lines
256 B
Prolog
|
|
:- use_module(library(cuda)).
|
|
|
|
:- initialization(main).
|
|
|
|
main :-
|
|
cuda_extensional(db/2, _X),
|
|
cuda_rule((a(X, Y) :- db(Y, Z), db(X, Z), db(1, Z) ), Q),
|
|
cuda_eval(Q, L), writeln(here),
|
|
writeln(L).
|
|
|
|
db(1,a).
|
|
db(2,a).
|
|
db(5,b).
|
|
db(4,q).
|
|
db(6,w).
|
|
db(10,s).
|