Question

您可以在Scheme中创建的最透明，最优雅的字符串到十进制数过程是什么？

它应该用“+ 42”，“ - 6”，“ - 。28”和“496.8128”等产生正确的结果。

这受到之前发布的整数问题列表的启发：how to convert a list to num in scheme?

我抓住了我的第一次尝试，因为它快速变得丑陋并且意识到其他人也可能喜欢玩它。

Answer 1

更短，也会使结果与小数点不精确，并处理任何+ - 前缀。 regexp事件仅用于稍后假设有效语法。

#lang racket/base
(require racket/match)
(define (str->num s)
  ;; makes it possible to assume a correct format later
  (unless (regexp-match? #rx"^[+-]*[0-9]*([.][0-9]*)?$" s)
    (error 'str->num "bad input ~e" s))
  (define (num l a)
    (match l
      ['() a]
      [(cons #\. l) (+ a (/ (num l 0.0) (expt 10 (length l))))]
      [(cons c l) (num l (+ (* 10 a) (- (char->integer c) 48)))]))
  (define (sign l)
    (match l
      [(cons #\- l) (- (sign l))]
      [(cons #\+ l) (sign l)]
      [_ (num l 0)]))
  (sign (string->list s)))

Answer 2

这是第一次拍摄。不是丑陋，不是美丽，只是比我想要的更长。再调整一天。我很乐意将解决方案传递给某人更好的创作。

((define (string->number S)
  (define (split L c) 
    (let f ((left '()) (right L))
      (cond ((or (not (list? L)) (empty? right)) (values L #f))
            ((eq? c (car right)) (values (reverse left) (cdr right)))
            (else (f (cons (car right) left) (cdr right))))))
  (define (mkint L) 
    (let f ((sum 0) (L (map (lambda (c) (- (char->integer c) (char->integer #\0))) L)))
      (if (empty? L) sum (f (+ (car L) (* 10 sum)) (cdr L)))))
  (define list->num
    (case-lambda
      ((L) (cond ((empty? L) 0) 
                 ((eq? (car L) #\+) (list->num 1 (cdr L))) 
                 ((eq? (car L) #\-) (list->num -1 (cdr L)))
                 (else (list->num 1 L))))
      ((S L) (let*-values (((num E) (split L #\E)) ((W F) (split num #\.)))
               (cond (E (* (list->num S num) (expt 10 (list->num E))))
                     (F (* S (+ (mkint W) (/ (mkint F) (expt 10 (length F))))))
                     (else (* S (mkint W))))))))
  (list->num (string->list S)))

scheme中的字符串到十进制数

2 个答案: