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
(cond [(string? format-exponent) format-exponent]
[(= base 10) "e"]
[else (format "x~s^" base)])
[else (format "*~s^" base)])
(if (negative? exponent) "-" "+")
(%pad (number->string (abs exponent))
#:pad-to 2

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

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