Haskell 最小/最大双常数

Question

Haskell 中是否有任何方法可以获得大于零的最大和最小可能正有理数的常数，该常数可以用 double 数表示？

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