モナドはポケモン。数学が出てこないモナド入門
# 仮説：モナドとはポケモンである
このテキストは、でんこうせっかの速さでモナドが使えるようになりたいひとのための、真面目なモナド入門です。数学っぽい話は出てこないですし、なるべく関数型言語についての知識がなくても読めるように書いています。対象の読者は以下のような人です。
* モナドが何なのか知りたい、使いたい
* Haskellを学ぼうとしたがモナドがわからなくて挫折した
* モナドを学ぼうとしたら、箱だのブリートだのと変な喩え話をされて余計わからなくなった
* プログラミングを学ぶつもりが数学の講義が始まったので止めた
* 最初はモナドは難しいからとGHCiを使わされたが、電卓程度にしかならないので飽きた
なお、何故か説明の補助として**ポケモン**が登場しますが、この記事を読むのに別にポケモンをプレイしたことがある必要はありません。この記事はもしポケモン要素を全部無視したとしてもわかるようになっています。
挿絵があったほうが楽しいと思ったので、[ポケモンだいすきぬりえ](http://www.pokemon.jp/play/paint/detail/13462.html)を使ってみんなが大好きなピカチュウを描いてみました。けっこう可愛く描けたと思います。
# モナドの図鑑を眺めよう
モナドは難しくありませんし、複雑でもありません。なぜなら、たったふたつの関数だけで説明がついてしまうからです。ただ、モナドはとても抽象的な概念なので、取り組み方を間違えるとさっぱり要領が掴めず学習に苦労するはずです。特に、以下の様な遠回りの学びかたをしているひとが多くいる気がします。このような学び方は止めておきましょう。
* 「モナド」でググって、モナドを解説しているブログを片っ端から読み漁る
* モナドの定義やモナド則とにらめっこして、それが何を意味しているのか頑張って頭のなかで考えぬく
* 関数型でない言語を使ってモナドの移植に取り組む
* プログラミングのモナドが数学の圏論に由来するという豆知識を聞きかじり、数学書を開いて圏論に学ぼうという高尚な志を抱く
* 新しい概念を学ぼうとせず、自分が既に知っている何らかのプログラミング知識に照らし合わせようとする
* 箱とかブリートとかポケモンとか、何かの比喩として理解しようとする
モナドに限りませんが、**抽象的な概念を学ぶコツは具体例を数多く学ぶこと**です。「ポケモン」が「ピカチュウ」や「ラッタ」といった具体的なポケモンの総称であるように、モナドとはMaybeモナドやListモナドといったモナドの**<ruby>具体例<rt>インスタンス</rt></ruby>**の総称です。**モナドを理解するには、なによりモナドのインスタンスを数多く知り、それぞれのモナドの具体例を使えるようにすることが大切**です。モナドの具体例をいくつも知れば、やがてその共通点としてモナドとは何なのかが見えてきます。「モナドについて学んでみたが、よくわからなかった」という人もいるとは思いますが、もし「モナドの具体例を５つ挙げてください」と言われて即座に５つ答えられないようでは、それは「モナドを学んだ」とすら言えません。
それでは、まずはモナドの図鑑をパラパラとめくって、駆け足でいろんなモナドを眺めてみましょう。
## Maybeモナド
プログラミングでは、操作が必ずしも成功するとは限りません。例えば、リストの要素への参照では、インデックスが範囲内なら成功してその要素を返せますが、そうでないなら失敗になります。あるいは、文字列中の別の文字列の位置を調べる`indexOf`も、その文字列が見つかればインデックスを返せますが、そうでなければ失敗になります。
ここではリスト`xs`への`i`番目の要素へのアクセスを、`!!`という演算子を使って`xs !! i`というように表すことにします。また、文字列`x`の位置を文字列`y`の中から探す操作を`indexOf x y`と書くことにします。このような失敗しうる計算が何度か続くとき、Haskellライクな言語では例えば次のように表すことができます。
```hs
x <- ["Space", "World", "Universe"] !! 1
y <- indexOf x "Hello, World"
pure ("String \"" ++ x ++ "\" at " ++ show y)
```
このプログラムは次のような順序で計算が進んでいきます。
1.`["Space", "World", "Universe"] !! 1`という式でリストの`1`番目の要素を参照し、結果である値`World`に変数`x`が束縛されます。
2. 次に`indexOf x "Hello, World"`という式のが計算され、結果である`7`という値に変数`y`が束縛されます。
3. 最後に`"String \"" ++ x ++ "\" at " ++ show y`が計算され、これが`pure`関数に渡されます。
4. この最後の行の値が、この一連の計算全体の結果になります。
まあ上から下に順番に計算が行われていったというだけなのですが、この一連の計算の途中で失敗が起こるともっと興味深い振る舞いになります。たとえば、2行目で`"World"`という文字列を検索するときに、どうみても`"World"`が含まれていないような文字列を与えてみます。
```hs
x <- ["Space", "World", "Universe"] !! 1
y <- indexOf x "----"
pure ("String \"" ++ x ++ "\" at " ++ show y)
```
このとき、計算が`indexOf x "----"`のところまで来ると、この計算は失敗し、**そこで一連の計算は中止され**、呼び出し元に失敗したという情報のみが伝わります。一連の計算が失敗した時点で、この計算を中止して呼び出し元に戻るのです。これは単にプログラムがクラッシュしたとかではなくて、呼び出し元は計算が成功したか失敗したか、結果を条件分岐して調べて、安全にプログラムの実行を継続することができます。
また、`Nothing`という値を使うと、その地点で確実に計算を失敗させることができます。次のコードでは、必ず二行目で計算が失敗し、そこで計算が中止され、呼び出し元に戻ります。
```hs
x <- ["Space", "World", "Universe"] !! 1
Nothing
pure ("String \"" ++ x ++ "\" at " ++ show y)
```
そういえば、一番最後の行では`pure`という関数を呼び出していますが、これは必ず成功する『失敗しうる計算』を表現するためのものです。`x + y + z`という普通の計算を、`pure`関数に渡すことで、`!!`や`indexOf`のような操作と同種の計算として扱えるように変換しているのです。
つまり、この一連の『失敗しうる計算』はシンプルな**例外処理機構**として働きます。途中で失敗すればそこで計算を中止し、呼び出し元では計算が最後まで成功したかどうか、それとも失敗したかどうかわかります。また最後まで成功した場合はその結果の値もわかります。`Nothing`を挟めば、まるで`throw`で例外を投げるように途中で計算を中止できます。Maybeモナドというのは、このような構文を実現するものです。Maybeモナドはモナドを学び始める時にだいたい最初に扱うシンプルなモナドで、物語序盤でみんなが遭遇し、最弱クラスだけど最弱ではないポケモン、**[コラッタ](http://www.pokemon.jp/zukan/detail/019.html)**のような存在です(強引)。
ここではこれ以上`Maybe`モナドの詳細には踏み込みません。ここでよく確認しておきたいのは、この`Maybe`モナドの振る舞いでも実装の詳細でもなく、次の2点です。
* **`結果 <- 何らかの同種の計算`という文の連続として一連の計算を表現できること**
* **`pure`関数で任意の式をその計算に組み込めること**
## Eitherモナド
Maybeモナドは失敗して計算が中止しても、呼び出し元がなぜ計算が失敗したのかを窺い知ることはできません。失敗した時にその理由を呼び出し元にちゃんと伝えたいという場合は、次のEitherモナドを使います。
JSONオブジェクトのプロパティを読み取る関数`readIntProp`、`readStringProp`、`readBooleanProp`のような関数があったとしましょう。これらの関数は、引数に指定した名前のプロパティが存在しない時や、読み取ろうとしたプロパティのデータ型が一致しない場合に失敗になります。コードは例えば次のようになります。
```hs
x <- readIntProp "x" json
y <- readStringProp "y" json
z <- readBooleanProp "z" json
pure { x: x, y: y, z: z }
```
このコードでも、上から順に一行づつ実行されていき、途中で失敗がなければ最後まで計算が進み、それから最後の行の値が最終的な結果になります。失敗した場合は、どのプロパティの読み取りに失敗したのかが呼び出し元に伝わります。
Maybeモナドでは`Nothing`で明示的に失敗させて中止することができましたが、Eitherモナドでも同じように`Left`で計算を中止できます。ただし、`Left`は関数になっていて、引数に受け取ったデータを呼び出し元に伝えることができます。この点がMaybeモナドとの違いです。
```hs
x <- readIntProp "x" json
y <- Left "Some error" -- 計算はここで中止され、"Some error"という例外情報が呼び出し元に伝わる
z <- readIntProp "z" json
pure { x: x, y: y, z: z }
```
これはつまりEitherモナドは、Maybeモナドと同様の機能を備えているだけでなく、その自然な拡張になっています。ポケモンで言えばコラッタの進化系である**[ラッタ](http://www.pokemon.jp/zukan/detail/020.html)**であるといえるでしょう。Haskell/PureScriptはtry-catch文のような例外処理専用の構文を持たないのですが、まさに`throw`文と同じようにエラーオブジェクトと共に計算の途中で抜けるという振る舞いが、このEitherモナドで実現できるのです。
さて、ここでも重要なのはEitherモナドの振る舞いや機能ではなく、このモナドもまた**『`結果 <- 計算`という文の連続として計算を表せること』『`pure`関数で任意の値をその計算に組み込めること』**という共通点を持っていることです。
## リストモナド
リストモナドとは、それぞれの計算が複数個の結果を持つような計算を表すことができるモナドです。リストモナドでは名前の通りそれぞれの行の計算がリストであるような式になっていて、このリストの要素がそれぞれの計算の結果だと考えます。例えば、次のようなコードを書くことができます。
```hs
x <- [1, 2, 3]
pure (x * x)
```
このコードは次のように振る舞います。
1. 最初の行`[1, 2, 3]`の最初の値`1`に`x`が束縛されます。
2. 最後の行で`x * x = 1 * 1 = 1`が計算される
3. 最初の行`[1, 2, 3]`の次の値`2`に`x`が束縛されます。
4. 最後の行で`x * x = 2 * 2 = 4`が計算される
5. 最初の行`[1, 2, 3]`の次の値`3`に`x`が束縛されます。
6. 最後の行で`x * x = 3 * 3 = 9`が計算される
7. これまで最後の行で計算された結果がリストにまとめられて、全体の結果になる
この計算では不思議なことに、最後の行が3回実行され、それらの結果すべてがリストにまとめられて結果として変えるのです。行がもっと増えると、それぞれの行の要素すべてに網羅的に計算が行われます。
```hs
x <- [1, 2, 3]
y <- [7, 8]
pure (x + y)
```
例えば、このコードでは、一行目は3つの値、二行目は2つの値があるので、最後の行は`2 * 3 = 6`回の計算が行われ`[8, 9, 9, 10, 10, 11]`という値として呼び出し元に返ってきます。
このモナドの特徴的な点は、それぞれの行の計算が、必ずしも上から順に一回づつ計算されていくというわけではない点です。それぞれの計算が複数値を返すことができ、それらのすべての場合について網羅的に計算が行われます。これはまるで、れんぞくパンチで１ターンに複数回攻撃する**[ガルーラ](http://www.pokemon.jp/zukan/detail/115.html)**のようです。
MaybeモナドやEitherモナドは途中で中止されることがありましたし、リストモナドは同じ行を何度も計算することがあります。モナドがどのような順序で計算を進めていくのかは、それぞれのモナドによってまったく異なるのです。しかし、ここではモナドの共通点を探すことが重要でした。リストモナドがたとえこのような不思議な順序で計算が進むとしても、**「`結果 <- 計算`という文の連続で一連の計算を表すことができること」「`pure`関数で値を計算に組み込めること」**という2点には変わりはありません。今回重要なのはそこです。
## STモナド
Haskellのような言語は変数の再代入禁止だとか聞いたことあるかもしれませんが、STモナドを使うと、どのオブジェクトも変更禁止、変数の再代入禁止という純粋な計算の中でありながら、変更可能な状態を作り出して計算することができます。
モナドの計算の中では、それぞれモナドの種類に応じた機能が使えます。Maybeモナドでは`Nothing`が、`Either`モナドでは`Left`が、独自の操作として使うことができました。リストモナドでは`[1, 2, 3]`のようなリストリテラルをそのまま書けましたし、結果がリストになる式は何でも計算の中に組み込むことができます。そして、STモナドでは`newSTRef`、`modifySTRef`、`readSTRef`などの多彩な関数を使うことができます。`newSTRef`は変更可能な領域を作り出す関数で、C++でいうところの`new`演算子でヒープを確保しているようなものです。また`modifySTRef`ではこの領域の値に対して任意の変更を加える事ができます。そして`readSTRef`ではその領域の値を読み出すことができます。
例えば、リスト`xs`の値の合計をSTモナドで求めると、次のようになります。
```hs
n <- newSTRef 0
for xs $ \x ->
modifySTRef n (_ + x)
readSTRef n
```
ここで、領域`n`に格納された値は、`for`での繰り返しの中で事実上繰り返し変更されていると捉えることができます。一見変更できないオブジェクトの不変性がありながら、内部で自由に変更可能なオブジェクトを提供するSTモナドは、まるで外側は固くて歯がたたないけど中は柔らかい**[シェルダー](http://www.pokemon.jp/zukan/detail/090.html)**にそっくりです(強引)。
## Identityモナド
Identityモナドは せかいで いちばん よわくて なさけないモナドです。酷い言われようですが、何しろこのIdentityモナドは`pure`くらいしかできることがありません。**モナド界の[コイキング](http://www.pokemon.jp/zukan/detail/129.html)**とはIdentityモナドのことです。Maybeみたいに`Nothing`で処理の途中で抜けたりはできませんし、リストモナドのように何度も計算を繰り返したり、STみたいに状態を変えていくこともできません。`pure`で計算に組み入れることはできても、それがそのまま`<-`で出てくるだけです。本当にそれくらいしかできません。
```hs
x <- pure 10
y <- pure 20
z <- pure 30
pure (x + y + z)
```
何も役に立つことはできそうにありませんが、「`結果 <- 計算`という文で表せる」「`pure`を使える」というモナドの共通点はしっかり満たしています。何もできないけどポケモンには違いないし枠を埋めることはできるコイキングみたいに、何もできないけどモナドには違いない、そういう感じの変なモナドです。
## Freeモナド
このモナドはポケモンで言うと**[メタモン](http://www.pokemon.jp/zukan/detail/132.html)**のような、それ自身では何もできないが、どんなモナドにも変化することができるという、とにかくメタメタしい性質を持っています。不思議なことに、このFreeモナドをへんしんさせれば、Maybeモナドでもリストモナドでも、どんなモナドも創りだすことができるのです。これを説明しだすと長くなるので割愛しますが、とりあえず**メタモンもポケモン**ということだけ頭に入れておけば大丈夫です。
メタモンかわいいよメタモン
## IOモナド
IOモナドは`readFile`関数でファイルの読み取り、`putStrLn`関数で標準出力など、外界とのあらゆるやりとりを一手に担うとても機能の多いモナドです。また、Eitherのように例外を投げて途中で脱出したり、STモナドのように変更可能な領域を作り出すことすらできます。
また、IOモナドはプログラムのエントリポイントとなるモナドであり、現実のコードだとこのIOモナドはプログラム全体にわたって登場し、ユーザはIOとは切っても切り離せない関係を築くことになります。まさにアニメ版ポケモンで主人公サトシが強制的に選ばされることになり、ボールに入るのが嫌などという言い訳でとにかく画面に映りたがる**[ピカチュウ](http://www.pokemon.jp/zukan/detail/025.html)**のようなモナドといえます。
例えば、標準入力から指定した名前のテキストファイルをコピーする計算は次のようになります。
```hs
from <- getLine
to <- getLine
putStrLn ("copy " ++ from ++ " to " ++ to)
contents <- readFile from
writeFile to contents
```
このモナドも、**「`結果 <- 計算`という文の連続で一連の計算を表すことができること」「`pure`関数で値を計算に組み込めること」**という2点は満たしています。それを確認しておきましょう。
# それで、モナドとはつまり何なのか
さて、モナド全体に共通するのは、次のたった２つの点だけでした。
* `結果 <- 何らかの同種の作用`の連続で一連の計算が表現される
* `pure`関数で任意の値を計算に組み込める
そして、どのモナドも、あくまでこの枠組みの中にありながら、それぞれ異なるわざを持っていたのでした。
* Identityモナドは`pure`以外には何もできない最弱のモナドです
* Maybeモナドは`Nothing`で計算の途中で抜けるという機能だけを持つとても弱いモナド
* Eitherモナドは`Left`で計算の途中で脱出でき、その時追加の情報を持ち帰ることができる、Maybeよりちょっと強いモナド
* リストモナドはそれぞれの計算が複数個の値を返すことができ、それらすべての値について繰り返し計算を行えるという独特の能力がある
* STモナドは`newSTRef`で変更可能なデータ領域を好きなだけ作りだし、それを`modifySTRef`で変更したりできます
* IO/Effectモナドは`readFile`ファイル操作したり`print`で標準出力したりといった機能のほか、`throwError`のようなEitherモナド相当の機能や、`newIORef`のようなSTモナド相当の操作もできる万能モナド
* Freeモナドは最弱のモナドから最強のモナドまで何にでもへんしんできるモナド
つまり、ひとつの見かたとしては、モナドとは計算の中で使える操作や計算の過程を自由にカスタマイズできる<ruby>領域<rt>D</rt>特化<rt>S</rt>言語<rt>L</rt></ruby>を実現するための枠組みであると捉えることができるでしょう。
モナドによる抽象化は、
```
var 変数 = 式;
var 変数 = 式;
var 変数 = 式;
...
```
というような構文をカスタマイズできるようにしたもの、という見かたもあって、**プログラム可能なセミコロン**などと説明されることもあります。文と文のあいだに置かれるセミコロンを一種の中置演算子だと考えて、このセミコロン演算子を演算子オーバーロードしてるようなものだ、というわけです。
HaskellやPureScriptはこの枠組みをコード全体に渡って一貫して再利用し、これらのモナドを目的に応じて使い分けて計算を進めていく言語なのです。このため、Haskell/PureScriptにはthrow/catchのような例外処理の専用の構文がないのに例外を投げて計算の途中から脱出したり例外を捕まえたりすることができるし、await/asyncもないのに非同期処理を同期的処理と同じように平坦に書くことができるのです。
そして、目的に合わせてカスタマイズした専用のモナドを自分で作って使うこともできるという、強力な拡張性も備えています。モナドを自分で定義すると、どんな操作を許しどんな操作を許さないか、何もかもを自分でコントロールできます。
# やさしいモナドの使いかた
プログラミングにおけるモナドはコーディングの道具であって、理論を鑑賞して悦に浸るためのものではありません。使わなければ何の意味もないのです。ここからはモナドを使ったコードをどのように書けばいいのかを具体的に説明していきます。
さて、モナドにはいろいろな種類があり、それぞれ違った能力を持ちますから、まずは自分の計算の目的に応じて適切なモナドを選ばなくてはなりません。使いたいモナドがすぐに思いつくように、モナド図鑑をよく頭に入れておくことが大切です。ここでは説明のために**IOモナド**を使ってみます。HaskellではIOモナド、PureScriptではEffectモナドは、唯一絶対に避けて通れないモナドになっています。これらの言語で実用的なコードを書くにはどうしてもIO/Effectだけでも使えるようになるのが先決ですし、ひとつでも使えれば他のモナドへの足がかりにもなります。
## do式の一般形
これまで何度も見てきた`結果 <- 作用`というような文の連続からなる構文は、**do記法**と呼ばれています。このdo記法を使いこなせるようになっておくことが、モナドを実用に供する上で必要不可欠です。これまで見てきたとおり、do記法の構文は外見上`結果 <- 作用`でほとんどすべてという単純さなのですが、実はコードの字面に現れない隠れたルールこそが厄介です。
Haskellでは、コード中で式の型を明示するのに、ダブルコロン`::`を使って次のように書きます
```
式 :: 型
```
また、型変数`a`を含むような型`m`は、単にスペースを挟んで次のように書きます。
```
m a
```
これを使って、do記法の中の式にもれなく型注釈を書き込むと、do記法の一般形は次のようになります。
```hs
(do
v0 :: a <- expr0 :: m a
v1 :: b <- expr1 :: m b
v2 :: c <- expr2 :: m c
...
exprZ :: m z) :: m z
```
この`m`の部分にはモナドに結び付けられた型の名前が入ります。IOモナドを使う場合は、`m`を`IO`に置き換えて、次のようになります。
```hs
(do
v0 :: a <- expr0 :: IO a
v1 :: b <- expr1 :: IO b
v2 :: c <- expr2 :: IO c
...
exprZ :: IO z) :: IO z
```
この`IO a`は、それが`IO`という種類の操作であり、その結果として`a`型の値を返すことを意味しています。
### ルール1 頭に`do`をつけてインデントを揃える
図鑑の擬似コードでは省略していましたが、do記法では先頭に`do`というキーワードを付けます。また、そのdo記法内部の式はインデントを揃えなくてはなりません。
### ルール2 結果はそこから下に書かれた計算の中でのみ使える
それぞれの計算の結果は、それ以降の計算の中でしか使うことができません。
```hs
do
v0 <- expr0
v1 <- expr1
v2 <- expr2
exprZ
```
このようなコードでは、例えば変数`v1`はそれより前の式である`expr0`、`expr1`の中からは参照することはできません。それより後ろにある`expr2`、`exprZ`の中からのみ参照できます。これは普通の言語で変数に値を代入するときの振る舞いと同じです。
### ルール3 結果を束縛する変数は省略できる
各行の`結果 <-`という部分は省略可能です。たとえば、標準出力を行う関数`putStrLn`の結果の型は`()`になっていますが、これはC言語でいう`void`型みたいなもので、データには何の意味もありません。このような操作の結果を変数に束縛するのは無意味なので、`結果 <-`という部分は省略することができます。`()`型に限らず、操作の結果が不要ならどの行でも自由に省略してしまって構いません。
### ルール4 最後の行は結果を束縛できない
最後の行では`結果 <- 式`というように`<-`を使って書けません。その最後の行の結果が、Do記法全体の結果になるからです。
### ルール5 型構築子は統一する
これは何を言っているかというと、以下の丸をつけた部分の型は、すべて同じでなくてはならないということです。
<!--
```hs
do
v0 :: a <- expr0 :: m a
v1 :: b <- expr1 :: m b
v2 :: c <- expr2 :: m c
exprZ :: m z
```
-->
つまり、MaybeモナドとEitherモナドのように異なる種類のモナドの計算を、直接は混ぜることはできないということです。なお、この型構築子に与えられた、操作の結果の型のほうは、それぞれの行でバラバラで構いません。
### ルール6 計算の結果の型を一致させる
`<-`の右側の式の型`m a`は、その計算の結果は`a`型になるということを意味しています、これは以下の丸をつけた部分の型は、それぞれ一致していなければならないということです。
<!--
```hs
do
v0 :: a <- expr0 :: m a
v1 :: b <- expr1 :: m b
v2 :: c <- expr2 :: m c
exprZ :: m z
```
-->
### ルール7 最後の行とDo式全体の型を一致させる
do式はそれ全体が式であり、その型はdo式の最後の行の式と一致していなければなりません。この最後の式の値が、do式全体の計算の結果になるからです。
<!--
```hs
(do
v0 :: a <- expr0 :: m a
v1 :: b <- expr1 :: m b
v2 :: c <- expr2 :: m c
exprZ :: m z) :: m z
```
-->
## ドキュメントを漁る
さて、実際にモナドを使うには、どんな操作が可能なのかをドキュメントで確認する必要があります。たとえば、Haskellではデフォルトでインポートされる標準モジュール`Prelude`に標準出力を行う関数や簡単なファイル操作を行う関数が定義されています。
* [base-4.8.2.0: Basic libraries](https://hackage.haskell.org/package/base-4.8.2.0/docs/Prelude.html)
関数なら引数を与えて最終的に`IO a`というような形になればdo記法の中に書けますし、中にはそのままで`IO a`という値を持つ値もあります。これらをドキュメントから探します。ここでは次の関数や値を使うことにしましょう。
```hs
readFile :: FilePath -> IO String
```
```hs
writeFile :: FilePath -> String -> IO ()
```
```hs
getLine :: IO String
```
```hs
putStrLn :: String -> IO ()
```
いずれも、型注釈の最後が`IO a`という形になっていることがわかるでしょう。これらはすべてIOモナドの計算のなかで使える操作だということです。
## 完全なコードのサンプル
これらの関数を使って、テキストファイルのコピーを行うプログラムを作ってみます。標準入力から、コピー元のファイル名とコピー先のファイル名を読み取り、それらの名前に従ってファイルをコピーします。
```hs
main :: IO ()
main = do
from :: String <- getLine :: IO String
to :: String <- getLine :: IO String
putStrLn ("copy " ++ from ++ " to " ++ to) :: IO ()
contents :: String <- readFile from :: IO String
writeFile to contents :: IO ()
```
先に挙げたルールが守られていることを確認してみてください。
ここでは説明のために過剰に型注釈をつけていますが、これらはすべて型推論可能なので、次のようにすべて取り去ってしまっても大丈夫です。
```hs
main = do
from <- getLine
to <- getLine
putStrLn ("copy " ++ from ++ " to " ++ to)
contents <- readFile from
writeFile to contents
```
# モナドのはじめかた
自分がモナドを理解できたかどうか確かめる唯一の方法は、自分で実際にコードを書いてみることだけです。**もしモナドをなかなか理解できないなら、その最大の原因は自分でモナドを使ったコードを書こうとしていないから**だと思います。啓蒙的な記事ばかりを幾つ読み漁ったところで、モナドは理解できません。なぜなら、自分でモナドを使ったコードを書いていないからです。モナドの定義を穴が空くまで眺めても、モナドは理解できません。なぜなら、自分でモナドを使ったコードを書いていないからです。多分この記事を開いたひとはみんなモナドを理解したいんだろうと思います。まずはコードを書いてみましょう。
### Haskell
Haskellのインストールは、現状はStack一択です。インストールも難しくないのでさくっとインストールしてしまいましょう。
* [Haskellのビルドツール"stack"の紹介](http://qiita.com/tanakh/items/6866d0f570d0547df026)
* [Haskell環境構築_20151226_最新版_4_投稿済み_stack-1.0.0対応版.md](http://qiita.com/philopon/items/879c2011ce8744c838de)
### PureScript
PureScriptのインストールはnpmが入っていれば`npm install purescript`で一発です。ただし素のコンパイラは色々下準備が大変なので、pulpというツールを使ってビルドするのが一番手っ取り早いと思います。
* [pulp を使った PureScript の開発](http://fits.hatenablog.com/entry/2016/01/05/005307)
PureScriptは後発なだけあってライブラリがよく整理されていて、モナド周辺についても、年季が入ったHaskellのライブラリ群よりわかりやすいと思います。PureScriptのライブラリ群は、Pursuitというドキュメント検索エンジンで眺めてみるのが手っ取り早いです。
* [pursuit](https://pursuit.purescript.org/)
### その他の言語
上記以外の言語ではモナドの威力を十分に引き出せません。やめておきましょう。
# それで結局モナドの何が嬉しいのか
モナドの存在意義について「言語全体の式から副作用を排除したので、そのかわりモナドを導入して副作用を扱えるようにした」みたいに紹介されることがありますが、じゃあ最初から副作用アリにしとけばモナドなんて小難しいもの要らんやんけ！と思う人も多いんじゃないでしょうか。導入された当初のきっかけは確かにそれだったみたいなんですが、いろんなものがモナドとして扱えることがわかってきた現在では、単に純粋な言語の上で副作用を扱うためという以上のメリットがモナドにはあると思います。
わかりやすいところを挙げるなら、他の言語では言語の構文を拡張してようやく導入されるような機能を、言語じたいを変更することなく、単なるライブラリを追加するだけで実現できるということがあります。
* async/awaitが言語仕様になくても、`aff`パッケージを導入すれば非同期処理を平坦に書ける！
* 例外処理機構が言語仕様にないのに、`exceptions`パッケージを導入すれば`throw`関数で例外を投げて`try`関数で例外を捕まえることができる！
* リストの内包表記がなくても、`lists`パッケージを導入すればリストモナドで同様のことができる！（構文の見た目はかなり異なりますが）
* 配列の要素を一部だけ書き換えるような構文はないのに、`st`パッケージを導入すれば`pokeSTArray`関数で配列の一部を書き換えての処理ができる！
* `refs`パッケージを導入すれば、`writeRef`関数で変数の中身を書き換えられる！
もちろん、特別な構文が欲しくなったらその都度言語仕様を改良してコンパイラを改造するという方法もあるでしょう。でもそのためには数ヶ月とか数年がかりの議論と、コンパイラ自体を改造する労力が必要になるでしょう。でもモナドで作用を抽象化してある言語なら、ひとつライブラリを作るだけで済みます。それに、新しい構文を導入してみたけど使ってみたら使いにくくてやっぱり要らないねとか、もっと新しい方法が出てきたので古い構文は要らないね、みたいなこともあるでしょう。でもいったん言語仕様に組み込んでしまったらそうそう廃止することはできません。言語は複雑になっていく一方です。でもただのライブラリなら廃止もはるかに簡単です。
# モナド則とか学ぶな
巷の『モナド入門』の多くは、『モナド則』なる数学っぽい規則を説明します。あまりに抽象的で初心者殺しのモナド則ですが、実は初心者はまったく知る必要のない知識だったりします。
モナド則というのはモナドのインスタンスを定義するときに守らなければならない規則であって、すでに定義されたモナドを使うときにはモナド則は勝手に満たされています。そして、Haskell/PureScript/Scalaあたりならモナド関連のライブラリは豊富に揃っているので、自分でモナドのインスタンスを定義する機会はまずありません。モナド則が必要になる時というのは、今まで誰も作ったことのない新たなモナドを思いついたということで、それはとても高度なトピックです。普通はそこまでの知識は必要になりません。
しかも、モナドの実装がちゃんとモナド則を満たしているのか確認する簡単な方法はありません。そのため、Haskellの標準ライブラリで提供されていた`ListT`というモナド(正確には『モナド変換子』)が[モナド則を満たしていないというバグ](https://wiki.haskell.org/ListT_done_right)が後になって発覚したということが実際に起きています。関数型プログラミングに習熟した人でさえ、うっかり間違えてモナド則を破ることがあるのです。こんな難解なトピックに初心者が取り組む必要はまったくありません。
もちろん知識としてモナド則を知っているに越したことはないですし、自分でモナドのインスタンスを定義してみるとより深い理解を得られるとは思います。数学的なことが好きな人は、そのあたりの概念について学んでみると面白く感じるでしょう。でも、モナド則の理解につまづいて関数型プログラミングの習得を諦めたりするくらいなら、そんなものさっさと飛ばして、実際にモナドを使う練習をしたほうがよほど理解につながります。
さまざまなモナドを地道に泥臭く学んでついにモナドの概念を身につけた人の中には、「『モナドとはなにか』はモナド則を見ればぜんぶわかるはず」などとスマートなことを言ってみせて格好つけるキザな人も少なくないようです。確かにモナドの定義はモナド則で述べられている通りで、言っていること自体は間違いとまでは言えませんが、モナド則だけ見て理解できる天才なんてほんとに一握りです。それ以外の普通の人は地道にいろんな具体的なモナドを実際に使ってみることでようやく理解に至っているはずです。そんなキラキラしたスマートでオシャレな入門は普通の人間にとっては近道なようで遠回りですから、それぞれのモナドを実際に使ってみて、地道に学びましょう。モナド則とにらめっこするのはやめて、
# 結論：モナドはポケモンではない
モナドとは、`結果 <- 作用`という文の連続からなる計算を、その計算の中でどんな作用(操作)が可能か、どの順序で計算が進むかを自由に制御可能にするための枠組みです。先ほど見た7つのモナドでは、IOモナド以外はすべて自分で定義することが可能です。自分のやりたい計算に合わせてカスタムメイドのモナドを定義することもできます。この枠組ひとつあれば、for文のような繰り返しも、try-catch文のような例外処理機構も、書き換え可能な領域も、async/awaitのような非同期処理や、文字列の構文解析に特化したDSLまで、すべては自分で作り出せるのです。
どんなに定義を眺めても、箱だとかポケモンだとかいうメタファーに頼ってみても、あまりモナドの理解には繋がりません。それぞれのモナドを実際に使ってみて、あなたのモナド図鑑をひとつひとつ地道に埋めていくことが、モナドマスターへの唯一の道だと言えるでしょう。
ポケモンマスターはいろんなポケモンを使いこなすことができますが、初心者ポケモントレーナーが「自分がポケモンを使いこなせないのは、自分がポケモンマスターでないからだ。ポケモンを使えるようになるために、まずはポケモンマスターになろう」って考えたとしたら、それは因果関係が逆です。ポケモンマスターになったからポケモンを使えるのではなく、ポケモンを使えるからポケモンマスターなのです。同じように、モナドを理解したからモナドのインスタンスを使いこなせるのではなく、それぞれのモナドのインスタンスを使いこなせるようになったからこそ、モナドを理解したモナドマスターになれるわけです。どんな初心者トレーナーも最初はコラッタから捕まえていくように、まずはそれぞれのモナドを書いて地道に練習していきましょう。
# おすすめ文献リンク集
まずは自分でコードを書いてみることが第一ですが、もちろん文献もモナドを理解するうえで欠かせないものです。筆者の個人的なおすすめは、「**モナドのすべて**」を頑張って読み通すことです。
* [モナドはメタファーではない](http://eed3si9n.com/ja/monads-are-not-metaphors) - モナドはメタファーではない！繰り返す！モナドはメタファーではない！だからモナドをポケモンに例えるのも不可能！知ってた！
* [モナドのすべて――Haskell におけるモナドプログラミングの理論と実践に関する包括的ガイド](http://www.sampou.org/haskell/a-a-monads/html/index.html) - かなりヘヴィな文献ですが心配いりません。私はHaskellを使い始めたときこのテキストでモナドを学びましたから。危うく死ぬかと思いました。
* [絶対に理解出来ないモナドチュートリアル](http://konn-san.com/prog/never-understood-monad-tutorial.html) - 計算練習のようにコードを書くことが大事だ、というのは私もまったくもってその通りだと思います。
* [What a Monad is not / モナドは何でないか](https://wiki.haskell.org/What_a_Monad_is_not)
<!--
その他の参考文献。ジョーク交じりのもの、定義から攻めてくるタイプのもの、IOに特化した説明のものなど。上の文献をぜんぶ読んでも物足りない、という人向け。わたしの自分用メモでもあります。
* [Monads are like burritos / モナドはブリートみたいなものだ](http://blog.plover.com/prog/burritos.html)
* [Monads are burritos? / モナドはブリートなのか？](http://chrisdone.com/posts/monads-are-burritos) - マンガで学ぶモナド(わかるとは言っていない)
* [Do notation considered harmful / Do記法は有害だと考えられる](https://wiki.haskell.org/Do_notation_considered_harmful)
* [世界で一番か二番くらいにやさしい「モナド入門」](http://d.hatena.ne.jp/m-hiyama/20060419/1145432492) - 私の言ってるのとは対極で、「モナドの実例を1つだけ選んで、その特定事例をシッカリ説明」するタイプ
* [QAで学ぶMonad](http://d.hatena.ne.jp/kazu-yamamoto/20110413)
* [モナド (プログラミング) - Wikipedia](https://ja.wikipedia.org/wiki/%E3%83%A2%E3%83%8A%E3%83%89_(%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%9F%E3%83%B3%E3%82%B0))
* [お気楽 Haskell プログラミング入門 モナド](http://www.geocities.jp/m_hiroi/func/haskell17.html)
* [本物のプログラマはHaskellを使う 第3回 mapからモナドを理解する](http://itpro.nikkeibp.co.jp/article/COLUMN/20061005/249933/?ST=ittrend)
* [Haskell/圏論 - Wikibooks](https://ja.wikibooks.org/wiki/Haskell/%E5%9C%8F%E8%AB%96)
* [不完全にしておよそ正しくないプログラミング言語小史](http://www.aoky.net/articles/james_iry/brief-incomplete-and-mostly-wrong.htm) - 「モナドは単なる自己関手の圏におけるモノイド対象だよ。何か問題でも？」の元ネタ。ジョークなのにこれを本気にしている人が結構いそう
* [「モナドは単なる自己関手の圏におけるモノイド対象だよ。何か問題でも？」 - Qiita](http://qiita.com/myuon_myon/items/7e20c4b3af83597547d8)
-->
<br>
<br>
\-\-\-\------------------------------------------------------------ <i class="fa fa-cut" style="font-size:1em;"></i> ｷﾘﾄﾘｾﾝ -------------------------------------------------------------------------------
<br>
<br>
# すごくどうでもいい補足(読む必要なし)
普段筆者は説明しすぎるきらいがあるので、長い文章が苦手な人でも読めるように今回は文章を可能な限り削ってみることにしました。当初書いた量の半分以下になっています。自分の知らない言語はたった数行でも読まない、振る舞いを類推することもしないという人もいるようなのですが、サンプルコードもひたすら切り詰めたので何とか想像して読んでください。不正確な内容についての注釈もガリガリ削ってあるので、細かいところは気にしないでください。
あとこの記事では、数学っぽい話はもちろん、「型クラス」のようなHaskell臭い機能や、Functor/Applicative/Monadという型クラス階層、モナドの定義、モナド則のような内容もごっそり省きました。型クラス階層を順に追い、定義とモナド則ファンクタ則で足元を固めていく入門は、すでにわかっている人にとっては簡潔、明瞭かつ合理的で整然とした過程に見えますが、初心者には抽象性の泥沼でしかありません。小学１年生に公理的集合論とペアノ算術を教えてから足し算を教えるような丁寧でお行儀のいい入門なんて、窓から投げ捨ててしまいましょう。モナド則に至っては、現実のコーディングではまず役に立たない知識です。理解の助けにもなりません。こんなものをさぞ大切なものであるかのように教えるのは、教える内容の優先順位を間違えていると思います。
ポケモン要素は、今年で20周年だという話を書いている途中で聞きつけて、後付けで説明に加えました。この記事べつにポケモン要素要らなくね？と思ったでしょうが、こういうのはインパクト重視です。まあこのテキストのネタかなり無理やりなので、見ての通り『モナド＝ポケモン理論』は無事破綻しました。ギエピー！あと、冒頭の画像は、ピカチュウじゃなくてヤドンじゃねーか！って、はてブとかでツッコんで欲しかったのですが、誰もツッコんでくれませんでした！本当にありがとうございました！
----
（この記事は同じ筆者が Qiita に投稿した記事の複製です。オリジナル記事)