poem-generator Haskell の勉強のためにポエムを自動生成するプログラムを書いてみました。 初めて書いた Haskell のプログラムなので拙いコードだと思いますが、どう実装したかを記事にしておこうと思います。 リポジトリはこちらです。 実装 (ソースコード全文は記事の下の方に貼っています) メインとなる関数の定義です。ソースとなるテキストを引数にとり、その中の単語をいい感じに繋ぎ合わせて生成したポエムを返します。 generatePoem :: String -> IO String generatePoem source = do mecab <- new ["mecab", "-l0"] nodeLines <- mapM (parseToNodes mecab) (lines source) let wordLines = map (filter (not . n
![Haskell でマルコフ連鎖を用いたポエムの自動生成 - 書いたもの](https://cdn-ak-scissors.b.st-hatena.com/image/square/82d0c42a8c7b35987887614f24c04da771f5c01d/height=288;version=1;width=512/https%3A%2F%2Fi.gyazo.com%2Fda57a0afc34fed284d39fffd62a97f5f.png)