將十進制數字格式化爲逗號作爲球體中的小數點分隔符

Question

球拍lang中是否提供了將十進制數字轉換爲具有自定義格式的字符串的函數？

我需要格式化十進制字符串格式化爲貨幣風格？

示例：值100.1應該成爲「100,10 CZK"

Answer 1

看~r對數字的自定義格式使用正則表達式替換用逗號替代時期

http://docs.racket-lang.org/reference/strings.html?q=~n#%28def._%28%28lib.racket%2Fformat..rkt%29.~7er%29%29

Answer 2

您可以實現這樣的功能。如下：

(define (decimal->string val curr) 
    (let ([lst (regexp-split #rx"\\." (~a val))]) 
    (string-append 
    (car lst) "," (~a (cadr lst) #:min-width 2 #:pad-string "0") " " curr))) 

對於考試ple，

> (decimal->string 100.1 "CZK") 
"100,10 CZK"