Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- addX([], [], []).
- addX([L], X, Y) :- X is [L|X].
- addX([L|Ls], X, Y) :- addY(Ls, [L|X], Y).
- addY([], [], []).
- addY([L], X, Y) :- Y is [L|Y].
- addY([L|Ls], X, Y) :- addX(Ls, X, [L|Y]).
- divlist(C1, C2) :- addX([a,b,c,d,e], C1, C2).
- addY([L|Ls], X, Y) :- addX(Ls, X, [L|Y]).
- addX(Ls, [L|Y], X ).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement