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

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


module Ratio where
--module Ratio(Real(..)) where

import DRatio
import TRational
import Num_Ratio
import Ord_Ratio


instance  (Integral a)	=> Real (Ratio a)  where
    toRational (x:%y)	=  toInteger x :% toInteger y

(Return to Plan 9 Home Page)