Kotz’i’jに恋して16

Posted on 2017-06-01 by 13 No'j

ここ数日間取り組んできたマルコフ連鎖による文書生成アルゴリズムをようやくTzijonikプログラムに取り入れた。重要な更新なのでバージョンを２にした。　慣れないRubyで色々とメソッドを書いたので、ttr_readerとか今まで曖昧だった部分も理解できる様になった。

コードはやはりDictionary.rbとResponder.rbへの追加修正が主。Dictionary.rbにはマルコフ連鎖関連の下記コードを追加：

  def studyMarkov(input)
    words = []
    fragments = input.split
    count = 0
    fragments.each do |word|
     if count == 0 then
       word = "%START%" + word
     end   
     words.push(word)
     count += 1
    end
	unless words.size < 3
      for i in 0..words.size - 2 do 
        next if words[i].include?(".") or words[i].include?("?")
  
        if words[i+2] == nil or words[i+1].include?(".") or words[i+1].include?("?") then 
          @markov << [words[i], words[i+1], "%END%"] 
        elsif words[i+2].include?(".") or words[i+2].include?("?") then
          @markov << [words[i], words[i+1], words[i+2] + "%END%"] 
        else
          @markov << [words[i], words[i+1], words[i+2]] 
        end
      end
    end	
  end

  def saveMarkov
    open('dictionaries/MarkovDic.txt', 'w') do |f|
	  markov.each do |a, b, c|
        f.puts([a + " " + b + " " + c])
      end
    end
  end

def studyMarkov(input)

words = []

fragments = input.split

count = 0

fragments.each do |word|

if count == 0 then

word = "%START%" + word

end

words.push(word)

count += 1

end

unless words.size < 3

for i in 0..words.size - 2 do

next if words[i].include?(".") or words[i].include?("?")

if words[i+2] == nil or words[i+1].include?(".") or words[i+1].include?("?") then

@markov << [words[i], words[i+1], "%END%"]

elsif words[i+2].include?(".") or words[i+2].include?("?") then

@markov << [words[i], words[i+1], words[i+2] + "%END%"]

else

@markov << [words[i], words[i+1], words[i+2]]

end

def saveMarkov

open('dictionaries/MarkovDic.txt', 'w') do |f|

markov.each do |a, b, c|

f.puts([a + " " + b + " " + c])

end

それからResponder.rbにはマルコフ連鎖で回答を作成するクラスを追加：

class MarkovResponder < Responder
  def response(input, mood)
    count = 0
    suffix = ""
    newSentence = ""

    while count < 100
      if newSentence == "" then
        startCandidates = []
        candidatesCount = 0
        @dictionary.markov.each do |a, b, c|
          if a.include?("%START%") then
            startCandidates << [a, b, c]
            candidatesCount += 1
          end    
        end  
    
        r = rand(candidatesCount)
        a = startCandidates[r][0]
        b = startCandidates[r][1]
        c = startCandidates[r][2]
        newSentence = a + " " + b + " " + c
        suffix = c
        count += 1 
      else
        rowCount = 0
        candidates = []
        @dictionary.markov.each do |a, b, c|
          if suffix == a then;
            candidates << [a, b, c]
            rowCount += 1
          end      
        end
    
        r = rand(rowCount)
        b = candidates[r][1]
        c = candidates[r][2]
        newSentence += " " + b + " " + c
        suffix = c
        count += 1
      end
    
      if suffix.include?("%END%") then
        newSentence.gsub!("%START%", "")
        newSentence.gsub!("%END%", "")
        return newSentence
        break
      end
    end  
  end
end

class MarkovResponder < Responder

def response(input, mood)

count = 0

suffix = ""

newSentence = ""

while count < 100

if newSentence == "" then

startCandidates = []

candidatesCount = 0

@dictionary.markov.each do |a, b, c|

if a.include?("%START%") then

startCandidates << [a, b, c]

candidatesCount += 1

end

r = rand(candidatesCount)

a = startCandidates[r][0]

b = startCandidates[r][1]

c = startCandidates[r][2]

newSentence = a + " " + b + " " + c

suffix = c

count += 1

else

rowCount = 0

candidates = []

@dictionary.markov.each do |a, b, c|

if suffix == a then;

candidates << [a, b, c]

rowCount += 1

end

r = rand(rowCount)

b = candidates[r][1]

c = candidates[r][2]

newSentence += " " + b + " " + c

suffix = c

count += 1

end

if suffix.include?("%END%") then

newSentence.gsub!("%START%", "")

newSentence.gsub!("%END%", "")

return newSentence

break

end

プログラムを起動してみる。

5割の確率でマルコフ連鎖で生成された文章で返事をするようにしている。ただ、入力した文章からキーワードを拾っている訳ではないので、意味のある会話にはなりにくい。でもKotzi’ijがある程度長い返答を出来るようにはなった。

今後はキーワードを拾う仕様にすることと、文法を考慮した上でマルコフ連鎖アルゴリズムに修正を加える必要がある。ただ、そうするとマルコフ連鎖では無くなってしまうけど。

Kotz’i’jに恋して15：マルコフ連鎖(マヤ・キチェ語その２)

Posted on 2017-06-01 by 13 No'j

昨日載せたコードを少し修正してみた。辞書ファイルへの書き込みも加えた。

MarkovChain.rb

def paragraphSplit(text)
  words = []
  temp = ""
  input = ""
  open(text) do |f|
    f.each do |line|
     temp << line
    end
  end
  input << temp
  sentence = input.scan(/[^.?!]*./)
  sentence.each do |s|
    fragments = s.split
    count = 0
    fragments.each do |word|
     if count == 0 then
       word = "%START%" + word
     end   
     words.push(word)
     count += 1
    end
  end
  return words
end

def writeASentence(markov)
  count = 0
  suffix = ""
  newSentence = ""

  while count < 100
    if newSentence == "" then
      startCandidates = []
      candidatesCount = 0
      markov.each do |a, b, c|
        if a.include?("%START%") then
          startCandidates << [a, b, c]
          candidatesCount += 1
        end    
      end  
    
      r = rand(candidatesCount)
      a = startCandidates[r][0]
      b = startCandidates[r][1]
      c = startCandidates[r][2]
      newSentence = a + " " + b + " " + c
      suffix = c
      count += 1 
    else
      rowCount = 0
      candidates = []
      markov.each do |a, b, c|
        if suffix == a then;
          candidates << [a, b, c]
          rowCount += 1
        end      
      end
    
      r = rand(rowCount)
      b = candidates[r][1]
      c = candidates[r][2]
      newSentence += " " + b + " " + c
      suffix = c
      count += 1
    end
    
    if suffix.include?("%END%") then
      newSentence.gsub!("%START%", "")
      newSentence.gsub!("%END%", "")
      return newSentence
      break
    end
  end
end

def markovDic(words)
  unless words.size < 3
    markov = []
    for i in 0..words.size - 2 do 
      next if words[i].include?(".") or words[i].include?("?")
  
      if words[i+2] == nil or words[i+1].include?(".") or words[i+1].include?("?") then 
        markov << [words[i], words[i+1], "%END%"] 
      elsif words[i+2].include?(".") or words[i+2].include?("?") then
        markov << [words[i], words[i+1], words[i+2] + "%END%"] 
      else
        markov << [words[i], words[i+1], words[i+2]] 
      end
    end
  end
  return markov
end

def paragraphSplit(text)

words = []

temp = ""

input = ""

open(text) do |f|

f.each do |line|

temp << line

end

input << temp

sentence = input.scan(/[^.?!]*./)

sentence.each do |s|

fragments = s.split

count = 0

fragments.each do |word|

if count == 0 then

word = "%START%" + word

end

words.push(word)

count += 1

end

return words

end

def writeASentence(markov)

count = 0

suffix = ""

newSentence = ""

while count < 100

if newSentence == "" then

startCandidates = []

candidatesCount = 0

markov.each do |a, b, c|

if a.include?("%START%") then

startCandidates << [a, b, c]

candidatesCount += 1

end

r = rand(candidatesCount)

a = startCandidates[r][0]

b = startCandidates[r][1]

c = startCandidates[r][2]

newSentence = a + " " + b + " " + c

suffix = c

count += 1

else

rowCount = 0

candidates = []

markov.each do |a, b, c|

if suffix == a then;

candidates << [a, b, c]

rowCount += 1

end

r = rand(rowCount)

b = candidates[r][1]

c = candidates[r][2]

newSentence += " " + b + " " + c

suffix = c

count += 1

end

if suffix.include?("%END%") then

newSentence.gsub!("%START%", "")

newSentence.gsub!("%END%", "")

return newSentence

break

end

def markovDic(words)

unless words.size < 3

markov = []

for i in 0..words.size - 2 do

next if words[i].include?(".") or words[i].include?("?")

if words[i+2] == nil or words[i+1].include?(".") or words[i+1].include?("?") then

markov << [words[i], words[i+1], "%END%"]

elsif words[i+2].include?(".") or words[i+2].include?("?") then

markov << [words[i], words[i+1], words[i+2] + "%END%"]

else

markov << [words[i], words[i+1], words[i+2]]

end

return markov

end

MarkovChainTestKiche.rb

require '.\MarkovChain'

words = []
markov = []
words = paragraphSplit('./MINEDUC.txt')
markov = markovDic(words)

count = 1
while count <=10 do
  sentence = writeASentence(markov)
  puts ("Sentence " + count.to_s + ": ")
  puts sentence
  puts""
  count += 1
end

open('./MarkovDic.txt', 'w') do |f|
  markov.each do |a, b, c|
    f.puts([a + " " + b + " " + c])
  end
end

require '.\MarkovChain'

words = []

markov = []

words = paragraphSplit('./MINEDUC.txt')

markov = markovDic(words)

count = 1

while count <=10 do

sentence = writeASentence(markov)

puts ("Sentence " + count.to_s + ": ")

puts sentence

puts""

count += 1

end

open('./MarkovDic.txt', 'w') do |f|

markov.each do |a, b, c|

f.puts([a + " " + b + " " + c])

end

辞書ファイルの読み込みはこの様に：

markov = []
open('./MarkovDic.txt') do |f|
  f.each do |line|
    a, b, c = line.split
	markov << [a, b, c]
  end
end

markov = []

open('./MarkovDic.txt') do |f|

f.each do |line|

a, b, c = line.split

markov << [a, b, c]

end

単純だけど必要なことは全てこれらのコードで出来ている。しかし、コードを見ると統計分析を行っているような書き方になっている。癖が抜けないなぁと思う。

Kotz’i’jに恋して14：マルコフ連鎖(マヤ・キチェ語)

Posted on 2017-05-31 by 13 No'j

キチェ語のテキストを何点か用意したのでマルコフ連鎖を用いたキチェ語の文章作成を試みた。

ここでは４点紹介する。まずはグアテマラ教育省の絵本数冊の文章をテキストとして採り入れた場合。

Sentence 1:
Pix pix, pix tz'ikin rumal kenumik.

Sentence 2:
¡In ri' ra'nan! Sib'alaj maltyox at am, xattob'an che jun.

Sentence 3:
Ri winaq xkimajij utikik che'.

Sentence 4:
Ri kinan kitat xub'ij jun saqb'in tajin kutij kichapik le alaj kuk.

Sentence 5:
wachanim xa oxlajuj chik k'olik.

Sentence 6:
Wachanim xa kajib' chik k'olik.

Sentence 7:
B'e, b'e, b'e kacha' jun oqxa'n.

Sentence 8:
Ri che’ k’o jun me’s chuchi’ ri jastaq rech.

Sentence 9:
Ri inlaj ala ¿Jas le alaj taq ak', le jun riqow ib', k'ate k'uri' sib'alaj kaki'kotik, aq'ab' xwa'lijik, xa rumal xutaq uloq we xtijtaj jastaq rumal man xk'iy taj.

Sentence 10:
Jun nim tata’ xub’ij che le wachi'l.

Sentence 1:

Pix pix, pix tz'ikin rumal kenumik.

Sentence 2:

¡In ri' ra'nan! Sib'alaj maltyox at am, xattob'an che jun.

Sentence 3:

Ri winaq xkimajij utikik che'.

Sentence 4:

Ri kinan kitat xub'ij jun saqb'in tajin kutij kichapik le alaj kuk.

Sentence 5:

wachanim xa oxlajuj chik k'olik.

Sentence 6:

Wachanim xa kajib' chik k'olik.

Sentence 7:

B'e, b'e, b'e kacha' jun oqxa'n.

Sentence 8:

Ri che’ k’o jun me’s chuchi’ ri jastaq rech.

Sentence 9:

Ri inlaj ala ¿Jas le alaj taq ak', le jun riqow ib', k'ate k'uri' sib'alaj kaki'kotik, aq'ab' xwa'lijik, xa rumal xutaq uloq we xtijtaj jastaq rumal man xk'iy taj.

Sentence 10:

Jun nim tata’ xub’ij che le wachi'l.

次にマイクロソフトのサービス・アグリーメント。

Sentence 1:
Xuquje', wene' juntaq tz'ib'wuj chik ri q'atem eche che taq patanib'al riqom apan qumal uj ruk'a'm rib' ruk' ri toq'inik ri'.

Sentence 2:
We je ka'el cho qawach chi k'o ta k'o apanoq chupam ri Pataninik kech taq b'anowem ri Pataninik ri Pataninik tajin kchakux na (versi?

Sentence 3:
Arechi k'o jun urox, rumal Microsoft( jas kub'an Microsoft Studios, kojkemchak, pataninik xuquje' salob'em wachib'al sik'inik on upam ri patanib'al on B'ixkil ri Ech lal, jas ta apanoq ri Pataninik rech le software xuquje' uqasaxik xuquje' che jun tojom uperaj ri patanib'al, on ri k'olib'al pa nimk'at uchapom rib' ruk' ri b'ixkil chi uxe' taq k'utunik on wene' kuk'exla' rib' jas ri kk'ulmatajik arechi' tz'aptal ri k'olib'al lal pa http://support.

Sentence 4:
We man kk'am lal apan on kkoj lal k'ya taq uwach toq'inik ri Windows, k'ate k'uri' ri jak'ayb'al arechi' b'im chi uxe' taq Urox.

Sentence 5:
Ri ilob'al rech Microsoft, k'olib'al lal pa Skype on che uk'amik taq le wokaj la on kajach apanoq chi upam taq uwach che jun tojom uperaj ri Microsoft chisaq uya'om b'e lal ka'ok ta lal kk'amwaj lal ri k'olib'al pa Skype xuquje', we tajin kkoj lal apan ri b'i'aj jas jun b'ixkil (jas ta ne', ujachik q'ojom ri q'atem eche che taq yuk'unem.

Sentence 6:
Tza eqle'n lal kiPataninik taq ri Pataninik; xuquje' ri Pataninik on nuk'um ch'ich'; wuqub'.

Sentence 7:
We je ri' wene' man kutoq'aj taj kq'axej lal cho taqanik" jawje chi' ka'el wi jas ri k'olib'al k'o jas jun che uq'echik we taqanik.

Sentence 8:
We je ri' k'o upatan.

Sentence 9:
Tzij b'anom che taq ri Jak'ayb'al rech Windows.

Sentence 10:
Eqle'n lal uya'ik apan ronojel ri Upam Ech lal man kuq'ech ta apachike jachanik che Microsoft man rumal ta wujil che juntaq tz'ib'wuj on uwach chik ri chakub'al on che ya'tal rumal ri ya'om b'i lal jun nim apan k'ex che, kuya' kaqatoq'ij apan chech ukojik le patanib'al rech Office, ri yuk'unem, k'o ch'ich'am eche lal kuya' ta apan kumal nantat che okem che juperaj on ronojel taq pataninik ya'om kumal jub'an chik che taq rachi'l chak ri nab'e kanoq xuquje' che ri Pataninik wene' ktoq'ix lal rech Microsoft, we je kelik q'echonik kb'an lal.

Sentence 1:

Xuquje', wene' juntaq tz'ib'wuj chik ri q'atem eche che taq patanib'al riqom apan qumal uj ruk'a'm rib' ruk' ri toq'inik ri'.

Sentence 2:

We je ka'el cho qawach chi k'o ta k'o apanoq chupam ri Pataninik kech taq b'anowem ri Pataninik ri Pataninik tajin kchakux na (versi?

Sentence 3:

Arechi k'o jun urox, rumal Microsoft( jas kub'an Microsoft Studios, kojkemchak, pataninik xuquje' salob'em wachib'al sik'inik on upam ri patanib'al on B'ixkil ri Ech lal, jas ta apanoq ri Pataninik rech le software xuquje' uqasaxik xuquje' che jun tojom uperaj ri patanib'al, on ri k'olib'al pa nimk'at uchapom rib' ruk' ri b'ixkil chi uxe' taq k'utunik on wene' kuk'exla' rib' jas ri kk'ulmatajik arechi' tz'aptal ri k'olib'al lal pa http://support.

Sentence 4:

We man kk'am lal apan on kkoj lal k'ya taq uwach toq'inik ri Windows, k'ate k'uri' ri jak'ayb'al arechi' b'im chi uxe' taq Urox.

Sentence 5:

Ri ilob'al rech Microsoft, k'olib'al lal pa Skype on che uk'amik taq le wokaj la on kajach apanoq chi upam taq uwach che jun tojom uperaj ri Microsoft chisaq uya'om b'e lal ka'ok ta lal kk'amwaj lal ri k'olib'al pa Skype xuquje', we tajin kkoj lal apan ri b'i'aj jas jun b'ixkil (jas ta ne', ujachik q'ojom ri q'atem eche che taq yuk'unem.

Sentence 6:

Tza eqle'n lal kiPataninik taq ri Pataninik; xuquje' ri Pataninik on nuk'um ch'ich'; wuqub'.

Sentence 7:

We je ri' wene' man kutoq'aj taj kq'axej lal cho taqanik" jawje chi' ka'el wi jas ri k'olib'al k'o jas jun che uq'echik we taqanik.

Sentence 8:

We je ri' k'o upatan.

Sentence 9:

Tzij b'anom che taq ri Jak'ayb'al rech Windows.

Sentence 10:

Eqle'n lal uya'ik apan ronojel ri Upam Ech lal man kuq'ech ta apachike jachanik che Microsoft man rumal ta wujil che juntaq tz'ib'wuj on uwach chik ri chakub'al on che ya'tal rumal ri ya'om b'i lal jun nim apan k'ex che, kuya' kaqatoq'ij apan chech ukojik le patanib'al rech Office, ri yuk'unem, k'o ch'ich'am eche lal kuya' ta apan kumal nantat che okem che juperaj on ronojel taq pataninik ya'om kumal jub'an chik che taq rachi'l chak ri nab'e kanoq xuquje' che ri Pataninik wene' ktoq'ix lal rech Microsoft, we je kelik q'echonik kb'an lal.

マイクロソフト関連の単語が見られる。次に聖書の一部分（フィリピ人への手紙）から。

Sentence 1:
coj, chijiquiba' ba' u k'ij sak! Je chbanok.

Sentence 2:
ch ajchac, chebato' ri ixokib ri'.

Sentence 3:
yo'w nu chuk'ab.

Sentence 4:
Xane' are quinwaj quinwil i tom, xukuje' ri c'olem pa ri Crist Jesus.

Sentence 5:
Sibalaj quinquicot pa ri mebayil xukuje' ri nu tzij ri i ch'uch'ujil chetamax cumal conojel ri winak.

Sentence 6:
Ri in quinquicotic pune' man ix cuininak ta che choman pa ri Ajawaxel.

Sentence 7:
Weta'm chi xa' rech c?

Sentence 8:
ch ajchac, chebato' ri ixokib ri'.

Sentence 9:
chajin na ri Ajawaxel, lok'alaj tak wachalal, ri sibalaj quinwaj quinwil i w?

Sentence 10:
C'o jun jasach mixoc wi il, xane' xuwi ri nu tzij re colobal ib, aretak xinito' pa ri wuj re c'aslemal.

Sentence 1:

coj, chijiquiba' ba' u k'ij sak! Je chbanok.

Sentence 2:

ch ajchac, chebato' ri ixokib ri'.

Sentence 3:

yo'w nu chuk'ab.

Sentence 4:

Xane' are quinwaj quinwil i tom, xukuje' ri c'olem pa ri Crist Jesus.

Sentence 5:

Sibalaj quinquicot pa ri mebayil xukuje' ri nu tzij ri i ch'uch'ujil chetamax cumal conojel ri winak.

Sentence 6:

Ri in quinquicotic pune' man ix cuininak ta che choman pa ri Ajawaxel.

Sentence 7:

Weta'm chi xa' rech c?

Sentence 8:

ch ajchac, chebato' ri ixokib ri'.

Sentence 9:

chajin na ri Ajawaxel, lok'alaj tak wachalal, ri sibalaj quinwaj quinwil i w?

Sentence 10:

C'o jun jasach mixoc wi il, xane' xuwi ri nu tzij re colobal ib, aretak xinito' pa ri wuj re c'aslemal.

スペル等が現在一般的に用いられているキチェ語のものと異なる。最後にキチェ族の聖典ポポル・ブフの一部から。

Sentence 1:
Ta xkich'ik k'ut e nab'e uchan: maja' b'i oq jun winaq, jun chikop, nima chikop ri ulew xuya' o Alom, K'ajolom; xutzininaq chik xek'oje wi ri kaj, ulew! Mata k'ut uq'ijilab'al, uq'ala'ib'al ri kej, tz'ikin; rumal Tz'aqol, B'itol; Uchuch, Uqajaw k'aslem, Winaqirem: Ab'anel, K'uxlanel; Alayrech, K'uxlay rech saqil amaqil; saqil al, saqil k' a'm.

Sentence 2:
Xecha' k'ut.

Sentence 3:
Ta xe'uchax chi k'oje chajal k' a'm.

Sentence 4:
Xecha' k'ut.

Sentence 5:
Lib'aj chi' 8 xwinaqirik: k' akalolinik, katolona puch upa kaj, upa ulew; kaj k' o wi.

Sentence 6:
Ta xkitzijoj ronojel a ta chawaxoq, ta chi k'is tz'uq ronojel a ta xq'alaj, ta xna'ojixik saq petenaq ch'aqa palo utzijoxik qamujib'al, ilb'al re Popa Wuj , ilb'al saq petenaq ch'aqa palo utzijoxik puch ewaxib'al, saqirib' al rumal Tz' aqol, B'itol, Alom, K'ajolom kib'i'.

Sentence 7:
E nimaq etamanel, e nimaq etamanel, e nab'e xkinojij, xkitzijoj puch; jusuk' xwinaqir ulew, juyub'-taq'aj; 10 xch'ob'och'ox ub'e ja': xb'inije'ik k'ole je raqan xo'l taq juyub' xa kachamanik, katz'ininik chi q'equ'm, chi aq'ab'.

Sentence 8:
Nim upe' oxik, utzijoxik puch, xa ewal uwach ilol re, b'isol re.

Sentence 9:
xchiqelesaj rumal maja b'i chik kiq'ij; xraj k'u kitij chik kiq'ij; xraj kitijtob'ej chik, xraj kitijtob'ej chik, Raxa Kaqulja; rox chik, Raxa Kaqulja; rox chik, xraj pu kinuk' chik ilb'al re ki' chelaj ronojel uwinaqil juyub': ri kej, tz'ikin; rumal Tz'aqol, B'itol, Alom, K'ajolom; xutzininaq chik ronojel ruk' xkib'an chik chi lolinik, ma xnawachir wi k'ut, xa remanik ja', xa li' anik palo, xa utukel ri Tz' aqol, B'itol, rnawi mixutzinik, mawi mixixch' awik.

Sentence 10:
Lib'aj chi' 8 xwinaqirik: k' o wi.

Sentence 1:

Ta xkich'ik k'ut e nab'e uchan: maja' b'i oq jun winaq, jun chikop, nima chikop ri ulew xuya' o Alom, K'ajolom; xutzininaq chik xek'oje wi ri kaj, ulew! Mata k'ut uq'ijilab'al, uq'ala'ib'al ri kej, tz'ikin; rumal Tz'aqol, B'itol; Uchuch, Uqajaw k'aslem, Winaqirem: Ab'anel, K'uxlanel; Alayrech, K'uxlay rech saqil amaqil; saqil al, saqil k' a'm.

Sentence 2:

Xecha' k'ut.

Sentence 3:

Ta xe'uchax chi k'oje chajal k' a'm.

Sentence 4:

Xecha' k'ut.

Sentence 5:

Lib'aj chi' 8 xwinaqirik: k' akalolinik, katolona puch upa kaj, upa ulew; kaj k' o wi.

Sentence 6:

Ta xkitzijoj ronojel a ta chawaxoq, ta chi k'is tz'uq ronojel a ta xq'alaj, ta xna'ojixik saq petenaq ch'aqa palo utzijoxik qamujib'al, ilb'al re Popa Wuj , ilb'al saq petenaq ch'aqa palo utzijoxik puch ewaxib'al, saqirib' al rumal Tz' aqol, B'itol, Alom, K'ajolom kib'i'.

Sentence 7:

E nimaq etamanel, e nimaq etamanel, e nab'e xkinojij, xkitzijoj puch; jusuk' xwinaqir ulew, juyub'-taq'aj; 10 xch'ob'och'ox ub'e ja': xb'inije'ik k'ole je raqan xo'l taq juyub' xa kachamanik, katz'ininik chi q'equ'm, chi aq'ab'.

Sentence 8:

Nim upe' oxik, utzijoxik puch, xa ewal uwach ilol re, b'isol re.

Sentence 9:

xchiqelesaj rumal maja b'i chik kiq'ij; xraj k'u kitij chik kiq'ij; xraj kitijtob'ej chik, xraj kitijtob'ej chik, Raxa Kaqulja; rox chik, Raxa Kaqulja; rox chik, xraj pu kinuk' chik ilb'al re ki' chelaj ronojel uwinaqil juyub': ri kej, tz'ikin; rumal Tz'aqol, B'itol, Alom, K'ajolom; xutzininaq chik ronojel ruk' xkib'an chik chi lolinik, ma xnawachir wi k'ut, xa remanik ja', xa li' anik palo, xa utukel ri Tz' aqol, B'itol, rnawi mixutzinik, mawi mixixch' awik.

Sentence 10:

Lib'aj chi' 8 xwinaqirik: k' o wi.

コードは下記の通り。

MarkovChain.rb

def paragraphSplit(text, words)
  temp = ""
  input = ""
  open(text) do |f|
    f.each do |line|
     temp << line
    end
  end
  input << temp
  sentence = input.scan(/[^.?!]*./)
  sentence.each do |s|
    fragments = s.split
    count = 0
    fragments.each do |word|
     if count == 0 then
       word = "%START%" + word
     end   
     words.push(word)
     count += 1
    end
  end
end

def writeASentence(markov, newSentence)
  count = 0
  suffix = ""
  newSentence = ""

  while count < 100
    if newSentence == "" then
      startCandidates = []
      candidatesCount = 0
      markov.each do |a, b, c|
        if a.include?("%START%") then
          startCandidates << [a, b, c]
          candidatesCount += 1
        end    
      end  
    
      r = rand(candidatesCount)
      a = startCandidates[r][0]
      b = startCandidates[r][1]
      c = startCandidates[r][2]
      newSentence = a + " " + b + " " + c
      suffix = c
      count += 1 
    else
      rowCount = 0
      candidates = []
      markov.each do |a, b, c|
        if suffix == a then;
          candidates << [a, b, c]
          rowCount += 1
        end      
      end
    
      r = rand(rowCount)
      b = candidates[r][1]
      c = candidates[r][2]
      newSentence += " " + b + " " + c
      suffix = c
      count += 1
    end
    
    if suffix.include?("%END%") then
      newSentence.gsub!("%START%", "")
      newSentence.gsub!("%END%", "")
      return newSentence
      break
    end
  end
end

def markovDic(words, markov)
  unless words.size < 3
    for i in 0..words.size - 2 do 
      next if words[i].include?(".") or words[i].include?("?")
  
      if words[i+2] == nil or words[i+1].include?(".") or words[i+1].include?("?") then 
        markov << [words[i], words[i+1], "%END%"] 
      elsif words[i+2].include?(".") or words[i+2].include?("?") then
        markov << [words[i], words[i+1], words[i+2] + "%END%"] 
      else
        markov << [words[i], words[i+1], words[i+2]] 
      end
    end
  end
end

def paragraphSplit(text, words)

temp = ""

input = ""

open(text) do |f|

f.each do |line|

temp << line

end

input << temp

sentence = input.scan(/[^.?!]*./)

sentence.each do |s|

fragments = s.split

count = 0

fragments.each do |word|

if count == 0 then

word = "%START%" + word

end

words.push(word)

count += 1

end

def writeASentence(markov, newSentence)

count = 0

suffix = ""

newSentence = ""

while count < 100

if newSentence == "" then

startCandidates = []

candidatesCount = 0

markov.each do |a, b, c|

if a.include?("%START%") then

startCandidates << [a, b, c]

candidatesCount += 1

end

r = rand(candidatesCount)

a = startCandidates[r][0]

b = startCandidates[r][1]

c = startCandidates[r][2]

newSentence = a + " " + b + " " + c

suffix = c

count += 1

else

rowCount = 0

candidates = []

markov.each do |a, b, c|

if suffix == a then;

candidates << [a, b, c]

rowCount += 1

end

r = rand(rowCount)

b = candidates[r][1]

c = candidates[r][2]

newSentence += " " + b + " " + c

suffix = c

count += 1

end

if suffix.include?("%END%") then

newSentence.gsub!("%START%", "")

newSentence.gsub!("%END%", "")

return newSentence

break

end

def markovDic(words, markov)

unless words.size < 3

for i in 0..words.size - 2 do

next if words[i].include?(".") or words[i].include?("?")

if words[i+2] == nil or words[i+1].include?(".") or words[i+1].include?("?") then

markov << [words[i], words[i+1], "%END%"]

elsif words[i+2].include?(".") or words[i+2].include?("?") then

markov << [words[i], words[i+1], words[i+2] + "%END%"]

else

markov << [words[i], words[i+1], words[i+2]]

end

MarkovChain.rb

require '.\MarkovChain'

words = []
markov = []
#paragraphSplit('./ALMG.txt', words)
#paragraphSplit('./MINEDUC.txt', words)
#paragraphSplit('./MSKiche.txt', words)
#paragraphSplit('./AjPilipsib4.txt', words)
paragraphSplit('./PopWuj.txt', words)
markovDic(words, markov)

count = 1
while count <=10 do
  sentence = writeASentence(markov, sentence)
  puts ("Sentence " + count.to_s + ": ")
  puts sentence
  puts""
  count += 1
end

require '.\MarkovChain'

words = []

markov = []

#paragraphSplit('./ALMG.txt', words)

#paragraphSplit('./MINEDUC.txt', words)

#paragraphSplit('./MSKiche.txt', words)

#paragraphSplit('./AjPilipsib4.txt', words)

paragraphSplit('./PopWuj.txt', words)

markovDic(words, markov)

count = 1

while count <=10 do

sentence = writeASentence(markov, sentence)

puts ("Sentence " + count.to_s + ": ")

puts sentence

puts""

count += 1

end

Kotz’i’jに恋して１３：マルコフ連鎖

Posted on 2017-05-31 by 13 No'j

前回述べた通り、マルコフ連鎖による文章作成のコードを書いてみた。辞書ファイルの保存を言語に関係無く容易に出来る様にするため、統計分析で用いることの多い二次元配列にした。

辞書のサイズが今後増えることを考えればツリー構造にすべきだろうけど、取り敢えず今は単純な２次元配列。

もう出し尽くされた感のあるテーマだけどコードは下の通り。

def paragraphSplit(text, words)
  temp = ""
  input = ""
  open(text) do |f|
    f.each do |line|
     temp << line
    end
  end
  input << temp
  sentence = input.scan(/[^.?]*./)
  sentence.each do |s|
    fragments = s.split
    count = 0
    fragments.each do |word|
     if count == 0 then
       word = "%START%" + word
     end   
     words.push(word)
     count += 1
    end
  end
end

def writeASentence(markov, newSentence)
  count = 0
  suffix = ""
  newSentence = ""

  while count < 100
    if newSentence == "" then
      startCandidates = []
      candidatesCount = 0
      markov.each do |a, b, c|
        if a.include?("%START%") then
          startCandidates << [a, b, c]
          candidatesCount += 1
        end    
      end  
    
      r = rand(candidatesCount)
      a = startCandidates[r][0]
      b = startCandidates[r][1]
      c = startCandidates[r][2]
      newSentence = a + " " + b + " " + c
      suffix = c
      count += 1 
    else
      rowCount = 0
      candidates = []
      markov.each do |a, b, c|
        if suffix == a then;
          candidates << [a, b, c]
          rowCount += 1
        end      
      end
    
      r = rand(rowCount)
      b = candidates[r][1]
      c = candidates[r][2]
      newSentence += " " + b + " " + c
      suffix = c
      count += 1
    end
    
    if suffix.include?("%END%") then
      newSentence.gsub!("%START%", "")
      newSentence.gsub!("%END%", "")
      return newSentence
      break
    end
  end
end



words = []
paragraphSplit('./NoOyesRulfo.txt', words)

markov = []
unless words.size < 3
  for i in 0..words.size - 2 do 
    next if words[i].include?(".") or words[i].include?("?")
  
    if words[i+2] == nil or words[i+1].include?(".") or words[i+1].include?("?") then 
      markov << [words[i], words[i+1], "%END%"] 
    elsif words[i+2].include?(".") or words[i+2].include?("?") then
      markov << [words[i], words[i+1], words[i+2] + "%END%"] 
    else
      markov << [words[i], words[i+1], words[i+2]] 
    end
  end
end

puts "-----let's generate sentences-----"

count = 1
while count <=10 do
  sentence = writeASentence(markov, sentence)
  puts ("No. " + count.to_s + ": ")
  puts sentence
  puts""
  count += 1
end

100

101

102

103

def paragraphSplit(text, words)

temp = ""

input = ""

open(text) do |f|

f.each do |line|

temp << line

end

input << temp

sentence = input.scan(/[^.?]*./)

sentence.each do |s|

fragments = s.split

count = 0

fragments.each do |word|

if count == 0 then

word = "%START%" + word

end

words.push(word)

count += 1

end

def writeASentence(markov, newSentence)

count = 0

suffix = ""

newSentence = ""

while count < 100

if newSentence == "" then

startCandidates = []

candidatesCount = 0

markov.each do |a, b, c|

if a.include?("%START%") then

startCandidates << [a, b, c]

candidatesCount += 1

end

r = rand(candidatesCount)

a = startCandidates[r][0]

b = startCandidates[r][1]

c = startCandidates[r][2]

newSentence = a + " " + b + " " + c

suffix = c

count += 1

else

rowCount = 0

candidates = []

markov.each do |a, b, c|

if suffix == a then;

candidates << [a, b, c]

rowCount += 1

end

r = rand(rowCount)

b = candidates[r][1]

c = candidates[r][2]

newSentence += " " + b + " " + c

suffix = c

count += 1

end

if suffix.include?("%END%") then

newSentence.gsub!("%START%", "")

newSentence.gsub!("%END%", "")

return newSentence

break

end

words = []

paragraphSplit('./NoOyesRulfo.txt', words)

markov = []

unless words.size < 3

for i in 0..words.size - 2 do

next if words[i].include?(".") or words[i].include?("?")

if words[i+2] == nil or words[i+1].include?(".") or words[i+1].include?("?") then

markov << [words[i], words[i+1], "%END%"]

elsif words[i+2].include?(".") or words[i+2].include?("?") then

markov << [words[i], words[i+1], words[i+2] + "%END%"]

else

markov << [words[i], words[i+1], words[i+2]]

end

puts "-----let's generate sentences-----"

count = 1

while count <=10 do

sentence = writeASentence(markov, sentence)

puts ("No. " + count.to_s + ": ")

puts sentence

puts""

count += 1

end

物凄く単純。これはキチェ語に限らず単語間を空白で話す言語であれば何語にも使える。例としてJuan RulfoのNo oyes ladrar a los perrosを辞書に取り入れてみた。出力結果はこんな感じ。

英語で書かれた「老人と海」を採り入れた場合の出力例。

英語とスペイン語で色んな文章を採り入れて試した結果、ある程度しっかりとしたボット・プログラム、つまり回答をマルコフ連鎖は使い物にならないということ。ベースとしてはマルコフ連鎖は使えるけどある程度文法を考慮した仕様にしたり、キーワードで返答を作成するのであれば、文章の構築方法も頭から書き始める以外の選択肢も必要。それが分かっただけでも収穫かな。

取り敢えず、このコードをTzijonikに取り入れてから改良していこうと思う。

Kotz’i’jに恋して12

Posted on 2017-05-29 by 13 No'j

マヤ・キチェ語の人工無脳プログラムTzijonik作成も大分進んできた。今回はユーザーが入力した文章が単語リストに載っている名詞を含んでいる場合、テンプレートとして保存する仕様にしてみた。変更点は次の３つのコードに殆ど含まれている。

Responder.rb

require 'csv' 
class Responder
  def initialize(dictionary)
	@dictionary = dictionary
  end
  
  def response(input, mood)
    return ''
  end
  
  attr_reader :name
end

class WhatResponder < Responder
  def response(input, mood)
  "Jas #{input}?"
  end  
end

class RandomResponder < Responder
  def response(input, mood)
    return randomSelect(@dictionary.random)
  end
end

class PatternResponder < Responder
  def response(input, mood)
    @dictionary.pattern.each do |patternItems| 
      if m = patternItems.match(input)       
        resp = patternItems.choice(mood)     
        next if resp.nil?                    
        return resp.gsub(/%match%/, m.to_s)
      end
    end

    return randomSelect(@dictionary.random)
  end
end

class TemplateResponder < Responder
  def response(input, mood)
    vocabularyList = CSV.read('./dictionaries/VocabularyList.csv')
    keywords = []
	fragments = input.split
	fragments.each do |word|
	  lowerCase = word.downcase
	  vocabularyList.each do |c1, c2|
	    if lowerCase == c1 && c2 == "noun" then
		  keywords.push(lowerCase)
		end
	  end
	end
    count = keywords.size
	  if count > 0
	    template = randomSelect(@dictionary.template[count])
        return template.gsub(/%NOUN%/){keywords.shift}
	  end
	return randomSelect(@dictionary.random)
	end
  end

require 'csv'

class Responder

def initialize(dictionary)

@dictionary = dictionary

end

def response(input, mood)

return ''

end

attr_reader :name

end

class WhatResponder < Responder

def response(input, mood)

"Jas #{input}?"

end

class RandomResponder < Responder

def response(input, mood)

return randomSelect(@dictionary.random)

end

class PatternResponder < Responder

def response(input, mood)

@dictionary.pattern.each do |patternItems|

if m = patternItems.match(input)

resp = patternItems.choice(mood)

next if resp.nil?

return resp.gsub(/%match%/, m.to_s)

end

return randomSelect(@dictionary.random)

end

class TemplateResponder < Responder

def response(input, mood)

vocabularyList = CSV.read('./dictionaries/VocabularyList.csv')

keywords = []

fragments = input.split

fragments.each do |word|

lowerCase = word.downcase

vocabularyList.each do |c1, c2|

if lowerCase == c1 && c2 == "noun" then

keywords.push(lowerCase)

end

count = keywords.size

if count > 0

template = randomSelect(@dictionary.template[count])

return template.gsub(/%NOUN%/){keywords.shift}

end

return randomSelect(@dictionary.random)

end

Dictionary.rb

require 'csv' # added 20170523

class Dictionary
  def initialize
    @random = []
    open('dictionaries/list02.txt') do |f|
      f.each do |line|
        line.chomp!
        next if line.empty?
        @random.push(line)
      end
    end

    @pattern = []
    @phrases = []	
    open('dictionaries/patterns02.txt') do |f|
      f.each do |line|
        pattern, phrases = line.chomp.split("\t") #split by tab
        next if pattern.nil? or phrases.nil?
        @pattern.push(PatternItem.new(pattern, phrases)) 
		@phrases << [pattern, phrases]
      end
    end
	
	@vocabularyList = CSV.read('./dictionaries/VocabularyList.csv')# added 20170523

################################################################	
	@template = []
	open('dictionaries/template.txt') do |f|
	  f.each do |line|
	    count, template = line.chomp.split(/\t/)
		next if count.nil? or pattern.nil?
		count = count.to_i
		@template[count] = [] unless @template[count]
		@template[count].push(template)
	  end		
    end
################################################################
  end
  
  def study(input)
    return if @random.include?(input)
	@random.push(input)
  end
 
  def save
    open('dictionaries/list02.txt', 'w') do |f|
	  f.puts(@random)
	end
  end

################################################################
  def analyze(input)
    flag = false
	inputSmall = ""
	@phrases.each do |c1, c2|
	  c1 = c1.to_s
	  c1 = c1.gsub(/[^A-Za-z']/, "")
	  inputSmall = input.downcase
	  c1    = c1.downcase
	  c2    = c2.downcase
	
	  if c2.include?(inputSmall) && c2.include?(inputSmall)
	    flag = true
		break
	  end
	end
	
    unless flag	
  	  @vocabularyList.each do |t1, t2|
	    if inputSmall == t1 && t2.match("noun") then ## conditions to avoid a duplicate entry
	      @pattern.push(PatternItem.new(t1, input))
	    end
      end  
	end
  end
	  
  def savePatterns
    open('dictionaries/patterns02.txt', 'w') do |f|
	  @pattern.each{|patternItem| f.puts(patternItem.makeLine)}
	end
  end
#################################################################

#################################################################
  def studyTemplate(input)
    template = ''
	count = 0
    vocabularyList = CSV.read('./dictionaries/VocabularyList.csv')
    keywords = []
	fragments = input.split
	fragments.each do |word|
	  lowerCase = word.downcase
	  vocabularyList.each do |c1, c2|
	    lowerCase = lowerCase.gsub(/[^a-z']/, "")
	    if lowerCase == c1 && c2 == "noun" then
		  word = lowerCase.gsub(c1, "\%NOUN\%")
		  count += 1
		end
	  end
	  
	  if template == "" then
	    template += word
	  else
	    template += " " + word
	  end
	end
	
	return unless count > 0
	
	@template[count] = [] unless @template[count]
	unless @template[count].include?(template)
	  @template[count].push(template)
	end
  end
  
  def saveTemplates
    open('dictionaries/template.txt', 'w') do |f|
	  @template.each_with_index do |templates, i|
	    next if templates.nil?
		templates.each do |template|
		  f.puts(i.to_s + "\t" + template)
		end
      end
	end
  end	
#################################################################
  attr_reader :random, :pattern, :template            
end

class PatternItem
  SEPARATOR = /^((-?\d+)##)?(.*)$/      

  def initialize(pattern, phrases)      
    SEPARATOR =~ pattern
    @modify, @pattern = $2.to_i, $3     

    @phrases = []                       
    phrases.split('|').each do |phrase|
      SEPARATOR =~ phrase
      @phrases.push({'need'=>$2.to_i, 'phrase'=>$3})
    end
  end

  def match(str)                        
    return str.match(@pattern)
  end

  def choice(mood)                      
    choices = []
    @phrases.each do |p|
      choices.push(p['phrase']) if suitable?(p['need'], mood)
    end
    return (choices.empty?)? nil : randomSelect(choices)
  end

  def suitable?(need, mood)             
    return true if need == 0
    if need > 0
      return mood > need
    else
      return mood < need
    end
  end

################################################################
  def makeLine
    pattern = @modify.to_s + "##" + @pattern
	phrases = @phrases.map{|p| p['need'].to_s + "##" + p['phrase']}
	return pattern + "\t" + phrases.join('|')
  end
################################################################  
  attr_reader :modify, :pattern, :phrases
end

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

require 'csv' # added 20170523

class Dictionary

def initialize

@random = []

open('dictionaries/list02.txt') do |f|

f.each do |line|

line.chomp!

next if line.empty?

@random.push(line)

end

@pattern = []

@phrases = []

open('dictionaries/patterns02.txt') do |f|

f.each do |line|

pattern, phrases = line.chomp.split("\t") #split by tab

next if pattern.nil? or phrases.nil?

@pattern.push(PatternItem.new(pattern, phrases))

@phrases << [pattern, phrases]

end

@vocabularyList = CSV.read('./dictionaries/VocabularyList.csv')# added 20170523

################################################################

@template = []

open('dictionaries/template.txt') do |f|

f.each do |line|

count, template = line.chomp.split(/\t/)

next if count.nil? or pattern.nil?

count = count.to_i

@template[count] = [] unless @template[count]

@template[count].push(template)

end

################################################################

end

def study(input)

return if @random.include?(input)

@random.push(input)

end

def save

open('dictionaries/list02.txt', 'w') do |f|

f.puts(@random)

end

################################################################

def analyze(input)

flag = false

inputSmall = ""

@phrases.each do |c1, c2|

c1 = c1.to_s

c1 = c1.gsub(/[^A-Za-z']/, "")

inputSmall = input.downcase

c1 = c1.downcase

c2 = c2.downcase

if c2.include?(inputSmall) && c2.include?(inputSmall)

flag = true

break

end

unless flag

@vocabularyList.each do |t1, t2|

if inputSmall == t1 && t2.match("noun") then ## conditions to avoid a duplicate entry

@pattern.push(PatternItem.new(t1, input))

end

def savePatterns

open('dictionaries/patterns02.txt', 'w') do |f|

@pattern.each{|patternItem| f.puts(patternItem.makeLine)}

end

#################################################################

def studyTemplate(input)

template = ''

count = 0

vocabularyList = CSV.read('./dictionaries/VocabularyList.csv')

keywords = []

fragments = input.split

fragments.each do |word|

lowerCase = word.downcase

vocabularyList.each do |c1, c2|

lowerCase = lowerCase.gsub(/[^a-z']/, "")

if lowerCase == c1 && c2 == "noun" then

word = lowerCase.gsub(c1, "\%NOUN\%")

count += 1

end

if template == "" then

template += word

else

template += " " + word

end

return unless count > 0

@template[count] = [] unless @template[count]

unless @template[count].include?(template)

@template[count].push(template)

end

def saveTemplates

open('dictionaries/template.txt', 'w') do |f|

@template.each_with_index do |templates, i|

next if templates.nil?

templates.each do |template|

f.puts(i.to_s + "\t" + template)

end

#################################################################

attr_reader :random, :pattern, :template

end

class PatternItem

SEPARATOR = /^((-?\d+)##)?(.*)$/

def initialize(pattern, phrases)

SEPARATOR =~ pattern

@modify, @pattern = $2.to_i, $3

@phrases = []

phrases.split('|').each do |phrase|

SEPARATOR =~ phrase

@phrases.push({'need'=>$2.to_i, 'phrase'=>$3})

end

def match(str)

return str.match(@pattern)

end

def choice(mood)

choices = []

@phrases.each do |p|

choices.push(p['phrase']) if suitable?(p['need'], mood)

end

return (choices.empty?)? nil : randomSelect(choices)

end

def suitable?(need, mood)

return true if need == 0

if need > 0

return mood > need

else

return mood < need

end

################################################################

def makeLine

pattern = @modify.to_s + "##" + @pattern

phrases = @phrases.map{|p| p['need'].to_s + "##" + p['phrase']}

return pattern + "\t" + phrases.join('|')

end

################################################################

attr_reader :modify, :pattern, :phrases

end

Kotzij.rb

require './Responder'
require './Dictionary'

class Kotzij                      
  def initialize
    @dictionary = Dictionary.new
	@emocion = Emocion.new(@dictionary)
	@responderWhat     = WhatResponder.new(@dictionary)
    @responderRandom   = RandomResponder.new(@dictionary) 
	@responderPatterns = PatternResponder.new(@dictionary)
	@responderTemplate = TemplateResponder.new(@dictionary)
	@responder = @responderPatterns
  end

  def dialogue(input)
    @emocion.update(input)
    case rand(10)
	when 0
	  @responder = @responderWhat
	when 1..2
      @responder = @responderRandom
	when 3..4
      @responder = @responderPatterns
	else
	  @responder = @responderTemplate
	end
	response = @responder.response(input, @emocion.mood)
	@dictionary.analyze(input)
	@dictionary.study(input)
	@dictionary.studyTemplate(input)
	return response
  end

  def responderName
    return @responder.name
  end
  
  def mood
    return @emocion.mood
  end  
  
  def save
    @dictionary.save
  end
  
  def savePatterns
    @dictionary.savePatterns
  end
  
  def saveTemplates
    @dictionary.saveTemplates
  end
  
  attr_reader :name
end

def randomSelect(ary)
  return ary[rand(ary.size)]
end

require './Responder'

require './Dictionary'

class Kotzij

def initialize

@dictionary = Dictionary.new

@emocion = Emocion.new(@dictionary)

@responderWhat = WhatResponder.new(@dictionary)

@responderRandom = RandomResponder.new(@dictionary)

@responderPatterns = PatternResponder.new(@dictionary)

@responderTemplate = TemplateResponder.new(@dictionary)

@responder = @responderPatterns

end

def dialogue(input)

@emocion.update(input)

case rand(10)

when 0

@responder = @responderWhat

when 1..2

@responder = @responderRandom

when 3..4

@responder = @responderPatterns

else

@responder = @responderTemplate

end

response = @responder.response(input, @emocion.mood)

@dictionary.analyze(input)

@dictionary.study(input)

@dictionary.studyTemplate(input)

return response

end

def responderName

return @responder.name

end

def mood

return @emocion.mood

end

def save

@dictionary.save

end

def savePatterns

@dictionary.savePatterns

end

def saveTemplates

@dictionary.saveTemplates

end

attr_reader :name

end

def randomSelect(ary)

return ary[rand(ary.size)]

end

プログラムを起動してみる。

会話らしくなってきている様な気がする。今後、単語リストの語彙数を増やしつつ、根気強く会話していけばどんどん良くなる筈。

さて、次はマルコフ連鎖を用いた辞書と返答方法の作成だけど、こちらは今後Javaへの移植も考えると本通りには出来ない。配列の組み方は大体想像出来るので自分なりのフォーマットで作成していくしかないかなぁ。そんなに大変そうでもないけど。そもそも今回も判定方法や基準は結構修正する必要があったし。

しかし、ベイズ統計で触れたマルコフ連鎖にこの分野で出会うことになるとは。。

13 No'j

グアテマラ、マヤ文明とプログラミング/Mayan World and Programming

Category Archives: Kotz’i’jに恋して

Kotz’i’jに恋して16

Kotz’i’jに恋して15：マルコフ連鎖(マヤ・キチェ語その２)

Kotz’i’jに恋して14：マルコフ連鎖(マヤ・キチェ語)

Kotz’i’jに恋して１３：マルコフ連鎖

Kotz’i’jに恋して12