Number names: Difference between revisions
Content added Content deleted
No edit summary |
No edit summary |
||
Line 5,127: | 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 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 |
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> |
</pre> |
||