Atom Translations and CUDA stub
This commit is contained in:
15
packages/cuda/test.yap
Normal file
15
packages/cuda/test.yap
Normal file
@@ -0,0 +1,15 @@
|
||||
|
||||
:- 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) ), _).
|
||||
|
||||
db(1,a).
|
||||
db(2,a).
|
||||
db(5,b).
|
||||
db(4,q).
|
||||
db(6,w).
|
||||
db(10,s).
|
||||
Reference in New Issue
Block a user