Markov

markov.rb

#!/usr/bin/ruby
# coding: utf-8

ts = {}
as = []

(`chasen source.txt`).each_line do |line|
  as.push line.split(/\t/)[0]
end

as.each_cons(2) do |ar|
  if ts.key? ar.first
    ts[ar.first].push(ar.last)
  else
    ts[ar.first] = [ar.last]
  end
end

(0..10).each do
  w = "」"
  while w == "」"
    w = ts["。"][rand(ts["。"].size)]
  end
  while true
    printf w
    if w == "。" || w == "」"
      break
    end
    w = ts[w][rand(ts[w].size)]
  end
  puts ""
end