9f1b358c04
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1486 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
15 lines
207 B
Plaintext
15 lines
207 B
Plaintext
|
|
:- module(test, [test/0, names/0]).
|
|
|
|
:- use_module(list, [contained/2]).
|
|
:- use_module(meta, [meta/1]).
|
|
|
|
names :-
|
|
contained(P, [paulo, carlos, helena]),
|
|
write(P), nl,
|
|
fail.
|
|
names.
|
|
|
|
test :-
|
|
meta(names).
|