gistfile1.rb

require 'natto'

word_counters = {}
nm = Natto::MeCab.new

Dir::entries(".").select { |f| f.match /^ch.*\.re$/}.each do |file|
  File.open(file, "r") do |f|
    f.each_line do |line|
      nm.parse(line) do |n|
        word_counters[n.surface] = word_counters[n.surface] ? word_counters[n.surface] + 1 : 1
      end
    end
  end
end

word_counters = word_counters.sort_by {|k, v| v}
word_counters.each do |word, count|
  puts "#{word} - #{count}"
end