Number names: Difference between revisions

Line 4,236:

Implemented as an [[Executable_library]] for use in [[Names_to_numbers#Phix|Names_to_numbers]].

The distribution now contains builtins\ordinal.e which implements spell() as ordinal(atom n, bool bJustSpell=true), see the manual.

<lang Phix>-- ~~demo/rosetta/Number_names.exw~~

-- demo/rosetta/Number_names.exw

constant twenties = {"zero","one","two","three","four","five","six","seven","eight","nine","ten",

constant twenties = {"zero","one","two","three","four","five","six","seven","eight","nine","ten",

"eleven","twelve","thirteen","fourteen","fifteen","sixteen","seventeen","eighteen","nineteen"}

"eleven","twelve","thirteen","fourteen","fifteen","sixteen","seventeen","eighteen","nineteen"}

function Twenty(integer N)

function Twenty(integer N)

return twenties[mod(N,20)+1]

return twenties[mod(N,20)+1]

end function

end function

constant decades = {"twenty","thirty","forty","fifty","sixty","seventy","eighty","ninety"}

constant decades = {"twenty","thirty","forty","fifty","sixty","seventy","eighty","ninety"}

function Decade(integer N)

function Decade(integer N)

return decades[mod(N,10)-1]

return decades[mod(N,10)-1]

end function

end function

function Hundred(integer N)

function Hundred(integer N)

if N<20 then

if N<20 then

return Twenty(N)

return Twenty(N)

elsif mod(N,10)=0 then

elsif mod(N,10)=0 then

return Decade(mod(floor(N/10),10))

return Decade(mod(floor(N/10),10))

end if

end if

return Decade(floor(N/10)) & '-' & Twenty(mod(N,10))

return Decade(floor(N/10)) & '-' & Twenty(mod(N,10))

end function

end function

function Thousand(integer N, string withand)

function Thousand(integer N, string withand)

if N<100 then

if N<100 then

return withand & Hundred (N);

return withand & Hundred (N);

elsif mod(N,100)=0 then

elsif mod(N,100)=0 then

return withand & Twenty(floor(N/100))&" hundred"

return withand & Twenty(floor(N/100))&" hundred"

end if

end if

return Twenty(floor(N/100)) & " hundred and " & Hundred(mod(N,100))

return Twenty(floor(N/100)) & " hundred and " & Hundred(mod(N,100))

end function

end function

constant orders = {{power(10,15),"quadrillion"},

constant orders = {{power(10,15),"quadrillion"},

{power(10,12),"trillion"},

{power(10,12),"trillion"},

{power(10,9),"billion"},

{power(10,9),"billion"},

{power(10,6),"million"},

{power(10,6),"million"},

{power(10,3),"thousand"}}

{power(10,3),"thousand"}}

function Triplet(atom N)

function Triplet(atom N)

atom Order, High, Low

atom Order, High, Low

string Name, res = ""

string Name, res = ""

integer n

integer n

for i=1 to length(orders) do

for i=1 to length(orders) do

{Order,Name} = orders[i]

{Order,Name} = orders[i]

High = floor(N/Order)

High = floor(N/Order)

Low = mod(N,Order)

Low = mod(N,Order)

if High!=0 then

if High!=0 then

res &= Thousand(High,"")&' '&Name

res &= Thousand(High,"")&' '&Name

end if

end if

N = Low

N = Low

if Low=0 then exit end if

if Low=0 then exit end if

if length(res) and High!=0 then

if length(res) and High!=0 then

res &= ", "

res &= ", "

end if

end if

end for

end for

if N!=0 or res="" then

if N!=0 or res="" then

res &= Thousand(floor(N),iff(res=""?"":"and "))

res &= Thousand(floor(N),iff(res=""?"":"and "))

N = abs(mod(N,1))

N = abs(mod(N,1))

if N>1e-6 then

if N>1e-6 then

res &= " point"

res &= " point"

for i=1 to 10 do

for i=1 to 10 do

n = floor(N*10.0000001)

n = floor(N*10.0000001)

res &= ' '&twenties[n+1]

res &= ' '&twenties[n+1]

N = N*10-n

N = N*10-n

if abs(N)<1e-6 then exit end if

if abs(N)<1e-6 then exit end if

end for

end for

end if

end if

end if

end if

return res

return res

end function

end function

global function spell(atom N)

global function spell(atom N)

string res = ""

string res = ""

if N<0 then

if N<0 then

res = "minus "

res = "minus "

N = -N

N = -N

end if

end if

res &= Triplet(N)

res &= Triplet(N)

return res

return res

end function

end function

global

global

constant Samples = {99, 300, 310, 417,1_501, 12_609, 200000000000100, 999999999999999,

constant Samples = {99, 300, 310, 417,1_501, 12_609, 200000000000100, 999999999999999,

-123456787654321,102003000400005,1020030004,102003,102,1,0,-1,-99,

-123456787654321,102003000400005,1020030004,102003,102,1,0,-1,-99,

-1501,1234,12.34,10000001.2,1E-3,-2.7182818,

-1501,1234,12.34,10000001.2,1E-3,-2.7182818,

201021002001,-20102100200,2010210020,-201021002,20102100,-2010210,

201021002001,-20102100200,2010210020,-201021002,20102100,-2010210,

201021,-20102,2010,-201,20,-2}

201021,-20102,2010,-201,20,-2}

global function smartp(atom N)

global function smartp(atom N)

string res

string res

if N=floor(N) then return sprintf("%d",N) end if

if N=floor(N) then return sprintf("%d",N) end if

res = sprintf("%18.8f",N)

res = sprintf("%18.8f",N)

if find('.',res) then

if find('.',res) then

res = trim_tail(res,"0")

res = trim_tail(res,"0")

end if

end if

return res

return res

end function

end function

if include_file()==1 then

if include_file()==1 then

for i=1 to length(Samples) do

for i=1 to length(Samples) do

atom si = Samples[i]

atom si = Samples[i]

printf(1,"%18s %s\n",{smartp(si),spell(si)})

printf(1,"%18s %s\n",{smartp(si),spell(si)})

end for

end for

end if</lang>

end if