将数字转换为英文字母列表
将数字转换为英文字母列表
提问于 2017-03-08 08:44:42
我有一个下面的函数，它将数字的输入转换为这些数字的部分翻译的单词输出。
使用乘积和商，它在将数字分成组的同时添加数字的单词表示。
例如：
(number-name 87969087) -> '(87 million 969 thousand 87)
(number-name 1000000) -> '(1 million)我试图通过完全翻译那些小于1000的数字来完成我的问题。我正在尝试实现一个小于-1000的函数，它将显示那些较小的数字，因为列表正在构建中。同时：
;; for less than 1000
; state words for 1-19
(define baseNumbers '(one two three four five six seven eight nine ten eleven twelve thirteen fourteen fifteen sixteen seventeen eighteen nineteen))和
; state words for multiples of ten
(define multiples '(twenty thirty forty fifty sixty seventy eighty ninety))所以
(number-name 1110) -> '(one thousand one hundred ten)这也很难想出一种方法来显示0的输入，通过这样做，如果输入不是0，就不会显示0。
(define (number n)
(define units '(thousand million billion trillion quadrillion))
(define (nsplit n units acc lst)
(define q (quotient n 1000))
(define r (remainder n 1000))
(if (zero? n) lst
(cond [(zero? acc)
(if (zero? r)
(nsplit q units (add1 acc) lst)
(nsplit q units (add1 acc) (cons r lst)))]
[(zero? r)
(nsplit q (cdr units) acc lst)]
[else
(nsplit q (cdr units) acc (cons r (cons (car units) lst)))])))
(nsplit n units 0 empty))回答 1
Stack Overflow用户
回答已采纳
发布于 2017-03-09 11:47:08
您可以将整数转换为符号列表，方法是将数字拆分为3位数的组，将单元附加到每个组，然后将3位数的组进一步转换为符号列表。下面是一个示例实现：
(define (num->lst num)
(define bases '(one two three four five six seven eight nine ten eleven twelve
thirteen fourteen fifteen sixteen seventeen eighteen nineteen))
(define multiples '(twenty thirty forty fifty sixty seventy eighty ninety))
(define units '(empty thousand million billion trillion quadrillion quintillion
sextillion septillion octillion nonillion decillion))
(define (below-1000 num bases mults)
(cond [(zero? num) empty]
[(< num 20) (list (list-ref bases (sub1 num)))]
[(< num 100) (list* (list-ref mults (- (quotient num 10) 2))
(below-1000 (remainder num 10) bases mults))]
[else (list* (list-ref bases (sub1 (quotient num 100))) 'hundred
(below-1000 (remainder num 100) bases mults))]))
(define (nsplit num lst units)
(define q (quotient num 1000))
(define r (remainder num 1000))
(if (zero? num) lst
(cond [(zero? r) (nsplit q lst (cdr units))]
[else (nsplit q (append (below-1000 r bases multiples)
(cons (car units) lst)) (cdr units))])))
(if (zero? num) '(zero)
(remove 'empty (nsplit num empty units))))below-1000将小于1000的数字转换为符号列表。在使用below-1000转换3位数字时，nsplit将数字分解为3位数组，并将单位附加到每个组。
例如,
> (num->lst 0)
'(zero)
> (num->lst 1000000001)
'(one billion one)
> (num->lst 35579005)
'(thirty five million five hundred seventy nine thousand five)页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/42660997
复制相关文章
相似问题
腾讯云开发者
Copyright © 2013 - 2026 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 
粤公网安备44030502008569号
腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号