Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- abs(0,0) :- write('yes').
- abs(X,Y) :- 0 is (X+B), write('yes').
- abs(X,Y) :- X >=0,!.
- abs(X,Y) :- Y is -X.
- ~
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement