This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/Logtalk/examples/sicstus/rational.lgt

38 lines
479 B
Plaintext
Raw Normal View History

:- object(rational,
implements(comparingp)).
:- info([
authors 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.