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

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


module Ratio where
--module Ratio(Eq(..)) where

import DRatio

instance  (Integral a)	=> Eq (Ratio a)  where
    (x:%y) == (x':%y')	=  x == x' && y == y'
    (x:%y) /= (x':%y')	=  x /= x' || y /= y'

(Return to Plan 9 Home Page)