10 lines
158 B
Plaintext
10 lines
158 B
Plaintext
|
:- module(list, [contained/2, notcontained/2]).
|
||
|
|
|
||
|
|
contained(H, [H| _]).
|
||
|
|
contained(H, [_| T]) :-
|
||
|
|
contained(H, T).
|
||
|
|
|
||
|
|
notcontained(H, L) :-
|
||
|
|
\+ contained(H, L).
|
||
|
|
|