строка в десятичном числе в схеме - PullRequest
Новая
       0

строка в десятичном числе в схеме

0 голосов
/ 06 марта 2011

Какую самую прозрачную и элегантную процедуру из строки в десятичное число вы можете создать на схеме?

Она должна давать правильные результаты с помощью "+42", "-6", "-.28" и«496.8128», среди прочего.

Это вдохновлено ранее опубликованным списком в целочисленную задачу: как преобразовать список в num в схеме?

Я провернул свойПервая попытка, потому что она прошла ужасно быстро и поняла, что другие тоже могут поиграть с ней.

Ответы [ 2 ]

1 голос
/ 06 марта 2011

Гораздо короче, также делает результат неточным с десятичной запятой и имеет дело с любым + - префиксом. Элемент регулярного выражения используется только для того, чтобы позже принять правильный синтаксис. 

#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)))
0 голосов
/ 06 марта 2011

Вот первый выстрел. Не безобразно, не красиво, просто дольше, чем хотелось бы. Тюнинг другого дня. Я с удовольствием передам решение чьему-то лучшему творению. 

((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)))
...