/usr/web/sources/contrib/fernan/nhc98/src/prelude/Ratio/Ord_Ratio.hs

Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Ratio/Ord_Ratio.hs


module Ratio where
--module Ratio(Ord(..)) where

import DRatio
import Eq_Ratio

instance  (Integral a)	=> Ord (Ratio a)  where
    (x:%y) <= (x':%y')	=  x * y' <= x' * y
    (x:%y) <  (x':%y')	=  x * y' <  x' * y

(Return to Plan 9 Home Page)