Scripting Helpers is winding down operations and is now read-only. More info→

How can I turn a number into words?

Asked by

Bubby4j 231

11 years ago

Say you have a number, make it 192,540,520

How can you turn this number into this string: one hundred ninety two million five hundred fourty thousand five hundred twenty

1 answer

Answered by

AxeOfMen 434

11 years ago

This is a really fun exercise that involves recursion. I highly recommend attempting to work through this problem on your own before simply using the solution I present below. Take your time. Experiment with it. Have fun!

With that said, I present my solution here...

01local stringVals = {
02    [0] = "",
03    [1] = "one",
04    [2] = "two",
05    [3] = "three",
06    [4] = "four",
07    [5] = "five",
08    [6] = "six",
09    [7] = "seven",
10    [8] = "eight",
11    [9] = "nine",
12    [10] = "ten",
13    [11] = "eleven",
14    [12] = "twelve",
15    [13] = "thirteen",
16    [14] = "fourteen",
17    [15] = "fifteen",
18    [16] = "sixteen",
19    [17] = "seventeen",
20    [18] = "eighteen",
21    [19] = "nineteen",
22    [20] = "twenty",
23    [30] = "thirty",
24    [40] = "forty",
25    [50] = "fifty",
26    [60] = "sixty",
27    [70] = "seventy",
28    [80] = "eighty",
29    [90] = "ninety",
30    [100] = "hundred",
31    [1000] = "thousand",
32}
33 
34local groupNames = {
35    [1] = "",
36    [2] = " thousand ",
37    [3] = " million ",
38    [4] = " billion ",
39}
40 
41local function groupToWord(number)
42    local result = stringVals[number]
43    if not result then
44        result = ""
45        local hundreds = math.floor(number/100)
46        if hundreds > 0 then
47            result = result .. stringVals[hundreds] .. " " .. stringVals[100] .. " "
48        end
49        number = number - hundreds * 100
50        local tens = math.floor(number/10)
51        number = number - tens * 10
52        if tens == 1 and number > 0 then
53            --address funny names eleven thru nineteen
54            result = result .. stringVals[number + 10]
55        else
56            if tens > 0 then
57                result = result .. stringVals[tens * 10] .. " "
58            end
59            if number > 0 then
60                result = result .. stringVals[number]
61            end
62        end
63    end
64    return result
65end
66 
67local function numberToWords(number, groupIndex)
68    if number then
69        groupIndex = groupIndex or 1
70        local numStr = tostring(number)
71        local endStr = numStr:sub(-3)
72        local front = numStr:sub(1,-4)
73        return numberToWords(tonumber(front), groupIndex + 1) .. groupToWord(endStr) .. groupNames[groupIndex]
74    else
75        return ""
76    end
77end
78 
79for i = 100, 2000, 13 do
80    print(i, numberToWords(i))
81end
 View all 81 lines...

select output:

178 one hundred seventy eight

217 two hundred seventeen

334 three hundred thirty four

555 five hundred fifty five

685 six hundred eighty five

867 eight hundred sixty seven

1010 one thousand ten

1491 one thousand four hundred ninety one

1816 one thousand eight hundred sixteen

1998 one thousand nine hundred ninety eight

192540520 one hundred ninety two million five hundred forty thousand five hundred twenty

How can I turn a number into words?

1 answer

Answer this question