Number names/REXX

From Rosetta Code

The full source of the   $SPELL#   REXX program is included here ──►   $SPELL#.REX.
The full help for the      $SPELL#   REXX program is included here ──►   $SPELL#.HEL.

As I understand the solving of any Rosetta Code task, it's OK to use a pre-existing computer language program.

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).

This REXX program supports:

  • long and short scale   (American and British styles)
  • ordinal numbers   and   cardinal numbers
  • expressing the number as a (calendar)   year     (1975 would be nineteen seventy-five)
  • decimal points   (6   is different than   6.)
  • decimal fractions
  • numbers with leading zeroes (as well as trailing zeroes)
  • leading signs   (+ or -)
  • exponential notation
  • currency symbols
  • adding commas (or whatever) to the output (including blanks)
  • numbers   (American) roughly up to 3,000 digits
  • numbers   (English)     roughly up to 6,000 digits
  • numbers with metric suffixes, namely:
    • 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   $H   to show the help, logic flow, sample uses, or 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).

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*           also named tres*


The   $SPELL#   REXX program makes use of   $T   REXX program which is used to display text and/or write the text to a file.
The   $T   REXX program is included here   ──►   $T.REX.
The help for the   $T   REXX program is included here ──►   $T.HEL.

The   $SPELL#   REXX program makes use of   $ERR   REXX program which is used to display error messages (via $T).
The   $ERR   REXX program is included here   ──►     $ERR.REX.
The help for the   $ERR   REXX program is included here   ──►   $ERR.HEL.

Some older REXXes don't have a   changestr   BIF, so one is included here   ──►   CHANGESTR.REX.

output

Output when using the input of:   373 ordinal 

three hundred seventy-third

Output when using the input of:   373 

three hundred seventy-three

Output when using the input of:   +45 

plus forty-five

Output when using the input of:   1989 asYear 

nineteen eighty-nine

Output when using the input of:   -12.79 

minus twelve point seven nine

Output when using the input of:   $119.63 

one hundred nineteen dollars and sixty-three cents

Output when using the input of:   3456T 

three quadrillion four hundred fifty-six trillion

Output when using the input of:   4Ki 

four thousand ninety-six

Output when using the input of:   6! 

seven hundred twenty

Output when using the input of:   10dozen 

one hundred twenty

Output when using the input of:   70000000000000...     (3,000 zeroes total) 

seven octononagintanongentillion
Retrieved from "https://rosettacode.org/wiki/Number_names/REXX?oldid=173972"