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）來源

常數函數，返回的最低和最高值的指數可以假設

這應該是你想要的。