Four is magic: Difference between revisions

Line 2,533:

=={{header|Phix}}==

Note that on 32-bit Phix integers/atoms are only accurate to 9,007,199,254,740,992 (a hardware limit of 64-bit floating point registers) so if you need more than that this will need to be reworked to use ~~bigatoms~~.

Note that on 32-bit Phix integers/atoms are only accurate to 9,007,199,254,740,992 (a hardware limit of 64-bit floating point registers) and on 64-bit the limit is 18,446,744,073,709,551,616 (ditto 80-bit floating points) so if you need more than that this will need to be reworked to use gmp or similar.

with javascript_semantics

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

--<adapted from demo\rosetta\number_names.exw, which alas outputs ",", "and", uses "minus" instead of "negative", etc...>

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

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

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

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

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

function hundred(integer n)

if n<20 then

function hundred(integer n)

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

if n<20 then

elsif mod(n,10)=0 then

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

return decades[mod(floor(n/10),10)-1]

elsif mod(n,10)=0 then

end if

return decades[mod(floor(n/10),10)-1]

return decades[mod(floor(n/10),10)-1] & '-' & twenties[mod(n,10)+1]

end if

end function

return decades[mod(floor(n/10),10)-1] & '-' & twenties[mod(n,10)+1]

end function

function thousand(integer n)

if n<100 then

function thousand(integer n)

return hundred(n)

if n<100 then

elsif mod(n,100)=0 then

return hundred(n)

return twenties[mod(floor(n/100),20)+1]&" hundred"

elsif mod(n,100)=0 then

end if

return twenties[mod(floor(n/100),20)+1]&" hundred"

return twenties[mod(floor(n/100),20)+1] & " hundred " & hundred(mod(n,100))

end if

end function

return twenties[mod(floor(n/100),20)+1] & " hundred " & hundred(mod(n,100))

end function

constant orders = {{power(10,12),"trillion"},

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

constant orders = {{power(10,12),"trillion"},

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

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

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

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

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

function triplet(integer n)

atom order, high, low

function triplet(integer n)

string name, res = ""

string res = ""

for i=1 to length(orders) do

for i=1 to length(orders) do

{order,name} = orders[i]

{atom order, string name} = orders[i]

high = floor(n/order)

atom 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))

res &= thousand(floor(n))

end if

end if

return res

return res

end function

end function

function spell(integer n)

function spell(integer n)

string res = ""

string res = ""

if n<0 then

if n<0 then

res = "negative "

res = "negative "

n = -n

n = -n

end if

end if

res &= triplet(n)

res &= triplet(n)

return res

return res

end function

end function

--</adapted from number_names.exw>

--</adapted from number_names.exw>

function fourIsMagic(atom n)

function fourIsMagic(atom n)

string s = spell(n)

string s = spell(n)

s[1] = upper(s[1])

s[1] = upper(s[1])

string t = s

string t = s

while n!=4 do

while n!=4 do

n = length(s)

n = length(s)

s = spell(n)

s = spell(n)

t &= " is " & s & ", " & s

t &= " is " & s & ", " & s

end while

end while

t &= " is magic.\n"

t &= " is magic.\n"

return t

return t

end function

end function

constant tests = {-7, -1, 0, 1, 2, 3, 4, 23, 1e9, 20140, 100, 130, 151, 999999}

constant tests = {-7, -1, 0, 1, 2, 3, 4, 23, 1e9, 20140, 100, 130, 151, 999999}

for i=1 to length(tests) do

for i=1 to length(tests) do

puts(1,fourIsMagic(tests[i]))

puts(1,fourIsMagic(tests[i]))

end for</lang>

end for

<pre>