例如,我有这个字符串:" 6119726089.12814713"
如果我(string->number "6119726089.12814713")
- 使用SISC实施,结果为6.119726089128147e9
- 在Guile实施中为6119726089.128147
,但我想要一个确切的数字,例如:611972608912814713/100000000
没有损失精度。
我喜欢像(string-> exact)这样的函数或类似的东西。
注意:请修复我的非母语英语并删除此消息。感谢。
答案 0 :(得分:2)
使用(string->number "#e6119726089.12814713")
将数字精确解析。这适用于至少Racket和Guile。但是,它可能无法在其他Scheme实现上正常工作;他们可以先解析为不精确,然后转换。
这是OP要求的string->exact
函数的可移植实现。我已经使用一系列输入进行了手动测试,但您应该进行自己的测试以确保它符合您的需求:
(define (string->exact str)
(define zero (char->integer #\0))
(let loop ((result #f)
(factor 1)
(seen-dot? #f)
(digits (string->list str)))
(if (null? digits)
(and result (/ result factor))
(let ((cur (car digits))
(next (cdr digits)))
(cond ((and (not result) (not seen-dot?) (char=? cur #\-))
(loop result (- factor) seen-dot? next))
((and (not seen-dot?) (char=? cur #\.))
(loop result factor #t next))
((char<=? #\0 cur #\9)
(loop (+ (* (or result 0) 10) (- (char->integer cur) zero))
(if seen-dot? (* factor 10) factor)
seen-dot? next))
(else #f))))))