Data commit

Task/Number-names/FreeBASIC/number-names.basic

@@ -0,0 +1,58 @@
+dim shared as string*9 lows(0 to 19) = {"", "one", "two", "three", "four",_
+    "five", "six", "seven", "eight", "nine", "ten", "eleven", "twelve",_
+    "thirteen", "fourteen", "fifteen", "sixteen", "seventeen",_
+    "eighteen", "nineteen"}
+dim shared as string*7 tens(0 to 9) = {"", "", "twenty", "thirty", "forty",_
+    "fifty", "sixty", "seventy", "eighty", "ninety"}
+dim shared as string*8 lev(0 to 3) = {"", "thousand", "million", "billion"}
+
+function numname_int( byval n as integer ) as string
+    if n = 0 then return "zero"
+    if n < 0 then return "negative " + numname_int( -n )
+    dim as integer t = -1, lasttwo, hundreds
+    redim as integer triples(0 to 0)
+    dim as string ret, tripname
+    while n > 0
+        t += 1
+        triples(t) = n mod 1000
+        n \= 1000
+    wend
+    for i as integer = t to 0 step -1
+        tripname = ""
+        if triples(i) = 0 then continue for
+        lasttwo = triples(i) mod 100
+        hundreds = triples(i)\100
+        if lasttwo < 20 then
+            tripname = lows(lasttwo) + tripname + " "
+        else
+            tripname = tens(lasttwo\10) + "-" + lows(lasttwo mod 10) + " " + tripname
+        end if
+        if hundreds > 0 then
+             if lasttwo > 0 then tripname = " and " + tripname
+             tripname = lows(hundreds)+" hundred" + tripname
+        end if
+        if i=0 and t>0 and hundreds = 0 then tripname = " and " + tripname
+        tripname += lev(i)+" "
+        ret = ltrim(ret) + ltrim(tripname)
+    next i
+    return ltrim(rtrim(ret))
+end function
+
+function numname( n as double ) as string
+    if n=int(n) then return numname_int(int(n))
+    dim as string prefix = numname_int( int(abs(n)) )+" point "
+    dim as string decdig = str(abs(n)-int(abs(n))), ret
+    if n < 0 then prefix = "negative "+prefix
+    ret = prefix
+    for i as uinteger = 3 to len(decdig)
+        ret = ret + numname(val(mid(decdig,i,1)))+" "
+    next i
+    return ltrim(rtrim(ret))
+end function
+
+print numname(0)
+print numname(1.0)
+print numname(-1.7)
+print numname(910000)
+print numname(987654)
+print numname(100000017)