Haskell Minimum/Maximum Double Konstante

Question

Gibt es eine Möglichkeit, in Haskell die Konstante zu ermitteln, die die größte und kleinste mögliche positive rationale Zahl größer als Null ist, die durch Doppelzahlen dargestellt 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, die den niedrigsten und höchsten Wert zurückgibt, den der Exponent annehmen kann

was Sie ja auch wollen.