라켓의 소수점 구분 기호로 쉼표가있는 문자열에 십진수 서식 지정

Question

racket lang에 사용자 정의 된 형식으로 문자열에 10 진수 변환을 제공하는 함수가 있습니까?

소수 스타일을 통화 스타일로 서식이 지정된 문자열로 포맷해야합니까?

예 : 값 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))) 

시험을 위해 예,

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