common-lisp - 如何控制 Common Lisp 格式的小数点？

Question

如何将值传递给控制要打印多少小数点的函数。

我可以使用 $ 或 f，例如

(format t "~,3f" 3.141592)
(format t "~2$" 3.141592)

但是如何做这样的事情

(defun control-format (x)
  (format nil "~,xf" 3.141592))

所以我们可以将任意数字作为参数传递给 control-format 来控制我们想要多少个十进制数。

谢谢。

Answer 1

使用 v 代替文字数字:

* (dotimes (i 8)
    (format t "~,vf~%" i pi))
3.
3.1
3.14
3.142
3.1416
3.14159
3.141593
3.1415927
NIL
*