Haskell 最小/最大双常数

Question

Haskell 有没有办法获得常数，该常数是可以用双精度数表示的大于零的最大和最小可能正有理数？

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 具有以下功能 floatRange ：

floatRange::a -> （整数，整数）

一个常数函数，返回指数可能呈现的最低和最高值

这应该是你想要的。