3ac73c8881
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1713 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
13 lines
132 B
Plaintext
13 lines
132 B
Plaintext
|
|
:- object(lists).
|
|
|
|
:- threaded.
|
|
|
|
:- public(member/2).
|
|
|
|
member(H, [H| _]).
|
|
member(H, [_| T]) :-
|
|
member(H, T).
|
|
|
|
:- end_object.
|