Rosetta Code

Names to numbers: Difference between revisions

Page Discussion

Names to numbers (view source)

Revision as of 08:10, 24 February 2022

36 bytes added ,  2 years ago
m
→‎{{header|Quackery}}: fixed indentation
m (→‎{{header|Quackery}}: fixed indentation)
Line 1,936:
Finally, the compiled nest is executed with <code>do</code>.
 
<lang Quackery> [ 901 + ] is ninetyone ( --> n )▼
<lang Quackery>
[ 12 + ] is onetwo ( --> n )
[ 23 + ] is two three ( --> n )
[ 34 + ] is threefour ( --> n )
[ 45 + ] is fourfive ( --> n )
[ 56 + ] is fivesix ( --> n )
[ 67 + ] is six seven ( --> n )
[ 78 + ] is seveneight ( --> n )
[ 89 + ] is eightnine ( --> n )
[ 910 + ] is nineten ( --> n )
[ 1011 + ] is ten eleven ( --> n )
[ 1112 + ] is eleventwelve ( --> n )
[ 1213 + ] is twelve thirteen ( --> n )
[ 1314 + ] is thirteenfourteen ( --> n )
[ 1415 + ] is fourteenfifteen ( --> n )
[ 1516 + ] is fifteensixteen ( --> n )
[ 1617 + ] is sixteen seventeen ( --> n )
[ 1718 + ] is seventeeneighteen ( --> n )
[ 1819 + ] is eighteennineteen ( --> n )
[ 1920 + ] is nineteentwenty ( --> n )
[ 2030 + ] is twentythirty ( --> n )
[ 3040 + ] is thirtyforty ( --> n )
[ 4050 + ] is fortyfifty ( --> n )
[ 5060 + ] is fiftysixty ( --> n )
[ 6070 + ] is sixty seventy ( --> n )
[ 7080 + ] is seventyeighty ( --> n )
[ 8090 + ] is eightyninety ( --> n )
▲ [ 90 + ] is ninety ( --> n )
 
[ 100 * ] is hundred ( n --> n )
[ 1000 * ] is thousand ( n --> n )
[ thousand thousand ] is million ( n --> n )
[ thousand million ] is billion ( n --> n )
 
[ 0 0 ] is {{ ( --> n n )
[ + 0 ] is , ( n n --> n n )
[ + ] is }} ( n n --> n )
 
[ $ "{{ " swap
witheach
[ dup char , = if
[ dip space join ]
join ]
$ " }}" join
Line 1,987 ⟶ 1,986:
else
[ nested join ] ]
do ] is name->number ( $ --> n )
 
$ "one billion, two hundred and thirty four million, five hundred and sixty seven thousand, eight hundred and ninety"
GordonCharlton
1,478

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/232029"