Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- pack([], []).
- pack([X], [[X]]).
- pack([H, T|TS], [[H]|TR]):-
- not(check(H,T)),
- pack([T|TS], TR).
- pack([H|HS], [[H|TFR]|TR]):-
- pack(HS, [TFR|TR]).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement