Number names: Difference between revisions
no edit summary
No edit summary |
No edit summary |
||
Line 5,127:
one nonillion two hundred and sixty-seven octillion six hundred and fifty septillion six hundred sextillion two hundred and twenty-eight quintillion two hundred and twenty-nine quadrillion four hundred and one trillion four hundred and ninety-six billion seven hundred and three million two hundred and five thousand three hundred and seventy-six
one vigintillion vigintillion
</pre>
=={{header|Quackery}}==
{{trans|C#}}
<lang Quackery>
[ [ table
$ "zero" $ "one" $ "two"
$ "three" $ "four" $ "five"
$ "six" $ "seven" $ "eight"
$ "nine" $ "ten" $ "eleven"
$ "twelve" $ "thirteen"
$ "fourteen" $ "fifteen"
$ "sixteen" $ "seventeen"
$ "eighteen" $ "nineteen" ] do ] is units ( n --> $ )
[ [ table
$ "nonety" $ "tenty" $ "twenty"
$ "thirty" $ "fourty" $ "fifty"
$ "sixty" $ "seventy" $ "eighty"
$ "ninety" ] do ] is tens ( n --> $ )
[ $ "" swap
dup 99 > if
[ 100 /mod swap units
$ " hundred" join
swap dip join
dup 0 = iff drop ]done[ ]
over size 0 > if
[ dip [ $ " and " join ] ]
dup 19 > if
[ 10 /mod swap tens
swap dip join
dup 0 = iff drop ]done[ ]
over size 0 > if
[ over -1 peek space != if
[ dip [ space join ] ] ]
units join ] is triplet ( n --> $ )
[ $ "" swap
dup 999999 > if
[ 1000000 /mod swap triplet
$ " million" join
swap dip join
dup 0 = iff drop ]done[ ]
dup 999 > if
[ over size 0 > if
[ dip [ $ ", " join ] ]
1000 /mod swap triplet
$ " thousand" join
swap dip join
dup 0 = iff drop ]done[ ]
over size 0 > if
[ dip [ $ ", " join ] ]
triplet join ] is name$ ( n --> $ )
10 times
[ 10 9 random
1+ ** random
dup echo
say " is:"
name$ nest$
60 wrap$ cr cr ]
</lang>
{{out}}
<pre>127 is:
one hundred and twenty seven
38000 is:
thirty eight thousand
768182886 is:
seven hundred and sixty eight million, one hundred and
eighty two thousand, eight hundred and eighty six
1 is:
one
3607607 is:
three million, six hundred and seven thousand, six hundred
and seven
5059697 is:
five million, fifty nine thousand, six hundred and ninety
seven
968968291 is:
nine hundred and sixty eight million, nine hundred and sixty
eight thousand, two hundred and ninety one
25162613 is:
twenty five million, one hundred and sixty two thousand, six
hundred and thirteen
458196481 is:
four hundred and fifty eight million, one hundred and ninety
six thousand, four hundred and eighty one
4493774 is:
four million, four hundred and ninety three thousand, seven
hundred and seventy four
</pre>
| |||