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][2]：

floatRange ::一个 - >（INT，INT）来源

常数函数，返回的最低和最高值的指数可以假设

这应该是你想要的。