[ruby-talk:7789] Re: Next amusing problem: talking integers

On Wed, 20 Dec 2000, David Alan Black wrote:

> Input:   123456
> Output:  "one-hundred twenty-three thousand four-hundred fifty-six"

Here's my first go. Very procedural!

  #! /usr/bin/env ruby

  $t = {                                 10=>'ten',       0=>'zero',
                          10=>'ten',     11=>'eleven',    1=>'one',
    1E2.to_i=>'hundred',  20=>'twenty',  12=>'twelve',    2=>'two',
    1E3.to_i=>'thousand', 30=>'thirty',  13=>'thirteen',  3=>'three',
                          40=>'forty',   14=>'fourteen',  4=>'four',
                          50=>'fifty',   15=>'fifteen',   5=>'five',
    1E6.to_i=>'million',  60=>'sixty',   16=>'sixteen',   6=>'six',
                          70=>'seventy', 17=>'seventeen', 7=>'seven',
                          80=>'eighty',  18=>'eighteen',  8=>'eight',
    1E9.to_i=>'billion',  90=>'ninety',  19=>'nineteen',  9=>'nine'
  }

  def num2(num)
    if num > 20 && num % 10 == 0
      "#{$t[num/10*10]}"
    elsif num > 20
      "#{$t[num/10*10]} #{$t[num%10]}"
    else
      $t[num]
    end
  end

  def num3(num)
    if num >= 100 && num % 100 == 0
      "#{$t[num/100]} #{$t[100]}"
    elsif num > 100
      "#{$t[num/100]} #{$t[100]} and #{num2(num%100)}"
    else
      num2(num)
    end
  end

  def num9(num)
    if num == 0
      $t[0]
    elsif num >= 1E12
      "Number too large to print"
    else
      low = num % 1000; num /= 1000
      tho = num % 1000; num /= 1000
      mil = num % 1000; num /= 1000
      bil = num % 1000; num /= 1000

      res = ""
      if bil > 0 then res += "#{num3(bil)} #{$t[1E9.to_i]} " end
      if mil > 0 then res += "#{num3(mil)} #{$t[1E6.to_i]} " end
      if tho > 0 then res += "#{num3(tho)} #{$t[1E3.to_i]} " end
      if low > 0 then res += "#{num3(low)} " end

      res[-1] = ""
      res
    end
  end

  num = ARGV[0].to_i
  puts num9(num)

I like the table as it's very easy to look at, but I don't like the rest
of the code. Hopefully someone else has better ideas here. :)

-- 
  [e-mail]