Data/Floating/Classes.hs

   1 module Data.Floating.Classes where
   2
   3 import Prelude hiding (Floating(..), RealFloat(..))
   4
   5 class Fractional a => Floating a where
   6     (**)  :: a -> a -> a
   7     acos  :: a -> a
   8     asin  :: a -> a
   9     atan  :: a -> a
  10     cos   :: a -> a
  11     sin   :: a -> a
  12     tan   :: a -> a
  13
  14 class Floating a => RealFloat a where
  15     copysign :: a -> a -> a
  16     atan2    :: a -> a -> a
  17     infinity :: a
  18     nan      :: a
  19     pi       :: a
  20
  21     infinity = 1/0
  22     nan      = 0/0
  23     pi       = 4 * atan 1