在Haskell中显示无指数部分的小数部分

properFraction :: (RealFrac a, Integral b) => a -> (b, a)

import Numeric

showDecimalParts :: RealFrac a => a -> String
showDecimalParts x =
  let (integerPart, decimalPart) = properFraction x
      decimalStr = showFFloat Nothing decimalPart ""
  in "无指数部分: " ++ show integerPart ++ ", 小数部分: " ++ decimalStr

main :: IO ()
main = do
  let x = 3.14159
  putStrLn $ showDecimalParts x

无指数部分: 3, 小数部分: 0.14159