Ordinal Number Translator

The following script translate a string, like “nine hundred and nineteenth”, in its number equivalent.

Here is the source:

REBOL [
Title: "Ordinal Number Translator"
Date: 18-Jun-1999
File: %ordnum.r
Author: "Scrip Rebo"
Purpose: "Translates ordinals (e.g. twenty) to numbers (20)"
]
ord-to-num: func [number [string!] /local m t n] [
m: t: n: 0
parse number [some [
"hundred" (n: n * 100) |
"thousand" (t: n * 1000 n: 0) |
"million" (m: n * 1000000 n: 0) |
"eleven" (n: n + 11) |
"twelve" (n: n + 12) |
"thirteen" (n: n + 13) |
"fourteen" (n: n + 14) |
"fifteen" (n: n + 15) |
"sixteen" (n: n + 16) |
"seventeen" (n: n + 17) |
"eighteen" (n: n + 18) |
"nineteen" (n: n + 19) |
["twenty" | "twentieth"] (n: n + 20) |
["thirty" | "thirtieth"] (n: n + 30) |
["forty" | "fortieth"] (n: n + 40) |
["fifty" | "fiftieth"] (n: n + 50) |
["sixty" | "sixtieth"] (n: n + 60) |
["seventy" | "seventieth"] (n: n + 70) |
["eighty" | "eightieth"] (n: n + 80) |
["ninety" | "ninetieth"] (n: n + 90) |
["one" | "first"] (n: n + 1) |
["two" | "second"] (n: n + 2) |
["three" | "third"] (n: n + 3) |
"four" (n: n + 4) |
["five" | "fifth"] (n: n + 5) |
"six" (n: n + 6) |
"seven" (n: n + 7) |
["eight" | "eighth"] (n: n + 8 ) |
["nine" | "ninth"] (n: n + 9) |
"ten" (n: n + 10) |
"and" | "-" | "," | "th"
]]
m + t + n
]

Examples:

>> ord-to-num "sixth"
== 6
>> ord-to-num "eleventh"
== 11
>> ord-to-num "thirtieth"
== 30
>> ord-to-num "sixty-first"
= 61
>> ord-to-num "nine hundred and nineteenth"
== 919
>> ord-to-num "five hundred and fifteen thousand fifty-eighth"
== 515058

Tags: ,

Print This Post Print This Post
217 views
1 Star2 Stars3 Stars4 Stars5 Stars (No Ratings Yet)
Loading ... Loading ...

Leave a Reply

You must be logged in to post a comment.