LISP - 小数点后的数字

有谁知道如何在 Lisp 中指定浮点数小数点后的位数？

假设我在 REPL 上打印此命令：

CL-USER 3 > (format t "~,15f" (float (/ 1 7)))

I get:

0.142857150000000 

但是该数字四舍五入到小数点后第 8 位，我需要查看小数点后很多位才能查看该数字是否循环并计算周期。 （实际上我开始尝试解决 Project Euler 的问题 26）。

我需要得到这样的东西：

CL-USER 3 > (format t "~,15f" (float (/ 1 7)))
0.142857142857142857142857142857142857.... 

谢谢你，

Luca

Common Lisp 在其标准中没有任意精确的浮点数。

Common Lisp 在标准中定义了四种浮点类型：SHORT-FLOAT, SINGLE-FLOAT, DOUBLE-FLOAT, LONG-FLOAT.

您可以使用该函数将比率强制转换为浮点数COERCE（LispWorks 中的示例）：

CL-USER 1 > (coerce (/ 1 7) 'double-float)
0.14285714285714285D0

or as a LONG-FLOAT在 LISP 中

[1]> (coerce (/ 1 7) 'long-float)
0.14285714285714285714L0

要计算更长的浮点数，您需要 Common Lisp 的扩展。GNU CLISP https://www.gnu.org/software/clisp/有一个非便携式扩展，可以设置（二进制）位数：

(SETF (EXT:LONG-FLOAT-DIGITS) n) http://www.clisp.org/impnotes/num-concepts.html#lfd

Example:

[3]> (SETF (EXT:LONG-FLOAT-DIGITS) 1000)    
1000
[4]> (coerce (/ 1 7) 'long-float)
0.142857142857142857142857142857142857142857142857142857
142857142857142857142857142857142857142857142857142857
142857142857142857142857142857142857142857142857142857
142857142857142857142857142857142857142857142857142857
142857142857142857142857142857142857142857142857142857
142857142857142857142857142857142857143L0