ピカチュウのセリフがどういった構造かよく知らないが、想像の範囲でそれらしいものを生成してくれるジェネレータを作ってみた。生成には教科書的な単純なマルコフ連鎖を使っている。現在の状態から、既知の確率で次の状態に遷移する。それだけだと文の切れ目が分からないので、終端かどうかも出力する。 (setq pika-tb ; p1p2p3p4k1c1c2c3t1e1e2e3 (list (list "ピカ" nil 1 2 2 2 1 9 3 3 1 2 2 4) (list "ピッ" nil 4 1 1 1 1 0 0 0 1 1 1 1) (list "ピー" nil 4 4 0 4 8 0 0 0 3 1 1 1) (list "ピッカ" nil 2 2 2 2 1 4 2 2 1 2 2 2) (list "カー" nil 1 1 1 1 0 3 1 3 1 1 1 1) (list "チュウ
