Kotz’i’jに恋して6

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

キチェ語コースはまだ挨拶に留まっているけど単語数は増えてきた。動詞はまだ、殆どないけど。

コースの進行と共にKotz’ij(Kotz’i’j)も少しずつ賢くならないと！

単語リストについては後ほど書こうと思うけどGoogle SheetsからLaTex変換する方法があったので、今後はGoogle Sheetsで管理しようと思う。空いた時間に単語を入力するのはブラウザからの方がファイル管理の意味でも楽。バックアップとしては.txtファイルに変換したものをGitで管理する訳だし。

今回のプログラムにはパターン認識を新たに追加。取り敢えず三つの単語に反応する様にした。

パターン認識用の.txtファイルを新たに作成（こちら）。これはdictionariesフォルダ内に。新たにDictionary.rbを作成。

Dictionary.rb

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

    @pattern = []                                 
    open('dictionaries/patterns01.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({'pattern'=>pattern, 'phrases'=>phrases})
      end
    end
  end

  attr_reader :random, :pattern            
end

class Dictionary

def initialize

@random = []

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

f.each do |line|

line.chomp!

next if line.empty?

@random.push(line)

end

@pattern = []

open('dictionaries/patterns01.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({'pattern'=>pattern, 'phrases'=>phrases})

end

attr_reader :random, :pattern

end

それからKotzij.rbとResponder.rbを編集

Kotzij.rb

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

class Kotzij                      
  def initialize
  
    @dictionary = Dictionary.new
	
	@responderWhat     = WhatResponder.new('Kotz\'ij', @dictionary)
    @responderRandom   = RandomResponder.new('Kotz\'ij', @dictionary) 
	@responderPatterns = PatternResponder.new('Kotz\'ij', @dictionary)
	@responder = @responderRandom
  end

  def dialogue(input)
    case rand(5)
	when 0
	  @responder = @responderWhat
	when 1..2
	  @responder = @responderRandom
	else
	  @responder = @responderPatterns
	end
	return @responder.response(input)
  end

  def responderName
    return @responder.name
  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

@responderWhat = WhatResponder.new('Kotz\'ij', @dictionary)

@responderRandom = RandomResponder.new('Kotz\'ij', @dictionary)

@responderPatterns = PatternResponder.new('Kotz\'ij', @dictionary)

@responder = @responderRandom

end

def dialogue(input)

case rand(5)

when 0

@responder = @responderWhat

when 1..2

@responder = @responderRandom

else

@responder = @responderPatterns

end

return @responder.response(input)

end

def responderName

return @responder.name

end

attr_reader :name

end

def randomSelect(ary)

return ary[rand(ary.size)]

end

Responder.rb

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

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

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

class PatternResponder < Responder
  def response(input)
    @dictionary.pattern.each do |patternItems|
      if m = input.match(patternItems['pattern'])
        resp = randomSelect(patternItems['phrases'].split('|'))
        return resp.gsub(/%match%/, m.to_s)
      end
    end

    return randomSelect(@dictionary.random)
  end
end

class Responder

def initialize(name, dictionary)

@name = name

@dictionary = dictionary

end

def response(input)

return ''

end

attr_reader :name

end

class WhatResponder < Responder

def response(input)

"Jas #{input}?"

end

class RandomResponder < Responder

def response(input)

return randomSelect(@dictionary.random)

end

class PatternResponder < Responder

def response(input)

@dictionary.pattern.each do |patternItems|

if m = input.match(patternItems['pattern'])

resp = randomSelect(patternItems['phrases'].split('|'))

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

end

return randomSelect(@dictionary.random)

end

Tzijonik.rbは今回も日付とバージョン番号の変更のみ。

Kotz’i’jに恋して5

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

前回のプログラムでは４つの単語からひとつをランダムに選択し回答する仕様にした。今回は単語数を９３に増やしたため、単語リストを単独に作成した。また、回答もリストから選んだ単語を返すだけではなく、「～って何(Jas….?)」というも再度利用することに。

1/4の確率でJas….?を、残りの3/4の確率でリストからの単語を返す仕様にした。変更点は主にKotzij.rbのこの部分

  def initialize
    @responderRandom = RandomResponder.new('Kotz\'ij') 
    @responderWhat   = WhatResponder.new('Kotz\'ij')
    @responder = @responderRandom
  end

  def dialogue(input)
  @responder = rand(4) ==0 ? @responderWhat : @responderRandom;
    return @responder.response(input)
  end

def initialize

@responderRandom = RandomResponder.new('Kotz\'ij')

@responderWhat = WhatResponder.new('Kotz\'ij')

@responder = @responderRandom

end

def dialogue(input)

@responder = rand(4) ==0 ? @responderWhat : @responderRandom;

return @responder.response(input)

end

と

Responder.rbの

class RandomResponder < Responder
  def initialize(name)
    super
    @phrases = []
	open('dictionaries/dic01.txt') do |f|
	  f.each do |line|
	    line.chomp!
	    next if line.empty?
	    @phrases.push(line)
	  end
	end
  end
      
  def response(input)
    return randomSelect(@phrases)
  end
  
  def randomSelect(ary)
    return ary[rand(ary.size)]
  end

class RandomResponder < Responder

def initialize(name)

super

@phrases = []

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

f.each do |line|

line.chomp!

next if line.empty?

@phrases.push(line)

end

def response(input)

return randomSelect(@phrases)

end

def randomSelect(ary)

return ary[rand(ary.size)]

end

まず、回答方法がランダムに決定され、その後単語を返すこととなった場合、単語リストから単語をひとつランダムで選択。

長くなるけどResponder.rbとKotzij.rbの全体のコードはこうなっている。Tzijonikについては日付を変えただけ。

Responder.rb

class Responder
  def initialize(name)
    @name = name
  end
  
  def response(input)
    return ''
  end

  def name
    return @name
  end
end

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

class RandomResponder < Responder
  def initialize(name)
    super
    @phrases = []
	open('dictionaries/dic01.txt') do |f|
	  f.each do |line|
	    line.chomp!
	    next if line.empty?
	    @phrases.push(line)
	  end
	end
  end
      
  def response(input)
    return randomSelect(@phrases)
  end
  
  def randomSelect(ary)
    return ary[rand(ary.size)]
  end
end

class Responder

def initialize(name)

@name = name

end

def response(input)

return ''

end

def name

return @name

end

class WhatResponder < Responder

def response(input)

"Jas #{input}?"

end

class RandomResponder < Responder

def initialize(name)

super

@phrases = []

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

f.each do |line|

line.chomp!

next if line.empty?

@phrases.push(line)

end

def response(input)

return randomSelect(@phrases)

end

def randomSelect(ary)

return ary[rand(ary.size)]

end

Kotzij.rb

require './Responder'

class Kotzij                      
  def initialize
    @responderRandom = RandomResponder.new('Kotz\'ij') 
    @responderWhat   = WhatResponder.new('Kotz\'ij')
    @responder = @responderRandom
  end

  def dialogue(input)
  @responder = rand(4) ==0 ? @responderWhat : @responderRandom;
    return @responder.response(input)
  end

  def responder_name
    return @responder.name
  end
end

require './Responder'

class Kotzij

def initialize

@responderRandom = RandomResponder.new('Kotz\'ij')

@responderWhat = WhatResponder.new('Kotz\'ij')

@responder = @responderRandom

end

def dialogue(input)

@responder = rand(4) ==0 ? @responderWhat : @responderRandom;

return @responder.response(input)

end

def responder_name

return @responder.name

end

プログラムを実行してみる。

現在の単語リストはこれ。会話になってないけど、少し前進してるかな。

Kotz’i’jに恋して4

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

単語リストの作成も開始したのでTzijonikプログラムを更新。とは言っても今回は改悪みたいなものだけど。挨拶の後にリストにある４つの単語の内一つを答えとして用いる仕様。本にならってRubyで継承も使ってみた。結果、ファイルは３つ。

まずはTzijonik.rb

require './Kotzij'

def prompt(kotzij)                        
  return kotzij.responder_name + '> '
end

puts('Tzijonik: Version 1.1 (20170505)')
currentTime = Time.now #get the current time
hour = currentTime.hour
if hour > 3 && hour < 12 then
  saludo = 'Saqarik'

elsif hour >= 12 && hour < 18 then
  saludo = 'Xe\'q\'ij'
  
else
  saludo = 'Xokaq\'ab\''
end
flor = Kotzij.new
puts(prompt(flor) + saludo)
puts(prompt(flor) + 'In al Kotz\'ij')

while true                             
  print('> ')
  input = gets
  input.chomp!
  break if input == ''

  response = flor.dialogue(input)    
  puts(prompt(flor) + response)
end

require './Kotzij'

def prompt(kotzij)

return kotzij.responder_name + '> '

end

puts('Tzijonik: Version 1.1 (20170505)')

currentTime = Time.now #get the current time

hour = currentTime.hour

if hour > 3 && hour < 12 then

saludo = 'Saqarik'

elsif hour >= 12 && hour < 18 then

saludo = 'Xe\'q\'ij'

else

saludo = 'Xokaq\'ab\''

end

flor = Kotzij.new

puts(prompt(flor) + saludo)

puts(prompt(flor) + 'In al Kotz\'ij')

while true

print('> ')

input = gets

input.chomp!

break if input == ''

response = flor.dialogue(input)

puts(prompt(flor) + response)

end

次にKotzij.rb

require './Responder'

class Kotzij                      
  def initialize
    @responder = RandomResponder.new('Random') 
  end

  def dialogue(input)
    return @responder.response(input)
  end

  def responder_name
    return @responder.name
  end
end

require './Responder'

class Kotzij

def initialize

@responder = RandomResponder.new('Random')

end

def dialogue(input)

return @responder.response(input)

end

def responder_name

return @responder.name

end

最後にResponder.rb

class Responder
  def initialize(name)
    @name = name
  end
  
  def response(input)
    return ''
  end

  def name
    return @name
  end
end

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

class RandomResponder < Responder
  def initialize(name)
    super
    @responses = ['Pix', 'Inup', 'Powi\'', 'Xpa\'ch']
  end
  
  def response(input)
    return @responses[rand(@responses.size)]
  end
end

class Responder

def initialize(name)

@name = name

end

def response(input)

return ''

end

def name

return @name

end

class WhatResponder < Responder

def response(input)

"Jas #{input}?"

end

class RandomResponder < Responder

def initialize(name)

super

@responses = ['Pix', 'Inup', 'Powi\'', 'Xpa\'ch']

end

def response(input)

return @responses[rand(@responses.size)]

end

しかしRubyの継承のやり方はJavaと比べると不安になる位シンプルだなぁと思う。

Kotz’i’jに恋して3(Vocabulary List)

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

このプログラム用の単語リストを授業の進行に沿って作成する必要がある。リスト自体はエクセルで。でこれをこれまでの様にTeXで用いる表に変換する。その作業に久方振りにExcel2Latexを使った。

エクセルでリストを作成した後に変換

これまで通り、tabularの部分だけを.texファイルに貼り付ける。

\documentclass{article}

\usepackage[latin1]{inputenc}
\usepackage[margin=.5in]{geometry}
\title{K'iche' Vocabulary List}
\date{\today}

\begin{document}
\maketitle

\large
\begin{center}
\begin{tabular}{l l}
    \hline                             
    Pix         & Tomate               \\
    Inup        & Ceiba (árbol)        \\
    Powi'       & Sombrero             \\
    Xpa'ch      & Lagartija            \\
    \hline
\end{tabular}
\end{center}

\end{document}

\documentclass{article}

\usepackage[latin1]{inputenc}

\usepackage[margin=.5in]{geometry}

\title{K'iche' Vocabulary List}

\date{\today}

\begin{document}

\maketitle

\large

\begin{center}

\begin{tabular}{l l}

\hline

Pix & Tomate \\

Inup & Ceiba (árbol) \\

Powi' & Sombrero \\

Xpa'ch & Lagartija \\

\hline

\end{tabular}

\end{center}

\end{document}

リストに追加する単語は現時点で１００以上。増える一方なのでさっさと追加しないと！

象形文字

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

「Kotz’i’jに恋して」プロジェクトのプログラムでは最終的にマヤの象形文字(hieroglyph)でも返答出来る様にしたい。マヤの象形文字はロゼッタ・ストーンの様なものが無いこともあり、解明されていないことも多いけど言葉自体を象形文字で表すことは可能。

例えば「な」(na)の発音を表す文字は幾つかあるけどそのうちの一つはこんな風：

冗談ではなく本当にこれに似たデザインの文字が使われていた。

後は組み合わせで一文字で幾つかの音や言葉を表現出来る。文字なので伝わればある程度自由に表現出来るとは思う。

13 No'j

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

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

Kotz’i’jに恋して6

Kotz’i’jに恋して5

Kotz’i’jに恋して4

Kotz’i’jに恋して3(Vocabulary List)

象形文字