11 lines
129 B
Plaintext
11 lines
129 B
Plaintext
|
|
||
|
|
:-object(usesconflict).
|
||
|
|
|
||
|
|
:- uses(list, [member/2]).
|
||
|
|
|
||
|
|
member(H, [H| _]).
|
||
|
|
member(H, [_| T]) :-
|
||
|
|
member(H, T).
|
||
|
|
|
||
|
|
:- end_object.
|