2017-04-26 16 views

答えて

1

あなたはこのような機能を実装することができます

(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" 
関連する問題