Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- subsettt([],[]).
- subsettt([_,_],[]).
- subsettt([H|T],[HH|TT]):- myelemm(HH,[H|T]), subsettt([H|T],TT).
- myelemm(H,[H|_]):- !.
- myelemm(V,[_|T]):- myelemm(V,T).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement