module Numeric.Extra(
module Numeric,
showDP,
intToDouble, intToFloat, floatToDouble, doubleToFloat
) where
import Numeric
showDP :: RealFloat a => Int -> a -> String
showDP :: forall a. RealFloat a => Int -> a -> String
showDP Int
n a
x = Maybe Int -> a -> ShowS
forall a. RealFloat a => Maybe Int -> a -> ShowS
showFFloat (Int -> Maybe Int
forall a. a -> Maybe a
Just Int
n) a
x String
""
intToDouble :: Int -> Double
intToDouble :: Int -> Double
intToDouble = Int -> Double
forall a b. (Integral a, Num b) => a -> b
fromIntegral
intToFloat :: Int -> Float
intToFloat :: Int -> Float
intToFloat = Int -> Float
forall a b. (Integral a, Num b) => a -> b
fromIntegral
floatToDouble :: Float -> Double
floatToDouble :: Float -> Double
floatToDouble = Float -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac
doubleToFloat :: Double -> Float
doubleToFloat :: Double -> Float
doubleToFloat = Double -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac