|
The full source of the '''$SPELL#''' REXX program is included here ──► [[$SPELL.REX|$SPELL#.REX]].
As I understand the task's parameters, it was OK to used a pre-existing program to solve this task. I had first considered taking the original program and ripping out all the good stuff and just solve the primary task (and optional requirements), but it was taking too much time so I left the program intact, negated the use of the <code>$T</code> program (which essentially is a <code>TYPE</code> command that can show text in colors, does vertical and horizontal [indentation] tabbing, boxing, centering/justification, and writing the output to a file, waits on confirmation, block letters, splitting of message text (multiple lines), highlighting of text portions (in colors), among other things).
<br>The full help for the '''$SPELL#''' REXX program is included here ──► [[$SPELL.HEL|$SPELL#.HEL]].
As I understand the solving of any Rosetta Code task, it's OK to use a pre-existing computer language program.
Also not included is the <code>$H</code> program which shows (among other things) the help (documentation), and the <code>$ERR</code> program which issues error messages (in red). I assume that most people could figure out what the error message(s) would be by observing the context.
I had first considered taking the original program and ripping out all the "good stuff" and just solve the primary task (and optional requirements), but it was taking too much time so I left the (whole) REXX program intact.
Not included here is the '''$H''' REXX program which shows (among other things) various forms of help (program documentation, program/help author, sample uses, or logic flow). <br><br>
This REXX program supports:
* long &and short scale (American and British styles)
* ''ordinal numbers'' and ''cardinal numbers''
* expressing the number as a YEAR(calendar) ''year'' ('''1975''' would be '''nineteen seventy-five''')
* decimal points (<big>'''6'''</big> is different than <big>'''6.'''</big>)
* decimal fractions
* numbers with leading zeroes (as well as trailing zeroes)
* leading signs (<big>'''+'''</big> or <big>'''-'''</big>)
* exponential notation
* currency symbols
* adding commas (or whatever) to the output (including blanks)
* numbers (American) roughly up to 3,000 digits, (English) up to 6,000 digits
* numbers (English) roughly up to 6,000 digits
* numbers with suffixes such as K, M, Gi, etc, and also some common ones as well as factorials
* numbers with metric suffixes, namely:
* user-defineable names for: signs, decimal point, power, curreny symbols, zero (digit), etc.
** '''K M G T P E Z Y X W V U'''
* numbers with binary suffixes, namely:
** '''Ki Mi Gi Ti Pi Ei Zi Yi Xi Wi Vi Ui'''
** the above suffixes can be combined: '''44MM''' (44 million million)
* numbers with some common suffixes such as:
** '''dozens'''
** '''gross'''
** '''greatgross'''
** '''pairs'''
** '''scores'''
** '''googols'''
** or any suitable abbreviation of the above
* numbers expressed as a factorial (such as '''100!''').
* user-definable names for:
** signs ('''-6''' ''could be'' expressed as '''negatory six''')
** decimal point ('''2.4''' ''could be'' expressed as '''two boink four''')
** power (the power of ten that the number is being raised to)
** currency symbols
** zero (the digit)
** blanks
** a value of zero
* numbers may have commas but they aren't enunciated
The program has a pretty hefty prologue which determines (among other things):
* the operating system (and maybe the type)
* the name of the REXX program: it's filename, filetype, filemode (or path, if you will)
* the access-name used to acquire environmental variables' values
* if '''EBCDIC''' or '''ASCII''' system
* which REXX (or KEXX) is being used
* the name of the program (command) used to clear the terminal screen
* if appropriate, invokes <code> '''$H</code>''' to show the help/, logic flow/, sample uses/or, programor author.
I'm still working on the REXX program to reduce the amount of names by programmatically generating any amount of number-names (instead of having a fixed amount of names in text form).
If there are strong feelings that the code should be removed because of it's length, I'll remove it.
I'm still working on the program to reduce the amount of names by programmatically generating any number of names (instead of having a fixed amount of names in text form).
Also note that there appears not to be a consensus on the names of some numbers:
* '''nonillion''' is also called '''noventillion'''
* '''noven*''' are also named '''novem*'''
* '''septen*''' are also named '''septem*'''
* '''ses*''' are also named '''sex*'''
* '''tre*''' are also named '''tres*'''
===program===
<lang rexx>/**/trace o;parse arg !;if !all(arg()) then exit;if !cms then address '';signal on halt;signal on novalue;signal on syntax
@abc='abcdefghijklmnopqrstuvwxyz'
american=0
andcent='and'
asayear=0
asis=0
blanks=
british=0
cent='cent'
clear=0
colors=!cms | !pcrexx | !r4 | !roo
dollar='dollar'
dot=
english=0
euro='euro'
exponents=
fractions=
franc='franc'
leading=
leadingz=
logs=0
minus='minus '
n=
nothing='zero'
ops=space(!!)
ordinal=0
piseta='piseta'
plus='plus '
point='point'
pound='pound'
power='power'
quiet=0
raised='times ten raised to the'
sep='none'
single=0
tfid= /*temporary file id. */
tops=
xcurr=
yen='yen'
zero='oh'
do while ops\=='' /*process user arguments & options*/
parse var ops _1 2 1 _ . 1 _o ops
upper _
select
when isnum(_) then n=n||_
when _==',' | _=="(" | _==')' then nop
when _1=='.' & pos("=",_)\==0 then tops=tops _o
when abbn('AMERican') then american=no()
when abbn('ASAYEAR')|,
abbn('ASYEAR')|,
abbn('YEAR') then asayear=no()
when abb('BEINGRAISed')|,
abb('RAISEd') then raised=na()
when abb('BLANKs') then blanks=na()
when abbn('BRITish') then british=no()
when abb('CENTs') then cent=na()
when abbn('CLearscreen') then clear=no()
when abbn('COLORs') then colors=no()
when abb('DECIMALpoints')|,
abb('DOLLARs') then dollar=na()
when abbn('ENGlish') then english=no()
when abb('EUROs') then euro=na()
when abb('FRANCs') then franc=na()
when abb('LEADINGzeroes')|,
abb('LEADINGzeros') then leading=na()
when abbn('LOGs') then logs=no()
when abb('MINUSsigns')|,
abb('MINUSes') then minus=na()' '
when abb('NOTHINGs') then nothing=na()
when abbn('ORDinal') then ordinal=no()
when abb('PISETAs') then piseta=na()
when abb('POWer') then power=na()
when abb('PLUSsigns')|,
abb('PLUSes') then plus=na()' '
when abb('POINTs') then point=na()
when abb('POUNDs') then pound=na()
when abbn('Quiet') then quiet=no()
when abb('SEPerators') then sep=na()
when abbn('SINGley') then single=no()
when abb('YENs') then yen=na()
when abb('ZEROs')|,
abb('ZEROes') then zero=na()
otherwise n=n||_o
end
end
if sep=='none' then if pos(',',n)\==0 then sep=','
if sep=='none' then sep=
ogn=n /* original number that was entered*/
_=blanks /* validate BLANKS= option.*/
l=length(_)
if l>3 then call er 55,_
if l==3 then do /* decimal value.*/
if \isint(_) then call er 92,_ "BLANK="
if _<0|_>255 then call er 81,0 255 _ "BLANKS="
blanks=d2c(_)
end
if l==2 then do /* hexadecimal value.*/
if \ishex(_) then call er 40,_
blanks=x2c(_)
end
if colors then tops='.P=1 .A=1 .C=green' tops /*colors used by $T.*/
if logs then tops='.F='gettfid(,"ANS") tops /*logfile used by $T.*/
tops=space(tops) /*options used by $T.*/
if n=='' then call er 54
if asayear & ordinal then call er 61,'ASAYEAR ORDINAL'
if single & ordinal then call er 61,'SINGLEY ORDINAL'
if american & english then call er 61,'AMERICAN ENGLISH'
if american & british then call er 61,'AMERICAN BRITISH'
if \american & \english & \british then american=1
if english then british=1
if clear then !cls /*clear the screen ? */
dig.=;dig.0=zero;dig.1='one';dig.2='two';dig.3='three';dig.4='four';dig.5='five';dig.6='six';dig.7='seven';dig.8='eight';dig.9='nine'
_='0 thousand m b tr quadr quint sext sept oct non dec undec duodec tredec quattuordec quinquadec sedec septendec octodec novendec vigin unvigin duovigin tresvigin quattuorvigin quinquavigin sesvigin septemvigin octovigin novemvigin trigin'
_=_ 'untrigin duotrigin trestrigin quattuortrigin quinquatrigin sestrigin septentrigin octotrigin noventrigin quadragin unquadragin duoquadragin tresquadragin quattuorquadragin quinquaquadragin sesquadragin septenquadragin octoquadragin'
_=_ 'novenquadragin quinquagin unquinquagin duoquinquagin tresquinquagin quattuorquinquagin quinquaquinquagin sesquinquagin septenquinquagin octoquinquagin novenquinquagin sexagin unsexagin duosexagin tresexagin quattuorsexagin quinquasexagin'
_=_ 'sesexagin septensexagin octosexagin novensexagin septuagin unseptuagin duoseptuagin treseptuagin quattuorseptuagin quinquaseptuagin seseptuagin septenseptuagin octoseptuagin novenseptuagin octogin unoctogin duooctogin tresoctogin'
_=_ 'quattuoroctogin quinquaoctogin sexoctogin septemoctogin octooctogin novemoctogin nonagin unnonagin duononagin trenonagin quattuornonagin quinquanonagin senonagin septenonagin octononagin novenonagin cen uncen duocen trescen quattuorcen'
_=_ 'quinquacen sexcen septencen octocen novencen decicen undecicen duodecicen tredecicen quattuordecicen quinquadecicen sedecicen septendecicen octodecicen novendecicen viginticen unviginticen duoviginticen tresviginticen quattuorviginticen'
_=_ 'quinquaviginticen sesviginticen septemviginticen octoviginticen novemviginticen trigintacen untrigintacen duotrigintacen trestrigintacen quattuortrigintacen quinquatrigintacen sestrigintacen septentrigintacen octotrigintacen'
_=_ 'noventrigintacen quadragintacen unquadragintacen duoquadragintacen tresquadragintacen quattuorquadragintacen quinquaquadragintacen sesquadragintacen septenquadragintacen octoquadragintacen novenquadragintacen quinquagintacen'
_=_ 'unquinquagintacen duoquinquagintacen tresquinquagintacen quattuorquinquagintacen quinquaquinquagintacen sesquinquagintacen septenquinquagintacen octoquinquagintacen novenquinquagintacen sexagintacen unsexagintacen duosexagintacen'
_=_ 'tresexagintacen quattuorsexagintacen quinquasexagintacen sesexagintacen septensexagintacen octosexagintacen novensexagintacen septuagintacen unseptuagintacen duoseptuagintacen treseptuagintacen quattuorseptuagintacen quinquaseptuagintacen'
_=_ 'seseptuagintacen septenseptuagintacen octoseptuagintacen novenseptuagintacen octogintacen unoctogintacen duooctogintacen tresoctogintacen quattuoroctogintacen quinquaoctogintacen sexoctogintacen septemoctogintacen octooctogintacen'
_=_ 'novemoctogintacen nonagintacen unnonagintacen duononagintacen trenonagintacen quattuornonagintacen quinquanonagintacen senonagintacen septenonagintacen octononagintacen novenonagintacen ducen unducen duoducen treducen quattuorducen'
_=_ 'quinquaducen seducen septenducen octoducen novenducen deciducen undeciducen duodeciducen tredeciducen quattuordeciducen quinquadeciducen sedeciducen septendeciducen octodeciducen novendeciducen vigintiducen unvigintiducen duovigintiducen'
_=_ 'tresvigintiducen quattuorvigintiducen quinquavigintiducen sesvigintiducen septemvigintiducen octovigintiducen novemvigintiducen trigintaducen untrigintaducen duotrigintaducen trestrigintaducen quattuortrigintaducen quinquatrigintaducen'
_=_ 'sestrigintaducen septentrigintaducen octotrigintaducen noventrigintaducen quadragintaducen unquadragintaducen duoquadragintaducen tresquadragintaducen quattuorquadragintaducen quinquaquadragintaducen sesquadragintaducen'
_=_ 'septenquadragintaducen octoquadragintaducen novenquadragintaducen quinquagintaducen unquinquagintaducen duoquinquagintaducen tresquinquagintaducen quattuorquinquagintaducen quinquaquinquagintaducen sesquinquagintaducen'
_=_ 'septenquinquagintaducen octoquinquagintaducen novenquinquagintaducen sexagintaducen unsexagintaducen duosexagintaducen tresexagintaducen quattuorsexagintaducen quinquasexagintaducen sesexagintaducen septensexagintaducen octosexagintaducen'
_=_ 'novensexagintaducen septuagintaducen unseptuagintaducen duoseptuagintaducen treseptuagintaducen quattuorseptuagintaducen quinquaseptuagintaducen seseptuagintaducen septenseptuagintaducen octoseptuagintaducen novenseptuagintaducen'
_=_ 'octogintaducen unoctogintaducen duooctogintaducen tresoctogintaducen quattuoroctogintaducen quinquaoctogintaducen sexoctogintaducen septemoctogintaducen octooctogintaducen novemoctogintaducen nonagintaducen unnonagintaducen'
_=_ 'duononagintaducen trenonagintaducen quattuornonagintaducen quinquanonagintaducen senonagintaducen septenonagintaducen octononagintaducen novenonagintaducen trecen untrecen duotrecen trestrecen quattuortrecen quinquatrecen sestrecen'
_=_ 'septentrecen octotrecen noventrecen decitrecen undecitrecen duodecitrecen tredecitrecen quattuordecitrecen quinquadecitrecen sedecitrecen septendecitrecen octodecitrecen novendecitrecen vigintitrecen unvigintitrecen duovigintitrecen'
_=_ 'tresvigintitrecen quattuorvigintitrecen quinquavigintitrecen sesvigintitrecen septemvigintitrecen octovigintitrecen novemvigintitrecen trigintatrecen untrigintatrecen duotrigintatrecen trestrigintatrecen quattuortrigintatrecen'
_=_ 'quinquatrigintatrecen sestrigintatrecen septentrigintatrecen octotrigintatrecen noventrigintatrecen quadragintatrecen unquadragintatrecen duoquadragintatrecen tresquadragintatrecen quattuorquadragintatrecen quinquaquadragintatrecen'
_=_ 'sesquadragintatrecen septenquadragintatrecen octoquadragintatrecen novenquadragintatrecen quinquagintatrecen unquinquagintatrecen duoquinquagintatrecen tresquinquagintatrecen quattuorquinquagintatrecen quinquaquinquagintatrecen'
_=_ 'sesquinquagintatrecen septenquinquagintatrecen octoquinquagintatrecen novenquinquagintatrecen sexagintatrecen unsexagintatrecen duosexagintatrecen tresexagintatrecen quattuorsexagintatrecen quinquasexagintatrecen sesexagintatrecen'
_=_ 'septensexagintatrecen octosexagintatrecen novensexagintatrecen septuagintatrecen unseptuagintatrecen duoseptuagintatrecen treseptuagintatrecen quattuorseptuagintatrecen quinquaseptuagintatrecen seseptuagintatrecen septenseptuagintatrecen'
_=_ 'octoseptuagintatrecen novenseptuagintatrecen octogintatrecen unoctogintatrecen duooctogintatrecen tresoctogintatrecen quattuoroctogintatrecen quinquaoctogintatrecen sexoctogintatrecen septemoctogintatrecen octooctogintatrecen'
_=_ 'novemoctogintatrecen nonagintatrecen unnonagintatrecen duononagintatrecen trenonagintatrecen quattuornonagintatrecen quinquanonagintatrecen senonagintatrecen septenonagintatrecen octononagintatrecen novenonagintatrecen quadringen'
_=_ 'unquadringen duoquadringen tresquadringen quattuorquadringen quinquaquadringen sesquadringen septenquadringen octoquadringen novenquadringen deciquadringen undeciquadringen duodeciquadringen tredeciquadringen quattuordeciquadringen'
_=_ 'quinquadeciquadringen sedeciquadringen septendeciquadringen octodeciquadringen novendeciquadringen vigintiquadringen unvigintiquadringen duovigintiquadringen tresvigintiquadringen quattuorvigintiquadringen quinquavigintiquadringen'
_=_ 'sesvigintiquadringen septemvigintiquadringen octovigintiquadringen novemvigintiquadringen trigintaquadringen untrigintaquadringen duotrigintaquadringen trestrigintaquadringen quattuortrigintaquadringen quinquatrigintaquadringen'
_=_ 'sestrigintaquadringen septentrigintaquadringen octotrigintaquadringen noventrigintaquadringen quadragintaquadringen unquadragintaquadringen duoquadragintaquadringen tresquadragintaquadringen quattuorquadragintaquadringen'
_=_ 'quinquaquadragintaquadringen sesquadragintaquadringen septenquadragintaquadringen octoquadragintaquadringen novenquadragintaquadringen quinquagintaquadringen unquinquagintaquadringen duoquinquagintaquadringen tresquinquagintaquadringen'
_=_ 'quattuorquinquagintaquadringen quinquaquinquagintaquadringen sesquinquagintaquadringen septenquinquagintaquadringen octoquinquagintaquadringen novenquinquagintaquadringen sexagintaquadringen unsexagintaquadringen duosexagintaquadringen'
_=_ 'tresexagintaquadringen quattuorsexagintaquadringen quinquasexagintaquadringen sesexagintaquadringen septensexagintaquadringen octosexagintaquadringen novensexagintaquadringen septuagintaquadringen unseptuagintaquadringen'
_=_ 'duoseptuagintaquadringen treseptuagintaquadringen quattuorseptuagintaquadringen quinquaseptuagintaquadringen seseptuagintaquadringen septenseptuagintaquadringen octoseptuagintaquadringen novenseptuagintaquadringen octogintaquadringen'
_=_ 'unoctogintaquadringen duooctogintaquadringen tresoctogintaquadringen quattuoroctogintaquadringen quinquaoctogintaquadringen sexoctogintaquadringen septemoctogintaquadringen octooctogintaquadringen novemoctogintaquadringen'
_=_ 'nonagintaquadringen unnonagintaquadringen duononagintaquadringen trenonagintaquadringen quattuornonagintaquadringen quinquanonagintaquadringen senonagintaquadringen septenonagintaquadringen octononagintaquadringen novenonagintaquadringen'
_=_ 'quingen unquingen duoquingen tresquingen quattuorquingen quinquaquingen sesquingen septenquingen octoquingen novenquingen deciquingen undeciquingen duodeciquingen tredeciquingen quattuordeciquingen quinquadeciquingen sedeciquingen'
_=_ 'septendeciquingen octodeciquingen novendeciquingen vigintiquingen unvigintiquingen duovigintiquingen tresvigintiquingen quattuorvigintiquingen quinquavigintiquingen sesvigintiquingen septemvigintiquingen octovigintiquingen'
_=_ 'novemvigintiquingen trigintaquingen untrigintaquingen duotrigintaquingen trestrigintaquingen quattuortrigintaquingen quinquatrigintaquingen sestrigintaquingen septentrigintaquingen octotrigintaquingen noventrigintaquingen quadragintaquinge'
_=_ 'unquadragintaquingen duoquadragintaquingen tresquadragintaquingen quattuorquadragintaquingen quinquaquadragintaquingen sesquadragintaquingen septenquadragintaquingen octoquadragintaquingen novenquadragintaquingen quinquagintaquingen'
_=_ 'unquinquagintaquingen duoquinquagintaquingen tresquinquagintaquingen quattuorquinquagintaquingen quinquaquinquagintaquingen sesquinquagintaquingen septenquinquagintaquingen octoquinquagintaquingen novenquinquagintaquingen sexagintaquingen'
_=_ 'unsexagintaquingen duosexagintaquingen tresexagintaquingen quattuorsexagintaquingen quinquasexagintaquingen sesexagintaquingen septensexagintaquingen octosexagintaquingen novensexagintaquingen septuagintaquingen unseptuagintaquingen'
_=_ 'duoseptuagintaquingen treseptuagintaquingen quattuorseptuagintaquingen quinquaseptuagintaquingen seseptuagintaquingen septenseptuagintaquingen octoseptuagintaquingen novenseptuagintaquingen octogintaquingen unoctogintaquingen'
_=_ 'duooctogintaquingen tresoctogintaquingen quattuoroctogintaquingen quinquaoctogintaquingen sexoctogintaquingen septemoctogintaquingen octooctogintaquingen novemoctogintaquingen nonagintaquingen unnonagintaquingen duononagintaquingen'
_=_ 'trenonagintaquingen quattuornonagintaquingen quinquanonagintaquingen senonagintaquingen septenonagintaquingen octononagintaquingen novenonagintaquingen sescen unsescen duosescen tresescen quattuorsescen quinquasescen sesescen septensescen'
_=_ 'octosescen novensescen decisescen undecisescen duodecisescen tredecisescen quattuordecisescen quinquadecisescen sedecisescen septendecisescen octodecisescen novendecisescen vigintisescen unvigintisescen duovigintisescen tresvigintisescen'
_=_ 'quattuorvigintisescen quinquavigintisescen sesvigintisescen septemvigintisescen octovigintisescen novemvigintisescen trigintasescen untrigintasescen duotrigintasescen trestrigintasescen quattuortrigintasescen quinquatrigintasescen'
_=_ 'sestrigintasescen septentrigintasescen octotrigintasescen noventrigintasescen quadragintasescen unquadragintasescen duoquadragintasescen tresquadragintasescen quattuorquadragintasescen quinquaquadragintasescen sesquadragintasescen'
_=_ 'septenquadragintasescen octoquadragintasescen novenquadragintasescen quinquagintasescen unquinquagintasescen duoquinquagintasescen tresquinquagintasescen quattuorquinquagintasescen quinquaquinquagintasescen sesquinquagintasescen'
_=_ 'septenquinquagintasescen octoquinquagintasescen novenquinquagintasescen sexagintasescen unsexagintasescen duosexagintasescen tresexagintasescen quattuorsexagintasescen quinquasexagintasescen sesexagintasescen septensexagintasescen'
_=_ 'octosexagintasescen novensexagintasescen septuagintasescen unseptuagintasescen duoseptuagintasescen treseptuagintasescen quattuorseptuagintasescen quinquaseptuagintasescen seseptuagintasescen septenseptuagintasescen octoseptuagintasescen'
_=_ 'novenseptuagintasescen octogintasescen unoctogintasescen duooctogintasescen tresoctogintasescen quattuoroctogintasescen quinquaoctogintasescen sexoctogintasescen septemoctogintasescen octooctogintasescen novemoctogintasescen nonagintasesce'
_=_ 'unnonagintasescen duononagintasescen trenonagintasescen quattuornonagintasescen quinquanonagintasescen senonagintasescen septenonagintasescen octononagintasescen novenonagintasescen septingen unseptingen duoseptingen treseptingen'
_=_ 'quattuorseptingen quinquaseptingen seseptingen septenseptingen octoseptingen novenseptingen deciseptingen undeciseptingen duodeciseptingen tredeciseptingen quattuordeciseptingen quinquadeciseptingen sedeciseptingen septendeciseptingen'
_=_ 'octodeciseptingen novendeciseptingen vigintiseptingen unvigintiseptingen duovigintiseptingen tresvigintiseptingen quattuorvigintiseptingen quinquavigintiseptingen sesvigintiseptingen septemvigintiseptingen octovigintiseptingen'
_=_ 'novemvigintiseptingen trigintaseptingen untrigintaseptingen duotrigintaseptingen trestrigintaseptingen quattuortrigintaseptingen quinquatrigintaseptingen sestrigintaseptingen septentrigintaseptingen octotrigintaseptingen'
_=_ 'noventrigintaseptingen quadragintaseptingen unquadragintaseptingen duoquadragintaseptingen tresquadragintaseptingen quattuorquadragintaseptingen quinquaquadragintaseptingen sesquadragintaseptingen septenquadragintaseptingen'
_=_ 'octoquadragintaseptingen novenquadragintaseptingen quinquagintaseptingen unquinquagintaseptingen duoquinquagintaseptingen tresquinquagintaseptingen quattuorquinquagintaseptingen quinquaquinquagintaseptingen sesquinquagintaseptingen'
_=_ 'septenquinquagintaseptingen octoquinquagintaseptingen novenquinquagintaseptingen sexagintaseptingen unsexagintaseptingen duosexagintaseptingen tresexagintaseptingen quattuorsexagintaseptingen quinquasexagintaseptingen sesexagintaseptingen'
_=_ 'septensexagintaseptingen octosexagintaseptingen novensexagintaseptingen septuagintaseptingen unseptuagintaseptingen duoseptuagintaseptingen treseptuagintaseptingen quattuorseptuagintaseptingen quinquaseptuagintaseptingen'
_=_ 'seseptuagintaseptingen septenseptuagintaseptingen octoseptuagintaseptingen novenseptuagintaseptingen octogintaseptingen unoctogintaseptingen duooctogintaseptingen tresoctogintaseptingen quattuoroctogintaseptingen quinquaoctogintaseptingen'
_=_ 'sexoctogintaseptingen septemoctogintaseptingen octooctogintaseptingen novemoctogintaseptingen nonagintaseptingen unnonagintaseptingen duononagintaseptingen trenonagintaseptingen quattuornonagintaseptingen quinquanonagintaseptingen'
_=_ 'senonagintaseptingen septenonagintaseptingen octononagintaseptingen novenonagintaseptingen octingen unoctingen duooctingen tresoctingen quattuoroctingen quinquaoctingen sexoctingen septemoctingen octooctingen novemoctingen decioctingen'
_=_ 'undecioctingen duodecioctingen tredecioctingen quattuordecioctingen quinquadecioctingen sedecioctingen septendecioctingen octodecioctingen novendecioctingen vigintioctingen unvigintioctingen duovigintioctingen tresvigintioctingen'
_=_ 'quattuorvigintioctingen quinquavigintioctingen sesvigintioctingen septemvigintioctingen octovigintioctingen novemvigintioctingen trigintaoctingen untrigintaoctingen duotrigintaoctingen trestrigintaoctingen quattuortrigintaoctingen'
_=_ 'quinquatrigintaoctingen sestrigintaoctingen septentrigintaoctingen octotrigintaoctingen noventrigintaoctingen quadragintaoctingen unquadragintaoctingen duoquadragintaoctingen tresquadragintaoctingen quattuorquadragintaoctingen'
_=_ 'quinquaquadragintaoctingen sesquadragintaoctingen septenquadragintaoctingen octoquadragintaoctingen novenquadragintaoctingen quinquagintaoctingen unquinquagintaoctingen duoquinquagintaoctingen tresquinquagintaoctingen'
_=_ 'quattuorquinquagintaoctingen quinquaquinquagintaoctingen sesquinquagintaoctingen septenquinquagintaoctingen octoquinquagintaoctingen novenquinquagintaoctingen sexagintaoctingen unsexagintaoctingen duosexagintaoctingen tresexagintaoctingen'
_=_ 'quattuorsexagintaoctingen quinquasexagintaoctingen sesexagintaoctingen septensexagintaoctingen octosexagintaoctingen novensexagintaoctingen septuagintaoctingen unseptuagintaoctingen duoseptuagintaoctingen treseptuagintaoctingen'
_=_ 'quattuorseptuagintaoctingen quinquaseptuagintaoctingen seseptuagintaoctingen septenseptuagintaoctingen octoseptuagintaoctingen novenseptuagintaoctingen octogintaoctingen unoctogintaoctingen duooctogintaoctingen tresoctogintaoctingen'
_=_ 'quattuoroctogintaoctingen quinquaoctogintaoctingen sexoctogintaoctingen septemoctogintaoctingen octooctogintaoctingen novemoctogintaoctingen nonagintaoctingen unnonagintaoctingen duononagintaoctingen trenonagintaoctingen'
_=_ 'quattuornonagintaoctingen quinquanonagintaoctingen senonagintaoctingen septenonagintaoctingen octononagintaoctingen novenonagintaoctingen nongen unnongen duonongen trenongen quattuornongen quinquanongen senongen septenongen octonongen'
_=_ 'novenongen decinongen undecinongen duodecinongen tredecinongen quattuordecinongen quinquadecinongen sedecinongen septendecinongen octodecinongen novendecinongen vigintinongen unvigintinongen duovigintinongen tresvigintinongen'
_=_ 'quattuorvigintinongen quinquavigintinongen sesvigintinongen septemvigintinongen octovigintinongen novemvigintinongen trigintanongen untrigintanongen duotrigintanongen trestrigintanongen quattuortrigintanongen quinquatrigintanongen'
_=_ 'sestrigintanongen septentrigintanongen octotrigintanongen noventrigintanongen quadragintanongen unquadragintanongen duoquadragintanongen tresquadragintanongen quattuorquadragintanongen quinquaquadragintanongen sesquadragintanongen'
_=_ 'septenquadragintanongen octoquadragintanongen novenquadragintanongen quinquagintanongen unquinquagintanongen duoquinquagintanongen tresquinquagintanongen quattuorquinquagintanongen quinquaquinquagintanongen sesquinquagintanongen'
_=_ 'septenquinquagintanongen octoquinquagintanongen novenquinquagintanongen sexagintanongen unsexagintanongen duosexagintanongen tresexagintanongen quattuorsexagintanongen quinquasexagintanongen sesexagintanongen septensexagintanongen'
_=_ 'octosexagintanongen novensexagintanongen septuagintanongen unseptuagintanongen duoseptuagintanongen treseptuagintanongen quattuorseptuagintanongen quinquaseptuagintanongen seseptuagintanongen septenseptuagintanongen octoseptuagintanongen'
_=_ 'novenseptuagintanongen octogintanongen unoctogintanongen duooctogintanongen tresoctogintanongen quattuoroctogintanongen quinquaoctogintanongen sexoctogintanongen septemoctogintanongen octooctogintanongen novemoctogintanongen nonagintanonge'
_=_ 'unnonagintanongen duononagintanongen trenonagintanongen quattuornonagintanongen quinquanonagintanongen senonagintanongen septenonagintanongen novenonagintanongen octononagintanongen'
amers=words(_)
do j=1 for amers; a.j=word(_,j); end
maxzlen=amers *3
if british then do
engs=amers*2-2; maxzlen=engs*3
do k=1 for 2; b.k=a.k; end
do j=3 to amers; _=j*2-3; b._=a.j; _n=_+1; b._n=a.j; end
drop a.
end
D:\►type sp2.rex
n=space(n); _=left(n,1)
sig=
if _=='-' | _=="+" then do /*handle leading sign (+ -).*/
if _=='+' then sig=plus
else sig=minus
n=substr(n,2) /*remove the leading sign. */
end
numeric digits 80+maxzlen
zpoints =countstr('.',n); zpoint =zpoints \==0; if zpoints >1 then call er 59,'decimal-points(.)'
zdollars=countstr('$',n); zdollar=zdollars\==0; if zdollars>1 then call er 59,'dollar-signs($)'
zeuros =countstr('ε',n); zeuro =zeuros \==0; if zeuros >1 then call er 59,'euro-signs(ε)'
zfrancs =countstr('ƒ',n); zfranc =zfrancs \==0; if zfrancs >1 then call er 59,'franc-signs(ƒ)'
zpounds =countstr('£',n); zpound =zpounds \==0; if zpounds >1 then call er 59,'pound-signs(£)'
zyens =countstr('¥',n); zyen =zyens \==0; if zyens >1 then call er 59,'yen-signs(¥)'
zpisetas=countstr('₧',n); zpiseta=zpisetas\==0; if zpisetas>1 then call er 59,'piseta-signs(₧)'
zcents =countstr('¢',n); zcent =zcents \==0; if zcents >1 then call er 59,'cent-signs(¢)'
zcurrs=zdollars+zeuros+zpounds+zyens+zpisetas+zfrancs+zcents
zcurr=zcurrs\==0
if zcurrs>2 then call er 59,'currency symbols'
if zdollar then do; xcurr=dollar; n=changestr("$",n,''); end
if zeuro then do; xcurr=euro; n=changestr("ε",n,''); end
if zpound then do; xcurr=pound; n=changestr("£",n,''); end
if zyen then do; xcurr=yen; n=changestr("¥",n,''); end
if zpiseta then do; xcurr=piseta; n=changestr("₧",n,''); end
if zfranc then do; xcurr=franc; n=changestr("ƒ",n,''); end
if zcent then do; xcurr=cent; n=changestr("¢",n,''); end
if zpoint then dot=point /*we have a decimal point. */
_=right(n,1) /*pick off right-most character*/
if ismix(_) | _=='!' then n=num(n) /*if # has a suffix, convert it*/
parse upper var n n 'E' exponent /*parse the exponent, if any. */
parse var n n '.' fraction
leadzs=compare(n,copies(0,digits()))-1 /*count leading zeroes.*/
n=changestr(',',n,"")
if isnum(n) then do
if \asis then n=n/1
end
else do 1
if n=='' then leave
expression=n
interpret 'number='expression
n=trunc(number)
end
if xcurr\=='' then do 1
if xcurr==zyen then leave
if n\==1 then xcurr=xcurr's'
end
max#=10**maxzlen*1000-1
if \asis & isnum(n) then n=n/1
if n\=='' & isnum(n) then if n>max# then call er 81,-max# max# ogn
if n\=='' & \isint(n) then call er 53,n
if abs(n)>max# then call er 81,-max# max# ogn
if leading\=='' then leadingz=copies(leading' ',leadzs)
if asayear & right(n,3)\==000 then do
#=spnte(left(n,max(0,length(n)-2)))
if #==zero then #=
_2=right(n,2)
_=spnte(_2)
if _==zero then _="hundred"
if _2<10 & _2>0 then _=zero _
#=sig||# _
end
else #=sig||leadingz||spnte(n)
if ordinal then
do
sx=;w=words(#);p=word(#,w);oldp=p;pp=
if pos('-',p)\==0 then parse var p pp '-'p
if pp\=='' then pp=pp'-'
select
when p=='one' then p="first"
when p=='two' then p="second"
when p=='three' then p="third"
when p=='five' then p="fifth"
when p=='eight' then p="eighth"
when p=='nine' then p="ninth"
when p=='twelve' then p="twelfth"
when right(p,1)=='y' then p=left(p,length(p)-1)"ieth"
otherwise sx='th'
end
if p\==oldp then if w==1 then #=pp||p
else #=subword(#,1,w-1) pp||p
#=#||sx
end
lf=length(fraction)
if (lf==1 | lf==2) & zdollar then do
if fraction\=1 then cent=cent's'
fractions=sp(fraction) cent
dot=xcurr andcent
xcurr=
end
else do j=1 for lf
_=substr(fraction,j,1)
fractions=fractions dig._
end
if exponent\=='' then
do
if \isint(exponent) then call er 53,exponent 'exponent'
_=sp(exponent "ORDINAL");if _\=='' then exponents=raised _ power
end
after=space(dot fractions exponents xcurr)
if after\=='' then after=" "after
#=translate(#||after,,"_");if blanks\=='' then #=translate(#,blanks," ")
if \quiet then call $t tops #
if !fun=='COMMAND' then return 0
return #
/*─────────────────────────────spnte subroutine─────────────────────────*/
spnte: parse arg zz; if zz==0 | zz=' ' then return nothing; en=
bzz=reverse(zz)
has_t=22
if british then has_t=41
if single then do j=1 for length(zz)
_=substr(zz,j,1);en=en dig._
end
else do j=1 to maxzlen by 3
_=(j+2)%3
if american then zillion=a._
else zillion=b._
if zillion==0 then zillion=
if _>=has_t then zillion=zillion't'
if _>2 then do
if american then zillion=zillion'illion'
else if _//2 then zillion=zillion'illion'
else zillion=zillion'illiard'
end
ttt=reverse(substr(bzz,j,3)); if ttt==' ' then leave
ttt=right(strip(ttt),3,0) ; if ttt== 000 then iterate
x=sphtu(ttt) zillion
if en\=='' then en=sep||en;en=x en
end
en=strip(translate(en,,"_"))
if en=='' then if zcurr then do;if \zcent then en="no";end
else en=zero
return en
/*─────────────────────────────sphtu subroutine─────────────────────────*/
sphtu: procedure; parse arg z
@987='nine eight seven six five four three two one'
zm=substr(z,2,1)
zr=right(z,1)
zh=word(@987,10-left(z,1))
if zh\=='' then zh=zh "hundred"
zt=word('ninety eighty seventy sixty fifty forty thirty twenty',10-zm)
zu=word(@987,10-zr)
@teens='ten eleven twelve thir four fif six seven eigh nine'
if zm==1 then do
zu=
zt=word(@teens,zr+1)
if zr>2 then zt=zt'teen'
end
if zt\=='' & zu\=="" then do
zt=zt'-'zu
zu=
end
return space(zh zt zu)
/*═════════════════════════════general 1-line subs══════════════════════*/
!all:!!=!;!=space(!);upper !;call !fid;!nt=right(!var('OS'),2)=='NT';!cls=word('CLS VMFCLEAR CLRSCREEN',1+!cms+!tso*2);if arg(1)\==1 then return 0;if wordpos(!,'? ?SAMPLES ?AUTHOR ?FLOW')==0 then return 0;!call=']$H';call '$H' !fn !;!call=;return 1
!cal:if symbol('!CALL')\=="VAR" then !call=;return !call
!env:!env='ENVIRONMENT';if !sys=='MSDOS'|!brexx|!r4|!roo then !env='SYSTEM';if !os2 then !env='OS2'!env;!ebcdic=1=='f0'x;return
!fid:parse upper source !sys !fun !fid . 1 . . !fn !ft !fm .;call !sys;if !dos then do;_=lastpos('\',!fn);!fm=left(!fn,_);!fn=substr(!fn,_+1);parse var !fn !fn '.' !ft;end;return word(0 !fn !ft !fm,1+('0'arg(1)))
!rex:parse upper version !ver !vernum !verdate .;!brexx='BY'==!vernum;!kexx='KEXX'==!ver;!pcrexx='REXX/PERSONAL'==!ver|'REXX/PC'==!ver;!r4='REXX-R4'==!ver;!regina='REXX-REGINA'==left(!ver,11);!roo='REXX-ROO'==!ver;call !env;return
!sys:!cms=!sys=='CMS';!os2=!sys=='OS2';!tso=!sys=='TSO'|!sys=='MVS';!vse=!sys=='VSE';!dos=pos('DOS',!sys)\==0|pos('WIN',!sys)\==0|!sys=='CMD';call !rex;return
!var:call !fid;if !kexx then return space(dosenv(arg(1)));return space(value(arg(1),,!env))
$fact!:procedure;parse arg x _ .;l=length(x);n=l-length(strip(x,'T',"!"));if n==0|_\==''|arg()\==1 then return x;z=left(x,l-n);if z<0|\datatype(z,'W') then return x;return $fact(z,n)
$fact:procedure;parse arg x _ .;arg ,n ! .;n=p(n 1);if \isint(n) then n=0;if x<0|\isint(x)|n<1|_||!\==''|arg()>2 then return x||copies("!",max(1,n));!=1;s=x//n;if s==0 then s=n;do j=s to x by n;!=!*j;end;return !
$sfxa:parse arg ,s,m;arg u,c;if pos(left(s,2),u)\==0 then do j=length(s) to compare(s,c)-1 by -1;if right(u,j)\==left(c,j) then iterate;_=left(u,length(u)-j);if datatype(_,'N') then return m*_;leave;end;return arg(1)
$sfxf:parse arg y;if right(y,1)=='!' then y=$fact!(y);if \datatype(y,'N') then y=$sfxz();if datatype(y,'N') then return y;return $sfxm(y)
$sfxm:parse arg z;arg w;b=1000;if right(w,1)=='I' then do;z=shorten(z);w=z;upper w;b=1024;end;p=pos(right(w,1),'KMGTPEZYXWVU');if p==0 then return arg(1);n=shorten(z);r=num(n,f,1);if datatype(r,'N') then return r*b**p;return arg(1)
$sfxz:return $sfxa($sfxa($sfxa($sfxa($sfxa($sfxa(y,'PAIRs',2),'DOZens',12),'SCore',20),'GREATGRoss',1728),'GRoss',144),'GOOGOLs',1e100)
$t: say arg(1); return /*this label pre-empts the one below*/
/*$T (below) supports many options: color(s), writing the output to a file, and many others. */
$t:!call=']$T';call "$T" arg(1);!call=;return
<br>The '''$SPELL#''' REXX program makes use of '''$T''' REXX program which is used to display text and/or write the text to a file.
abb:arg abbu;parse arg abb;return abbrev(abbu,_,abbl(abb))
<br>The '''$T''' REXX program is included here ──► [[$T.REX]].
abbl:return verify(arg(1)'a',@abc,'M')-1
<br>The help for the '''$T''' REXX program is included here ──► [[$T.HEL]].
abbn:parse arg abbn;return abb(abbn)|abb('NO'abbn)
<br><br>The '''$SPELL#''' REXX program makes use of '''$ERR''' REXX program which is used to display error messages (via '''$T''').
changestr:procedure;parse arg o,h,n;r=;w=length(o);if w==0 then return n||h;do forever;parse var h y (o) _ +(w) h;if _=='' then return r||y;r=r||y||n;end
<br>The '''$ERR''' REXX program is included here ──► [[$ERR.REX]].
countstr:procedure;parse arg n,h,s;if s=='' then s=1;w=length(n);do r=0 until _==0;_=pos(n,h,s);s=_+w;end;return r
<br>The help for the '''$ERR''' REXX program is included here ──► [[$ERR.HEL]].
er:parse arg _1,_2;call '$ERR' "14"p(_1) p(word(_1,2) !fid(1)) _2;if _1<0 then return _1;exit result
<br><br>Some older REXXes don't have a '''changestr''' BIF, so one is included here ──► [[CHANGESTR.REX]].
err:call er '-'arg(1),arg(2);return ''
erx:call er '-'arg(1),arg(2);exit ''
getdtfid:tfid=p(!var("TMP") !var('TEMP') homedrive()"\");if substr(tfid,2,1)==':'&substr(tfid,3,1)\=="\" then tfid=insert('\',t,2);return strip(tfid,'T',"\")'\'arg(1)'.'arg(2)
gettfid:if tfid\=='' then return tfid;gfn=word(arg(1) !fn,1);gft=word(arg(2) 'ANS',1);tfid='TEMP';if !tso then tfid=gfn'.'gft;if !cms then tfid=gfn','gft",A4";if !dos then tfid=getdtfid(gfn,gft);return tfid
halt:call er .1
homedrive:if symbol('HOMEDRIVE')\=="VAR" then homedrive=p(!var('HOMEDRIVE') 'C:');return homedrive
int:int=num(arg(1),arg(2));if \isint(int) then call er 92,arg(1) arg(2);return int/1
ishex:return datatype(arg(1),'X')
isint:return datatype(arg(1),'W')
ismix:return datatype(arg(1),'M')
isnum:return datatype(arg(1),'N')
na:if arg(1)\=='' then call er 01,arg(2);parse var ops na ops;if na=='' then call er 35,_o;return na
nai:return int(na(),_o)
nan:return num(na(),_o)
no:if arg(1)\=='' then call er 01,arg(2);return left(_,2)\=='NO'
novalue:!sigl=sigl;call er 17,!fid(2) !fid(3) !sigl condition('D') sourceline(!sigl)
num:procedure;parse arg x .,f,q;if x=='' then return x;if datatype(x,'N') then return x/1;x=space(translate(x,,','),0);if \datatype(x,'N') then x=$sfxf(x);if datatype(x,'N') then return x/1;return numnot()
numnot:if q==1 then return x;if q=='' then call er 53,x f;call erx 53,x f
p:return word(arg(1),1)
shorten:procedure;parse arg a,n;return left(a,max(0,length(a)-p(n 1)))
sp:!call=']'!fn;sp="$SPELL#"(arg(1) 'Q');!call=;return sp
syntax:!sigl=sigl;call er 13,!fid(2) !fid(3) !sigl !cal() condition('D') sourceline(!sigl)</lang>
Some older REXXes don't have a '''changestr''' bif, so one is included here ──► [[CHANGESTR.REX]].
<br><br>
===output===
Output when using the input of: <tt> 373 ordinal </tt>
three hundred seventy-third
Output when using the input of: <tt> 373 </tt>
three hundred seventy-three
Output when using the input of: <tt> +45 </tt>
plus forty-five
Output when using the input of: <tt> 1989 asYear </tt>
nineteen eighty-nine
Output when using the input of: <tt> -12.79 </tt>
minus twelve point seven nine
Output when using the input of: <tt> $119.63 </tt>
one hundred nineteen dollars and sixty-three cents
Output when using the input of: <tt> 3456T </tt>
three quadrillion four hundred fifty-six trillion
Output when using the input of: <tt> 4Ki </tt>
four thousand ninety-six
Output when using the input of: <tt> 6! </tt>
seven hundred twenty
Output when using the input of: <tt> 10dozen </tt>
one hundred twenty
Output when using the input of: <tt> 70000000000000... </tt> (3,000 zeroes total)
seven octononagintanongentillion
| 