string - 格式化 float 而不在小数点后打印零

Question

我想以美观的方式打印 float 。具体来说，我想在小数点后打印两个数字，但前提是这些数字不为零。

如果数字不是偶数，这有效:

(let ((f 1.240))
  (format t "~,2F" f))

--> 1.24 

但如果数字是整数，我会得到:

(let ((f 1240))
  (format t "~,2F" f))

-->1240.00

是否有一些优雅的方法可以做到这一点，或者我是否必须在打印之前手动检查小数点数？

Answer 1

我认为标准格式指令不可能做到这一点。您可以编写自定义格式函数:

(defun my-f (stream arg &optional colon at digits)
  (declare (ignore colon at))
  (prin1 (cond ((= (round arg) arg) (round arg))
               (digits (float (/ (round (* arg (expt 10 digits)))
                                 (expt 10 digits))))
               (t arg))
         stream))

然后像这样使用它:

CL-USER> (format t "~/my-f/" 1)
1
NIL
CL-USER> (format t "~/my-f/" 1.0)
1
NIL
CL-USER> (format t "~/my-f/" pi)
3.141592653589793D0
NIL
CL-USER> (format t "~/my-f/" 1.5)
1.5
NIL
CL-USER> (format t "~2/my-f/" 1)
1
NIL
CL-USER> (format t "~2/my-f/" 1.0)
1
NIL
CL-USER> (format t "~2/my-f/" pi)
3.14
NIL
CL-USER> (format t "~2/my-f/" 1.5)
1.5
NIL