一个简单的函数，用于在球拍中将字符串中的数字逗号

Question

在字符串中给数字加逗号，能不能有一个简单的函数用于常见情况？我找到了一种方法，虽然很全面，但看起来非常复杂：https://rosettacode.org/wiki/Commatizing_numbers#Racket

我只想有一个函数，它的工作方式如下：

(addcommas 1234567890)
"1,234,567,890"

(令人有点惊讶的是，拥有许多高级函数的球拍没有针对这种常见需求的内置函数)。

Answer 1

你可以尝试这样做：

(define (addcommas n)
  (define (split n acc)
    (if (< (abs n) 1000)
        (cons n acc)
        (let-values ([(quot rem) (quotient/remainder n 1000)])
          (split quot (cons (abs rem) acc)))))
  (apply ~a (split n '()) #:separator ","))

(addcommas -2332342390)

;; -> "-2,332,342,390"

如果要格式化实数，因为它们具有二进制表示形式，并且转换可能不精确，则必须添加一个精度参数，该参数指定点后的位数：

(define (addcommas-real n precision)
  (let* ((int-part (exact-truncate n))
         (float-part (exact-truncate (* (-  n int-part) (expt 10 precision)))))
    (~a (addcommas int-part) "." (abs float-part))))

(addcommas-real -2332342390.34 2)

;; -> "-2,332,342,390.34"

(addcommas-real -2332342390.34 5)

;; -> "-2,332,342,390.34000"