75392e54c7
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@757 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
38 lines
478 B
Plaintext
38 lines
478 B
Plaintext
|
|
:- object(rational,
|
|
implements(comparingp)).
|
|
|
|
|
|
:- info([
|
|
author is 'Paulo Moura',
|
|
version is 1.0,
|
|
date is 2000/4/22,
|
|
comment is 'Implements comparison between rational numbers represented as Num/Den.']).
|
|
|
|
|
|
N1/D1 < N2/D2 :-
|
|
{N1*D2 < N2*D1}.
|
|
|
|
|
|
N1/D1 =< N2/D2 :-
|
|
{N1*D2 =< N2*D1}.
|
|
|
|
|
|
N1/D1 > N2/D2 :-
|
|
{N1*D2 > N2*D1}.
|
|
|
|
|
|
N1/D1 >= N2/D2 :-
|
|
{N1*D2 >= N2*D1}.
|
|
|
|
|
|
N1/D1 =:= N2/D2 :-
|
|
{N1*D2 =:= N2*D1}.
|
|
|
|
|
|
N1/D1 =\= N2/D2 :-
|
|
{N1*D2 =\= N2*D1}.
|
|
|
|
|
|
:- end_object.
|