Number names: Difference between revisions
Content added Content deleted
No edit summary |
m (→{{header|Phix}}: use new include_file()) |
||
Line 3,914: | Line 3,914: | ||
Fraction ideas copied from [[Number_names#HicEst|HicEst]], using billion=10^9, trillion=10^12, quadrillion=10^15, and limited to 999 quadrillion.<br> |
Fraction ideas copied from [[Number_names#HicEst|HicEst]], using billion=10^9, trillion=10^12, quadrillion=10^15, and limited to 999 quadrillion.<br> |
||
Implemented as an [[Executable_library]] for use in [[Names_to_numbers#Phix|Names_to_numbers]]. |
Implemented as an [[Executable_library]] for use in [[Names_to_numbers#Phix|Names_to_numbers]]. |
||
<lang Phix>-- |
<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"} |
||
Line 4,014: | Line 4,012: | ||
end function |
end function |
||
if include_file()==1 then |
|||
procedure main() |
|||
atom si |
|||
for i=1 to length(Samples) do |
for i=1 to length(Samples) do |
||
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 procedure |
|||
-- from Executable_library#Phix -- |
|||
function isMainOrInclude() |
|||
-- returns 1 if called from the main file, 0 if from an include |
|||
integer res |
|||
#ilASM{ |
|||
[32] |
|||
mov eax,[ebp+20] -- prev_ebp |
|||
mov eax,[eax+8] -- rtn |
|||
mov [res],eax |
|||
[64] |
|||
mov rax,[rbp+40] -- prev_ebp |
|||
mov rax,[rax+16] -- rtn |
|||
mov [res],rax |
|||
[] |
|||
} |
|||
return res=21 -- (21=T_maintls) |
|||
end function |
|||
if isMainOrInclude() then |
|||
main() |
|||
end if</lang> |
end if</lang> |
||
{{out}} |
{{out}} |