Как форматировать числа, используя пробел в качестве разделителя в Clojure?

Question

Например, можно форматировать, используя запятую как separater:

(format "%,d"(BigInteger. "fffff" 16)) 
;=> 1,048,575 

Можно ли использовать пространство вместо:

1 048 575 ? 

Answer 1

Вы можете использовать cl-format из clojure.pprint, который является реализация Common Lisp довольно обширный и очень мощный format

user=> (cl-format nil "The answer is ~,,' :D" 123456789) 
"The answer is 123 456 789" 

CL-х cl-format имеет, как обычный Clojure format, несколько директив, здесь D для цифр. Модификатор : сообщает ему печатать запятые между группами цифр, однако ' за второй запятой указывает использование пробела в качестве символа-запятой для использования.

Answer 2

Я не уверен, что это лучший способ, однако, вы можете благополучно замените , пространством. В любом случае, после форматирования числа это просто строка.

(clojure.string/replace (format "%,d" (BigInteger. "fffff" 16)) "," " ") 

Я пытался использовать java.text.DecimalFormat, и установить разделитель группировки с помощью метода setGroupingSeparator из java.text.DecimalFormatSymbols, но не удалось.

Answer 3

не думаю, что это возможно используя java.util.Formatter (это то, что clojure.core/format в конечном счете использует). Код ниже, однако, даст желаемый результат:

(import 'java.text.DecimalFormatSymbols 
     'java.text.DecimalFormat 
     'java.text.FieldPosition) 

(defn format-bigint [i] 
    (let [format (DecimalFormatSymbols.) 
     out (StringBuffer.)] 
    (.setGroupingSeparator format \space) 
    (.format (DecimalFormat. ",###" format) i out (FieldPosition. java.text.NumberFormat/INTEGER_FIELD)) 
    (.toString out)))