将字符串形式的数字转换为计划中的整数

Question

如何将可拼出数字的字符串（例如“4”）转换为整数？总之，我试图将“四”改为4.我需要转换的数字范围是从1到99.九以上的数字将有一个破折号（例如：25）。

我试过，string-> number，但是这返回false。我不知道还有什么可以尝试的。

请帮忙。

Answer 1

下面是从它的字符串形式转换一个数字以整数形式的一种方式：

(define (string->num string) 
    (define dict '(("one" 1) ("two" 2) ("three" 3) ("four" 4) ("five" 5) 
       ("six" 6) ("seven" 7) ("eight" 8) ("nine" 9) ("ten" 10) 
       ("eleven" 11) ("twelve" 12) ("thirteen" 13) ("fourteen" 14) 
       ("fifteen" 15) ("sixteen" 16) ("seventeen" 17) ("eighteen" 18) 
       ("ninteen" 19) ("twenty" 20) ("thirty" 30) ("forty" 40) 
       ("fifty" 50) ("sixty" 60) ("seventy" 70) ("eighty" 80) 
       ("ninety" 90))) 
    (define (get-num str lst) 
    (cond [(empty? lst) 0] 
      [(equal? str (first (first lst))) 
      (second (first lst))] 
      [else (get-num str (rest lst))])) 
    (define str-lst (regexp-split #rx"-" string)) 
    (define len (length str-lst)) 
    (define base (get-num (first str-lst) dict)) 
    (cond [(equal? len 1) 
     base] 
     [(equal? len 2) 
     (+ base (get-num (second str-lst) dict))])) 

函数使用正则表达式分裂到串分离成两非连字部分，例如。 (regexp-split #rx"-" "twenty-four")返回'("twenty" "four")，并且(regexp-split #rx"-" "one")返回'("one")。这个想法是使用词典（列表清单）作为源，查找字符串的值，如果是单个字符串，或者查找两个字符串的值（如果有连字符）。如果有两个字符串，则会添加它们的值，例如。从'("twenty" "four")开始，查找“二十”和“四”的值，之后它们被添加以返回24（20 + 4）。

Answer 2

这里是一个有趣的解决方案：

(define count 
    (lambda (limit) 
    (let loop ((i 0)) 
     (let ((number (format #f "~r" i))) 
     (if (equal? number limit) 
      i 
      (loop (+ i 1)))))))