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

Switch from "x" to "*".

Browse Source 
As previously discussed with Ryan.
This commit is contained in:
Eli Barzilay 2013-04-26 05:13:17 -04:00
parent f93a908911
commit b8e47541bd
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/racket/format.rkt
View File

@ -318,7 +318,7 @@
(string-append (string-append
(cond [(string? format-exponent) format-exponent] (cond [(string? format-exponent) format-exponent]
[(= base 10) "e"] [(= base 10) "e"]
[else (format "x~s^" base)]) [else (format "*~s^" base)])
(if (negative? exponent) "-" "+") (if (negative? exponent) "-" "+")
(%pad (number->string (abs exponent)) (%pad (number->string (abs exponent))
#:pad-to 2 #:pad-to 2

4
collects/tests/racket/format.rkt
View File

@ -251,7 +251,7 @@
"9.876e-01") "9.876e-01")
(tc (~r #:notation 'exponential 100 #:base 2) (tc (~r #:notation 'exponential 100 #:base 2)
"1.1001x2^+06") "1.1001*2^+06")
(tc (~r #:notation 'exponential 1234 #:format-exponent "E") (tc (~r #:notation 'exponential 1234 #:format-exponent "E")
"1.234E+03") "1.234E+03")
@ -271,7 +271,7 @@
(tc (~r 3735928559 #:base '(up 16) #:precision 6 #:notation 'exponential) (tc (~r 3735928559 #:base '(up 16) #:precision 6 #:notation 'exponential)
;; note rounding! ;; note rounding!
"D.EADBEFx16^+07") "D.EADBEF*16^+07")
(tc (~r 33.99508664763296 #:precision 1 #:min-width 5) (tc (~r 33.99508664763296 #:precision 1 #:min-width 5)
" 34") " 34")