From: James Edward Gray II <james@...>
Date: 2005-03-10T05:44:46+09:00
Subject: Re: [SOLUTION] Roman Numerals (#22)

Here's my own late entry for this party.  My use of a prebuilt Array 
means all the others are faster than mine, at least on small data sets. 
  ;)

James Edward Gray II

#!/usr/local/bin/ruby -w

ROMAN_MAP = { 1 => "I",
               4 => "IV",
               5 => "V",
               9 => "IX",
               10 => "X",
               40 => "XL",
               50 => "L",
               90 => "XC",
               100 => "C",
               400 => "CD",
               500 => "D",
               900 => "CM",
               1000 => "M" }
ROMAN_NUMERALS = Array.new(3999) do |index|
	target = index + 1
	ROMAN_MAP.keys.sort { |a, b| b <=> a }.inject("") do |roman, div|
		times, target = target.divmod(div)
		roman << ROMAN_MAP[div] * times
	end
end

IS_ROMAN = /^#{ ROMAN_MAP.keys.sort { |a, b| b <=> a }.inject("") do 
|exp, n|
	num = ROMAN_MAP[n]
	exp << if num.length == 2 then "(?:#{num})?" else num + "{0,3}" end
end }$/
IS_ARABIC = /^(?:[123]\d{3}|[1-9]\d{0,2})$/

if __FILE__ == $0
	ARGF.each_line() do |line|
		line.chomp!
		case line
		when IS_ROMAN  then puts ROMAN_NUMERALS.index(line) + 1
		when IS_ARABIC then puts ROMAN_NUMERALS[line.to_i - 1]
		else raise "Invalid input:  #{line}"
		end
	end
end