Return to speller.icn CVS log

Up to [Research Unix] / researchv10dc / cmd / icon / tests

Annotation of researchv10dc/cmd/icon/tests/speller.icn, revision 1.1.1.1

1.1       root        1: procedure spell(n)
                      2:    local m
                      3:    n := integer(n)
                      4:    return (
                      5:       if n <= 12 then
                      6:          "0zero,1one,2two,3three,4four,5five,6six,7seven,8eight,_
                      7:             9nine,10ten,11eleven,12twelve," ? {
                      8:                tab(find(n))
                      9:                move(*n)
                     10:                tab(upto(","))
                     11:                }
                     12:       else if n <= 19 then
                     13:          spell(n[2] || "0") ?
                     14:             (if ="for" then "four" else tab(find("ty"))) || "teen"
                     15:       else if n <= 99 then
                     16:          "2twen,3thir,4for,5fif,6six,7seven,8eigh,9nine," ? {
                     17:             tab(upto(n[1]))
                     18:             move(1)
                     19:             tab(upto(",")) || "ty" ||
                     20:                if n[2] ~= 0 then "-" || spell(n[2])
                     21:             }
                     22:       else if n <= 999 then
                     23:          spell(n[1]) || " hundred" ||
                     24:             (if (m := n[2+:2]) ~= 0 then " and " || spell(m))
                     25:       else if n <= 999999999 then
                     26:          spell(n[1:-3]) ?
                     27:             (tab(find("thousand")) || (move(8) & "million") | "") ||
                     28:             tab(0) ||
                     29:             " thousand" ||
                     30:             (if (m := n[-3:0]) ~= 0 then ", " || spell(m))
                     31:       else
                     32:          "number too large"
                     33:       )
                     34: end
                     35: 
                     36: procedure spellw(n)
                     37:    write(n, "  ", spell(n))
                     38:    return
                     39: end
                     40: 
                     41: procedure main()
                     42:    every spellw(1 to 25)
                     43:    every spellw(30 to 110 by 3)
                     44:    spellw(945123342)
                     45:    every spellw(10000000 to 10000500)
                     46: end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.