suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix bug in number rendering

Browse Source
This commit is contained in:
Robby Findler 2013-12-10 12:03:28 -06:00
parent d4ac19e32a
commit 70a86aac84
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
pkgs/drracket-pkgs/drracket/drracket/private/ada.rkt
View File

@ -79,18 +79,23 @@ bernoulli sequence
(cond
[(<= (string-length s) 3) s]
[else
(reverse-string
(regexp-replace* #rx"[0-9][0-9][0-9]"
(reverse-string s)
"\\0,"))]))
(remove-leading-comma
(reverse-string
(regexp-replace* #rx"[0-9][0-9][0-9]"
(reverse-string s)
"\\0,")))]))
(define (reverse-string s) (list->string (reverse (string->list s))))
(define (remove-leading-comma s) (regexp-replace #rx"^," s ""))
(module+ test
(check-equal? (integer->string 0) "0")
(check-equal? (integer->string 1) "1")
(check-equal? (integer->string 100) "100")
(check-equal? (integer->string 1000) "1,000")
(check-equal? (integer->string 1234) "1,234")
(check-equal? (integer->string 1000000) "1,000,000"))
(check-equal? (integer->string 1000000) "1,000,000")
(check-equal? (integer->string 100000) "100,000"))
#|