Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- entre(P,Q,_) :- P>Q , ! , fail.
- entre(P,_,P).
- entre(P,Q,R) :- P1 is P+1 , entre(P1,Q,R).
- pairs(A,B,C) :- entre(A,B,C) , C mod 2 =:= 0 .
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement