定義に立ち戻って確認すればわかるんだけど、直感的には理解できていなかったのでメモしておく。
こういうdo記法を考える(計算結果はm d型の値になる):
do
x <- A -- A::(m a)
y <- B -- B::(m b)
z <- C -- C::(m c)
return (f x y z) -- f::(a->b->c->d)
もしCがxやyの値を利用しているとすると(つまり前の計算による束縛を利用しているとすると)、余計な引数のない一番単純な場合でCはa -> b -> m c型の函数gによってB = g x yと書けることになる。
さて、ここでjoinが使えない非MonadなApplicativeでこのdo記法と同じ計算を実現しようとするとどうなるか。まず、gとApplicativeの道具を使ってできるのはreturn g <*> A <*> Bまででしかない。だがreturn gはm (a -> b -> m c)型なので、return g <*> Aの型はm (b -> m c)で、もう一度<*>を使ってmの中に適用してやっても、その結果として出来上がる値の型はm (m c)になってしまう。これでは函数fで m d型の値を返してくることはできない。どうがんばってreturnや<*>を多重に使ったりしても、欲しいのはm d型の値なのに得られるのはせいぜいm (m d)型の値になってしまう。
もちろん、joinが使えればこれらのmの入れ子は殆どただちに外せるが、非MonadなApplicativeにはまさにそれが使えないわけだ。逆に言えば、joinを使わずに済ませるにはCがxやyを利用していなければいいので(もちろんBがxを利用していてもいけない)、その場合には上のdo記法の計算は:
(\x y z -> f x y z) <$> A <*> B <*> C
というApplicativeスタイルの計算に等価になる。
つまり、 連鎖の途中で前の計算結果を参照するようなdo記法の計算はApplicativeでは実現できず、連鎖の途中で前の計算結果を参照しないようなdo記法の計算はApplicativeに解糖できる 。これがつまり、「前の計算の結果に応じて後の計算の挙動を変えるという『条件分岐』が非MonadなApplicativeにはできずMonadにはできる」ということの中身。
Applicativeにできるのはdo記法の中でお互いに交わらない計算を複数進めていって最後の最後にそれらをまとめ上げること、というわけだが、既視感があるのも当たり前で、これって要するに(->) Applicativeがやってたことだよな。というか(->)Applicativeは、交わらない複数の計算を最後にまとめ上げるというApplicative本来の作用に対して、これらの複数の計算に同じ引数を投入するという制約を課す特殊化をしたものにほかならない。
ただ、mが一方的に入れ子になったりモナド則が保証しているような素性の良いものではない振る舞いをしてもいいなら途中の計算結果を使って挙動を変えること自体はできるはずだが、そうするとフラットに「逐次」「反復」「分岐」を組み合わせられなくなるから結局意味なしという辺りなんだろう、きっと(情並感)。