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.
|