[ruby-list:34060] Re: 漢数字 -> 数

池田と申します。

From: [e-mail]
Subject: [ruby-list:34054] Re: 漢数字 -> 数
Date: Mon, 25 Feb 2002 12:08:26 +0900

> > 漢数字を数に変換する簡単なスクリプトを教えてください。
…中略…
> まるでユーザサポート窓口への問い合わせのようなメールですね...。"〜する
> スクリプトをこんな風に書いてみたのですが、意図する結果が得られません。
> どこがまずいのでしょう？"ならともかく...。

  この意見に(も)頷くところは多いのですが、つい現実逃避ネタとしてアルゴ
リズム?を考えてしまったので…。

# スクリプトの{汚さ,品の無さ}は、作者の性格が反映されているためらしく、
# 直せません。:b


BEGIN-------------------------------------------------------
#! /usr/local/bin/ruby -Ks

require 'jcode'

def 漢数字⇒アラビア数字(漢数字)
  数 = {
    '〇'=>0,
    '一'=>1, '壱'=>1,
    '二'=>2, '弐'=>2,
    '三'=>3, '参'=>3,
    '四'=>4,
    '五'=>5,
    '六'=>6,
    '七'=>7,
    '八'=>8,
    '九'=>9
  }
  倍数 = ['十', '百', '千']
  単位数 = ['万', '億', '兆', '京', '垓']

  一位の値 = 0
  倍数の値 = {}
  倍数.each {|漢字表記| 倍数の値[漢字表記] = 0}
  単位数の値 = {}
  単位数.each {|漢字表記| 単位数の値[漢字表記] = 0}

  漢数字.each_char {|漢字|
    if (値 = 数[漢字]) then
      一位の値 = 一位の値 * 10 + 値
    elsif 倍数.include?(漢字) then
      if 一位の値 == 0 then
	一位の値 = 1
      end
      倍数の値[漢字] = 一位の値
      一位の値 = 0
    elsif 単位数.include?(漢字) then
      単位数の値[漢字] =
	倍数の値['千'] * 1000 +
	倍数の値['百'] * 100 +
	倍数の値['十'] * 10 +
	一位の値
      一位の値 = 0
      倍数.each {|漢字表記| 倍数の値[漢字表記] = 0}
    else
      raise "こんな文字列(#{漢数字.inspect})、変換できまへん。"
    end
  }

  アラビア数字 = 0
  単位数.reverse.each {|漢字|
    アラビア数字 = アラビア数字 * 10000 + 単位数の値[漢字]
  }
  アラビア数字 =
    アラビア数字 * 10000 +
    倍数の値['千'] * 1000 +
    倍数の値['百'] * 100 +
    倍数の値['十'] * 10 +
    一位の値

  アラビア数字
end

p 漢数字⇒アラビア数字('四千三百万十二')
p 漢数字⇒アラビア数字('四三百万一二')
p 漢数字⇒アラビア数字('四三〇〇〇〇一二')
p 漢数字⇒アラビア数字('四千三〇〇万一二')

exit
END---------------------------------------------------------

//                                                          池田健次郎
//                                               [e-mail]

PS. 十分なテストは(当然)してません。