Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- diff([],[]).
- diff([_],[]).
- even(X) :-Y is mod(X,2), Y =:= 0.
- diff([A,B|Tail],[Diff|DiffTail]):- even(B), even(A), Diff is B-A, diff(Tail,DiffTail).
- diff([_,_|Tail],DiffTail):- diff(Tail,DiffTail).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement