Haskell Minimum/Maximum Double Constant

Question

Gibt es einen Weg in Haskell, um die Konstante zu erhalten, die die größte und kleinste mögliche positive rationale Zahl größer als Null ist, die durch Doppel repräsentiert werden kann?

Answer 1

maxNonInfiniteFloat :: RealFloat a => a -> a 
maxNonInfiniteFloat a = encodeFloat m n where 
    b = floatRadix a 
    e = floatDigits a 
    (_, e') = floatRange a 
    m = b^e - 1 
    n = e' - e 

minPositiveFloat :: RealFloat a => a -> a 
minPositiveFloat a = encodeFloat 1 $ fst (floatRange a) - floatDigits a 

Answer 2

GHC.Float hat die Funktion [floatRange][2]:

floatRange :: a -> (Int, Int) Quelle

eine konstante Funktion, kann die niedrigsten und höchsten Werte der Exponent Rückkehr

nehmen

was sollte was du willst.