在哈斯克尔被巨大的数字分割

Question

执行 1/200 时如何获得十进制格式的数字！

Prelude>factorial x = product([1..x])
Prelude>x = factorial 200
Prelude>1/x
0.0

Answer 1

你可以使用 CReal：

Data.Number.CReal> showCReal 400 (1/product [1..200])
"0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000012679769534809624217530164"
Data.Number.CReal> showCReal 30 (1e375/product [1..200])
"1.267976953480962421753016371075"

400/30显示多少位数字。

如果你喜欢Double的速度，你可以考虑在计算乘积之前缩放每个数字。

>  product (map (100/) [1..200])
1.2679769534809638e25

不过，这需要对输出进行一些重新解释。