+++ /dev/null
-#!/usr/bin/env ruby
-$KCODE = 'u'
-$LOAD_PATH << '../lib'
-require 'chise'
-require 'chise/kanjilist'
-include CHISE
-
-def atom_list(list)
- list.map_character {|char|
- d = yield(char)
- d.char_length == 1 ? d : ""
- }
-end
-
-def check_list(list)
- d = atom_list(list){|char| char.decompose }
- g = atom_list(list){|char| char.glyph_decompose }
- da = d.to_a
- ga = g.to_a
- wa = da & ga
- dd = (da - wa).join("")
- gg = (ga - wa).join("")
- puts "意味で分解できない文字: "+d, "これだけに含まれる文字: "+dd
- puts "形で分解できない文字: "+g, "これだけに含まれる文字: "+gg
-end
-
-check_list(KanjiList::JOYO_KANJI_LIST)
-check_list(KanjiList::JISX0208_KANJI_LIST)