common-lisp - 在常见的 lisp 中，我如何格式化浮点并指定分组、群聊和小数分隔符字符

Question

假设我有浮点数 1234.9
我想将其格式化为 1.234,90
是否有格式指令组合？ ~D ，它可以处理分组和组字符，只处理整数。 ~F根本不处理分组。据我所知，没有一个可以从 . 更改小数点至,
我看到的唯一解决方案是使用 ~D用于整数部分数字分组并将其与 , 连接和小数部分。有更好的想法吗？

Answer 1

如果您不介意拆分整数和小数部分，可以执行以下操作:

(multiple-value-bind (int rest) (floor 1234.56)
   (let ((rest (round (* rest 1000))))
      (format t "~,,'.,:D,~D~%" int rest)))

1.234,560

舍入前的乘法告诉您要打印逗号后的位数。不确定这种方法是否能很好地适应精密打印的自动控制，即 1.5打印为“1,5”而不是“1,500”。