Haskell Advent Calendar 2016 18日目

「タイプセーフプリキュア！」を支える技術

8
いいね
0
コメント

igrep

2016年12月18日に更新

真のキュアエンジニアたるもの、自分の好きな言語でプリキュアを実装しなければならない
--- @sue445 (が、言ったということにしたい @igrep)

と、いうわけで先週私はHaskellでプリキュアを実装しました。
typesafe-precureと言います。

先週書いたプリキュアAdvent Calendarの記事では技術的な説明を極力控えておりましたので、今回はもうちょっとHaskell Haskellした紹介をさせてください。

TypeSafe PreCure!!

ご存知(?)、rubicureをはじめとするプリキュア実装のHaskell版です。
他のプリキュア実装と異なり、名前の通り型安全であることに大きく重きをおいています。
また、プリキュアだけでなく変身アイテムや必殺技を放つときのアイテム（「特殊アイテム」とここでは呼びます）を収録している点も、他のプリキュア実装と一線を画す特徴でしょう。

例えば初代「ふたりはプリキュア」でなぎさとほのかが変身するには、2人で手をつなぎつつ、それぞれのカードコミューンを使用する必要があります。
以下が2人で変身する時の台詞を取得する場合のコードです。

> transformationSpeech (Nagisa, Honoka) (CardCommune_Mepple, CardCommune_Mipple)
[ "デュアル・オーロラ・ウェイブ！！"
, "光の使者、キュアブラック！"
, "光の使者、キュアホワイト！"
, "ふたりはプリキュア！"
, "闇の力のしもべ達よ！"
, "とっととお家に帰りなさい！"
]

間違っても、1人で変身したり、

> transformationSpeech Nagisa CardCommune_Mepple

<interactive>:3:1: error:
    ? No instance for (Transformation Nagisa CardCommune_Mepple)
        arising from a use of ‘transformationSpeech’
    ? In the expression: transformationSpeech Nagisa CardCommune_Mepple
      In an equation for ‘it’:
          it = transformationSpeech Nagisa CardCommune_Mepple

違う変身アイテムを使用して変身するなんてことはできません。

> transformationSpeech (Nagisa, Honoka) (LinkleStoneDia, LinkleStoneDia)

<interactive>:4:1: error:
    ? No instance for (Transformation
                         (Nagisa, Honoka) (LinkleStoneDia, LinkleStoneDia))
        arising from a use of ‘transformationSpeech’
    ? In the expression:
        transformationSpeech
          (Nagisa, Honoka) (LinkleStoneDia, LinkleStoneDia)
      In an equation for ‘it’:
          it
            = transformationSpeech
                (Nagisa, Honoka) (LinkleStoneDia, LinkleStoneDia)

型が合わない変身なんて、興味がありません！
「ふたりはプリキュア！！」って2人で叫んでいるのに1人で変身できるとか、変じゃないですか！
「光の使者、キュアブラック！」ってキュアブラックが言った後「光の使者、キュアホワイト！」ってキュアホワイトが言ってるのに片方の台詞しかないとか、変じゃないですか！

それから、プリキュア全員が同時に行う必殺技（「浄化技」と呼ぶこともあります）についても、当然全員が揃わないと実行できないよう作られています。
以下は「Go! プリンセスプリキュア」の終盤で使用される必殺技、「プリキュア・グラン・プランタン」の台詞を取得する際のコードです。

> purificationSpeech (CureFlora_ModeElegantRoyal, CureMermaid_ModeElegantRoyal, CureTwinkle_ModeElegantRoyal, CureScarlet_ModeElegantRoyal) (MusicPrincessPalace RoyalDressUpKey)
[ "はっ！"
, "響け！遙か彼方へ！"
, "プリキュア！ グラン・プランタン！"
, "ブルーミング"
, "ごきげんよう。"
]

「プリキュア・グラン・プランタン」を使用する際、「Go! プリンセスプリキュア」の5人は「モードエレガント・ロイヤル」という特殊なフォームに変身していなければなりません。なので、これらにも別の型を割り当てました。

-- cureName CureFlora と同じ文字列を返す。
> cureName CureFlora_ModeElegantRoyal
"キュアフローラ"

> variation CureFlora_ModeElegantRoyal
"モードエレガント・ロイヤル"

-- 特殊フォームでない場合は空文字列
> variation CureFlora
""

当然、「モードエレガント・ロイヤル」に変身する際には4人全員が揃い、専用のアイテムを使用する必要があります。

> transformationSpeech (CureFlora, CureMermaid, CureTwinkle, CureScarlet) (MusicPrincessPalace RoyalDressUpKey)
["モードエレガント・ロイヤル！", "ドレスアップ・ロイヤル！"]

> transformationSpeech CureFlora (MusicPrincessPalace RoyalDressUpKey)
<interactive>:8:1: error:
    ? No instance for (Transformation
                         CureFlora (MusicPrincessPalace RoyalDressUpKey))
        arising from a use of ‘transformationSpeech’
    ? In the expression:
        transformationSpeech
          CureFlora (MusicPrincessPalace RoyalDressUpKey)
      In an equation for ‘it’:
          it
            = transformationSpeech
                CureFlora (MusicPrincessPalace RoyalDressUpKey)

PreCureMonad

Haskellでプリキュアを実装する上で外せない機能が、もう一つあります。
そう、Monadです！

「タイプセーフプリキュア！」では、各種変身シーンや浄化技発動時の台詞をリストに組み立てるためのMonadを実装しました。
先ほどのGo! プリンセスプリキュアがモードエレガント・ロイヤルに変身してから浄化技を発動するまでの台詞を組み合わせてみましょう。

> :{
composeEpisode $ do
  goPrincessPreCureRoyal <- transform (CureFlora, CureMermaid, CureTwinkle, CureScarlet) (MusicPrincessPalace RoyalDressUpKey)
  purify goPrincessPreCureRoyal (MusicPrincessPalace RoyalDressUpKey)
> :}
[ "モードエレガント・ロイヤル！"
, "ドレスアップ・ロイヤル！"
, "はっ！"
, "響け！遙か彼方へ！"
, "プリキュア！ グラン・プランタン！"
, "ブルーミング"
, "ごきげんよう。"
]

単に文字列のリストを組み立てるだけじゃ面白くないので、rubicureが実装していた機能にならい、セリフを一行ずつ表示する機能を実装しました。
ぜひぜひ試してみてください！

> :{
printEpisode $ do
  goPrincessPreCureRoyal <- transform (CureFlora, CureMermaid, CureTwinkle, CureScarlet) (MusicPrincessPalace RoyalDressUpKey)
  purify goPrincessPreCureRoyal (MusicPrincessPalace RoyalDressUpKey)
> :}

PreCureMonadはsyocyさんも「Haskellライブラリ所感2016」という記事で紹介されていたmonad-skeletonというライブラリーを使ってさくっと作りました。
でも、この程度ならWriter Monadをnewtypeするので十分な気はしますが。まぁ使ってみて面白かったのでよしとしましょう。

使用しているGHCの拡張

さて、ライブラリー自体の紹介はこの辺にして、ここからは開発の際に使用したGHCの拡張について解説しましょう。
すべてメジャーなものだと思うので、少しでも参考にしていただければ幸いです。

MultiParamTypeClasses

「タイプセーフプリキュア！」では、一人一人の女の子、プリキュア、一つ一つのプリキュアの変身スタイル、変身アイテムそれぞれに固有の型を割り当てています。
PreCureやSpecialItemなどといった型は存在していません。
そのため、「特定の組み合わせでないと変身したり浄化したりすることができない」ということを型レベルで保証できるようにするためには、
型の「組み合わせ」に対して性質を与える必要があります。

そこで今回はMultiParamTypeClassesというGHCの拡張を使用しました。
名前の通り、これは型クラスが複数の型パラメーターをとることができるようになる拡張です。
例えば以下は、浄化技を使用できるプリキュアと、その際に必要な特殊アイテムの組み合わせを表す型クラスです。

class Purification p' i' where
  purificationSpeech :: p' -> i' -> [String]

インスタンス宣言は次のようになります。
ちゃんとPurificationに複数の型引数を与えて宣言していますね！

instance Purification CurePeach CureStickPeachRod where
  purificationSpeech _ _ =
    [ "届け！愛のメロディ！"
    , "キュアスティック・ピーチロッド！"
    , "悪いの悪いの飛んでいけ！"
    , "プリキュア！ラブサンシャイン・フレッシュ！"
    ]

このようにMultiParamTypeClassesは、複数の型の組み合わせごとに、メソッドを実装しわけたい場合に使います。
~~（この程度ならJavaオーバーロードとかで十分できるとかそういうこと言わない）~~
オブジェクト指向の世界の用語で言えば、マルチディスパッチとちょっと似ています。

身近な使用例: MonadState, MonadWriter, MonadReader

MultiParamTypeClassesの大変身近な使用例と言えば、すごいH本にもちょっとだけ出てくるmtlというライブラリーの、
MonadState, MonadWriter, MonadReaderなどの型クラスでしょう。

これらはそれぞれState Monad, Writer Monad, Reader Monadっぽく振る舞う型、全般を束ねる型クラスです。
これら3つのMonadはそれぞれState s a, Writer w a, Reader r aといった具合に2つの型パラメーターを受けとるように定義されているため、型クラスとして抽象化するには型クラス自体にも2つの型パラメーターが必要です ¹。
そのためMultiParamTypeClassesが使用されています。
結果、例えばMonadState型クラスは以下のような定義となっています（説明のために大幅に簡略化しています）。

class Monad m => MonadState s m where
    get :: m s
    put :: s -> m ()
    state :: (s -> (a, s)) -> m a

型パラメーター化されたMonad型クラスのインスタンス(m)が、もう一方の型パラメーターであるsを囲っていますね！

mtlでのMultiParamTypeClassesの使用方法は「マルチディスパッチ」的な使用方法とは大分毛色が違います ²が、このように、型パラメーターを複数とる型を型クラスとして抽象化したいときにも使えます。

FlexibileInstances

MultiParamTypeClassesのお陰で「型の組み合わせ」に対してメソッドを定義できるようになりました。これでプリキュアと変身アイテムの「組み合わせ」に対して個別の実装を割り当てることができるようになります。
ところが、プリキュアの世界には更に複雑なケースが存在します。実はすでに紹介した例に登場しているのですがお気づきでしょうか...？
そう、プリキュアは2人以上揃っていなければ変身できないことがあるのです！
Haskellの仕様上、2人以上の女の子が必要だからといってtransformationSpeech関数やtransform関数の引数を増やすわけにも行きません。
そこで「タイプセーフプリキュア！」では、2人以上の女の子やプリキュアが変身・浄化技に必要な場合は、タプルを使って表現することにしました。
先ほどのなぎさとほのかの例が典型的ですね。

> transformationSpeech (Nagisa, Honoka) (CardCommune_Mepple, CardCommune_Mipple)

繰り返しになりますが、「タイプセーフプリキュア！」ではすべての女の子やプリキュア・変身アイテムに個別の方を割り当てているので、
(Nagisa, Honoka) (CardCommune_Mepple, CardCommune_Mipple)という型の組み合わせで型クラスのインスタンスを宣言するには、それらのタプルに対してインスタンス宣言をしなければなりません。
これを可能にするためにはFlexibileInstancesが必要です。
この拡張を使わない場合、型クラスは仕様上、タプルのような型パラメーターを受け取る型をインスタンスとして宣言する際、型パラメーターをすべて抽象化した状態で（単純な型引数として）適用しなければなりません。

例えば、以下のようなインスタンス宣言は、FlexibileInstancesを使わなければエラーになります。

class SomeTypeClass a where
  someMethod :: a -> Foo

-- 型引数が両方とも具体的。なのでダメ。
instance SomeTypeClass (Int, Int)

-- 2つ目の型引数が具体的。なのでこれもダメ。
instance SomeTypeClass (Int, a)

-- 1つ目の要素の型が具体的。なのでこれもダメ。
instance SomeTypeClass ([a], b)

-- 2つ目の要素の型が1つ目の型と同じでなければならない、なのでこれもダメ。
instance SomeTypeClass (a, a)

-- これはOK
instance SomeTypeClass (a, b)

なぜダメなんでしょう？
例えば以下のような使い方ができてしまうからです。

instance SomeTypeClass (a, Int) where
  someMethod = ...

instance SomeTypeClass (Int, a) where
  someMethod = ...

のようにインスタンス宣言をしていたとして、someMethod (1, 3)を呼んだ場合、
instance SomeTypeClass (a, Int)のsomeMethodと、instance SomeTypeClass (Int, a)のsomeMethod、どちらのsomeMethodを呼ぶことになるのでしょうか？
(1, 3)の型は(Int, Int)と解釈できるので、(a, Int)も(Int, a)もどちらも当てはまってしまいます。
このように、型クラスの解決が困難になってしまう場面が存在するため、現在のHaskell標準ではこうしたインスタンス宣言を禁止しています。
この制限を緩和してくれるのがFlexibileInstancesです。
FlexibileInstancesを有効にした場合、(a, Int)と(Int, a)のように曖昧になるインスタンス宣言が存在しない限り、型引数に具体的な型を当てはめたインスタンス宣言を認めてくれるようになります。
詳しいルールについては結構複雑なのでGHCのドキュメントのこのへんをご覧ください。

TypeFamilies

TypeFamiliesは、type family, 「型を受け取って型を返す関数」を使えるようにしてくれます。
ごく単純なものを例えるなら、「型と型を紐付ける連想配列」といった方がピンとくるでしょう。
「タイプセーフプリキュア！」でもそのような使い方しかしていません。

例えば、以下のようなHaskellの型をキーにしたJSON（みたいなもの）をイメージしてみてください。

SomeTypeFamily =
  {
    String: [Double],
    Int: Char,
    Bool: (Maybe a)
  }

これをtype familyの文法で書くと次のようになります。

-- 型を一つ受け取って紐付けた型を返すtype family
type family SomeTypeFamily a

type instance SomeTypeFamily String = [Double]
type instance SomeTypeFamily Int = Char
type instance SomeTypeFamily Bool = Maybe Integer

ちょっと冗長ですが、

Stringを受け取ったら[Double]を返し、
Intを受け取ったらCharを返し、
Boolを受け取ったらMaybe Integerを返す関数である

ということが伝わったでしょうか？

実際に使う時はそのまんま型宣言に含めて使います（といって、この使い方ではあまり役に立ちませんが）。

-- SomeTypeFamilyにStringを適用すると[Double]を返し、
-- SomeTypeFamilyにIntを適用するとCharを返すので、
-- 下記の関数は[Double]を受け取ってCharを返す関数となる。
someFunctionUsingTypeTypeFamily :: SomeTypeFamily String -> SomeTypeFamily Int
someFunctionUsingTypeTypeFamily x = ...

このようにtype familyは文字通り「型を受け取って型を返す関数」なのです。実は再帰呼出しをしたりもできるので、本当に関数のように使えます。

さてこのtype familyについて、もっと頻繁に使われる使い方を示しましょう。
普通の関数が型クラスのメソッドとして宣言することができるのと同じように、type familyも型クラスのメソッドとして宣言することができるのです。

「タイプセーフプリキュア！」でもやはりそうした使い方をしています。
「変身できる女の子と、変身に必要な特殊アイテム」を表す型クラス Transformation を見てみましょう。
さっきから何度も出ているtransformationSpeechを定義しているのはこの型クラスです。

class Transformation g' i' where
  type Style g' i'
  transformedStyle :: g' -> i' -> Style g' i'
  transformationSpeech :: g' -> i' -> [String]

type familyを型クラスのメソッドとして宣言するのはよくある使い方だし、曖昧にもならないので、上記のようにfamilyを省略してtype <type family名>と宣言するだけで定義できます。
このように型クラスを定義することによって、Transformationを実装する型は、Style type familyに該当する型も定義しなければならなくなります。

Transformation型クラスのtype family Styleには、「変身した後のプリキュア、プリキュアの特殊フォーム（を表す型）」を定義しなければなりません。
例えば「Yes! プリキュア5 GoGo!」における「夢原のぞみはキュアモを使ってキュアドリームに変身する」という設定を表すインスタンス宣言は次のようになります。

instance Transformation Nozomi CureMo where
  type Style Nozomi CureMo = CureDream
  transformedStyle _ _ = CureDream
  transformationSpeech _ _ =
    [ "プリキュア！メタモルフォーゼ！"
    , "大いなる希望の力、キュアドリーム！"
    ]

何度も繰り返しますが、「タイプセーフプリキュア！」では一人ひとりのプリキュアやプリキュアの変身スタイルを異なる型で表現しているので、
transformedStyle, すなわち「変身した後のスタイル」を取得するための関数を定義するためには、
Transformationのインスタンスごとに異なる型の値を返せるようにする必要があります。
そこでtype familyが必要になったのです。

もっと実践的な使用例

せっかくなんでプリキュアよりももっともっとも〜っと実践的な使用例を示しましょう。
個人的にぱっと思いついたのはmono-traversableです（もっといろいろな例があると思うので教えてほしい）。

mono-traversableは、標準ライブラリーにおける「コンテナーっぽいデータ型の型クラス」Functor, Foldable, Traversableをそれぞれ一般化した、MonoFunctor, MonoFoldable, MonoTraversableを提供してくれます。
どのように一般化したのでしょう？
例えばByteStringのような、「コンテナーっぽいけれど、中に含んでいる要素が一種類しかない」型も抽象化できるようにしてくれるのです。

標準ライブラリーのFunctor, Foldable, Traversableのインスタンスとなる型は、いずれも型引数を1つとる型でなければいけません。
対してmono-traversableが提供するMonoFunctorなどは、Elementというtype familyで、
取りうる要素を型ごとに指定することで、ByteStringやTextみたいな、要素として使える型が一種類しかないコンテナーもサポートします。

論より証拠で、Element type familyのソースを一部見てみましょう。

type family Element mono
type instance Element ByteString = Word8
type instance Element Text = Char
type instance Element [a] = a
type instance Element (Maybe a) = a

のとおり、ByteStringやTextのような型に対してはWord8やCharといった決まった型を返し、リストやMaybeのように任意の型を要素として使える型に対しては要素の型をそのまま返すように作られています。
結果、mapのmono-traversable版であるomapという関数は、次のような型となります。

> :t omap
omap :: MonoFunctor mono => (Element mono -> Element mono) -> mono -> mono

omapは第二引数の型がByteStringであれば第一引数の型をWord8 -> Word8だと判断し、リスト [a]であれば(普通のリストのmapと似たように)第一引数の型をa -> aだと判断するようになるのです。

TemplateHaskell

TemplateHaskellは強力なメタプログラミング機構です。Yesodやaeson, Lensなどを使う際にも直接使うことがあるので、みなさんも他の拡張より親しみがあるかもしれません。
Q ExpやQ [Dec]など、Haskellの構文木を表した型を返す関数を定義・使用することで、コンパイル時にHaskellのソースコードを自動生成します。
「コンパイル時限定のLispのマクロのようなもの」と言えばピンとくる方もいらっしゃるかもしれません。
似たような関数・型をたくさん宣言したい時に記述を簡略化したり、
データベースのスキーマや設定ファイルといった、Haskellのソースコードの「外にあるもの」から自動で関数・型を定義したい時など、ユースケースはいろいろあります。

「タイプセーフプリキュア！」では、総勢45人ものプリキュアとそれに変身する女の子や変身アイテムなど、大量の型に対してTransformationやPurificationなどの型クラスを定義しなければならないため、インスタンス宣言は直接書かず、Template Haskellで定義したマクロを使用して定義しました。

そのため、先ほど出てきた「夢原のぞみはキュアモを使ってキュアドリームに変身する」という設定を表すインスタンスは、実際には次のように宣言されています。

transformationInstance [t| Nozomi |] [t| CureMo |] [t| CureDream |] [| CureDream |] transformationSpeech_Dream

あまり短くない？
まぁこれでも少しは楽ができました

とはいえ、それでも実際のソースを見ると、大量の類似コードに圧倒され、いささか複雑な気持ちになります（特に魔法つかいプリキュアのこの辺）

もうちょっとよい抽象化方法を早く思いつきたかった...

今後について

みなさんにお願い: 変身や浄化技・必殺技の台詞を募集します！

前回のブログ記事にも書きましたが、ここでも募集させていただきます。

正しさにこだわって実装したtypesafe-precureですが、残念ながら浄化技やプリキュアの特殊なフォームは一部しか実装されていません。時間の力には勝てませんでした。

そのため、みなさんの好きなあの技・あのフォームが定義されていない可能性が十分にあります。そうした場合は、こちらのルールにしたがって報告していただけると幸いです！

また、もちろん誤字・脱字や設定の大きな間違いについても受け付けます（キリがなくなりそうな状態になると私の一存でクローズするかもしれません。あらかじめご容赦を）。

お気づきの場合は以下から報告してください。お待ちしてます！

New Issue · igrep/typesafe-precure

追加したい機能とか

GHCのいろいろな拡張を試すつもりで実装した「タイプセーフプリキュア！」でしたが、思いついたアイディアを試すもなかなかうまく行かず、思ったよりもシンプルな実装に落ち着いてしまったな、と思います。
非互換な変更になってはしまいますが、気が向いたらがさくっと設計を変更するかもしれません。
例えば個別の型を定義するのではなく、型レベル文字列Symbolを使ってプリキュアや女の子の「名前」にTransformationなどのインスタンスを定義するのも面白いでしょう（修正量多いので多分やらないな、うん）。

それからもっと大事なこととして、ここまで挙げたコード例から察せられるとおり、typesafe-precureは現状非常に冗長で、非実用的な実装になってしまっています。
これでは使っていただけないでしょうし、収録していない台詞を集めていただくモチベーションも上がらないと思います。
そこで収録しているプリキュアの情報をJSONなどに変換して出力する機能を検討しています。
これはTemplate Haskellを使えば型クラスの定義から自動的に作れるはずです。
rubicureがyamlで定義したプリキュアの情報をRubyから使えるようにしているのと、ちょうど逆のことをやろうとしているわけですね。

そんなわけで、来年のプリキュアハッカソンやプリキュアAdvent Calendarのネタがもうけって～い！してしまったようです。
来年も私はプリキュアとHaskellをバリバリ追いかけて行きたいと思いますので、よろしくお願いします vim(_ _)mer
やるっしゅ！

厳密に言うと「2つの型パラメーターを受けとる型を型クラスで束ねる」すべてのケースでMultiParamTypeClassesが必要になるわけではないはずですが、ちょっと私はうまく説明できません...。 ↩
事実、MonadState, MonadWriter, MonadReaderはFunctionalDependenciesという別の拡張を併用して定義されているので、「型の組み合わせ」によってメソッドの実装を分けるといった使い方はできません。FunctionalDependenciesについては今回は使用していないので割愛します。 ↩

> 真のキュアエンジニアたるもの、自分の好きな言語でプリキュアを実装しなければならない
> --- *@sue445 (が、言ったということにしたい @igrep)*

と、いうわけで先週私はHaskellでプリキュアを実装しました。
[typesafe-precure](http://hackage.haskell.org/package/typesafe-precure)と言います。

[先週書いたプリキュアAdvent Calendarの記事](http://the.igreque.info/posts/2016/06-type-safe-precure.html)では技術的な説明を極力控えておりましたので、今回はもうちょっとHaskell Haskellした紹介をさせてください。

# TypeSafe PreCure!!

ご存知(?)、[rubicure](https://github.com/sue445/rubicure)をはじめとする[プリキュア実装](http://qiita.com/sue445/items/b41a4f5bdca46f1736c3)のHaskell版です。
他のプリキュア実装と異なり、名前の通り型安全であることに大きく重きをおいています。
また、プリキュアだけでなく変身アイテムや必殺技を放つときのアイテム（「特殊アイテム」とここでは呼びます）を収録している点も、他のプリキュア実装と一線を画す特徴でしょう。

```haskell
> transformationSpeech (Nagisa, Honoka) (CardCommune_Mepple, CardCommune_Mipple)
[ "デュアル・オーロラ・ウェイブ！！"
, "光の使者、キュアブラック！"
, "光の使者、キュアホワイト！"
, "ふたりはプリキュア！"
, "闇の力のしもべ達よ！"
, "とっととお家に帰りなさい！"
]
```

間違っても、1人で変身したり、

```haskell
> transformationSpeech Nagisa CardCommune_Mepple

<interactive>:3:1: error:
    ? No instance for (Transformation Nagisa CardCommune_Mepple)
        arising from a use of ‘transformationSpeech’
    ? In the expression: transformationSpeech Nagisa CardCommune_Mepple
      In an equation for ‘it’:
          it = transformationSpeech Nagisa CardCommune_Mepple
```

違う変身アイテムを使用して変身するなんてことはできません。

```haskell
> transformationSpeech (Nagisa, Honoka) (LinkleStoneDia, LinkleStoneDia)

<interactive>:4:1: error:
    ? No instance for (Transformation
                         (Nagisa, Honoka) (LinkleStoneDia, LinkleStoneDia))
        arising from a use of ‘transformationSpeech’
    ? In the expression:
        transformationSpeech
          (Nagisa, Honoka) (LinkleStoneDia, LinkleStoneDia)
      In an equation for ‘it’:
          it
            = transformationSpeech
                (Nagisa, Honoka) (LinkleStoneDia, LinkleStoneDia)
```

型が合わない変身なんて、興味がありません！ :triumph:
「ふたりはプリキュア！！」って2人で叫んでいるのに1人で変身できるとか、変じゃないですか！
「光の使者、キュアブラック！」ってキュアブラックが言った後「光の使者、キュアホワイト！」ってキュアホワイトが言ってるのに片方の台詞しかないとか、変じゃないですか！

```haskell
> purificationSpeech (CureFlora_ModeElegantRoyal, CureMermaid_ModeElegantRoyal, CureTwinkle_ModeElegantRoyal, CureScarlet_ModeElegantRoyal) (MusicPrincessPalace RoyalDressUpKey)
[ "はっ！"
, "響け！遙か彼方へ！"
, "プリキュア！ グラン・プランタン！"
, "ブルーミング"
, "ごきげんよう。"
]
```

```haskell
-- cureName CureFlora と同じ文字列を返す。
> cureName CureFlora_ModeElegantRoyal
"キュアフローラ"

> variation CureFlora_ModeElegantRoyal
"モードエレガント・ロイヤル"

-- 特殊フォームでない場合は空文字列
> variation CureFlora
""
```

当然、「モードエレガント・ロイヤル」に変身する際には4人全員が揃い、専用のアイテムを使用する必要があります。

```haskell
> transformationSpeech (CureFlora, CureMermaid, CureTwinkle, CureScarlet) (MusicPrincessPalace RoyalDressUpKey)
["モードエレガント・ロイヤル！", "ドレスアップ・ロイヤル！"]

> transformationSpeech CureFlora (MusicPrincessPalace RoyalDressUpKey)
<interactive>:8:1: error:
    ? No instance for (Transformation
                         CureFlora (MusicPrincessPalace RoyalDressUpKey))
        arising from a use of ‘transformationSpeech’
    ? In the expression:
        transformationSpeech
          CureFlora (MusicPrincessPalace RoyalDressUpKey)
      In an equation for ‘it’:
          it
            = transformationSpeech
                CureFlora (MusicPrincessPalace RoyalDressUpKey)
```

## PreCureMonad

Haskellでプリキュアを実装する上で外せない機能が、もう一つあります。
そう、Monadです！

```haskell
> :{
composeEpisode $ do
  goPrincessPreCureRoyal <- transform (CureFlora, CureMermaid, CureTwinkle, CureScarlet) (MusicPrincessPalace RoyalDressUpKey)
  purify goPrincessPreCureRoyal (MusicPrincessPalace RoyalDressUpKey)
> :}
[ "モードエレガント・ロイヤル！"
, "ドレスアップ・ロイヤル！"
, "はっ！"
, "響け！遙か彼方へ！"
, "プリキュア！ グラン・プランタン！"
, "ブルーミング"
, "ごきげんよう。"
]
```

```haskell
> :{
printEpisode $ do
  goPrincessPreCureRoyal <- transform (CureFlora, CureMermaid, CureTwinkle, CureScarlet) (MusicPrincessPalace RoyalDressUpKey)
  purify goPrincessPreCureRoyal (MusicPrincessPalace RoyalDressUpKey)
> :}
```

`PreCureMonad`はsyocyさんも「[Haskellライブラリ所感2016](http://syocy.hatenablog.com/entry/haskell-library-2016)」という記事で紹介されていた[monad-skeleton](https://hackage.haskell.org/package/monad-skeleton)というライブラリーを使ってさくっと作りました。
でも、この程度なら`Writer` Monadを`newtype`するので十分な気はしますが。まぁ使ってみて面白かったのでよしとしましょう。

# 使用しているGHCの拡張

## MultiParamTypeClasses

「タイプセーフプリキュア！」では、一人一人の女の子、プリキュア、一つ一つのプリキュアの変身スタイル、変身アイテム**それぞれに固有の型**を割り当てています。
`PreCure`や`SpecialItem`などといった型は存在していません。
そのため、「特定の組み合わせでないと変身したり浄化したりすることができない」ということを型レベルで保証できるようにするためには、
型の「**組み合わせ**」に対して性質を与える必要があります。

そこで今回は`MultiParamTypeClasses`というGHCの拡張を使用しました。
名前の通り、これは型クラスが複数の型パラメーターをとることができるようになる拡張です。
例えば以下は、浄化技を使用できるプリキュアと、その際に必要な特殊アイテムの組み合わせを表す型クラスです。

```haskell
class Purification p' i' where
  purificationSpeech :: p' -> i' -> [String]
```

インスタンス宣言は次のようになります。
ちゃんと`Purification`に複数の型引数を与えて宣言していますね！

```haskell
instance Purification CurePeach CureStickPeachRod where
  purificationSpeech _ _ =
    [ "届け！愛のメロディ！"
    , "キュアスティック・ピーチロッド！"
    , "悪いの悪いの飛んでいけ！"
    , "プリキュア！ラブサンシャイン・フレッシュ！"
    ]
```

このように`MultiParamTypeClasses`は、**複数の型の組み合わせごとに、メソッドを実装しわけたい**場合に使います。
~~（この程度ならJavaオーバーロードとかで十分できるとかそういうこと言わない）~~
オブジェクト指向の世界の用語で言えば、マルチディスパッチとちょっと似ています。

### 身近な使用例: MonadState, MonadWriter, MonadReader

`MultiParamTypeClasses`の大変身近な使用例と言えば、[すごいH本](https://estore.ohmsha.co.jp/titles/978427406885P)にもちょっとだけ出てくる[mtl](http://hackage.haskell.org/package/mtl)というライブラリーの、
`MonadState`, `MonadWriter`, `MonadReader`などの型クラスでしょう。

これらはそれぞれ`State` Monad, `Writer` Monad, `Reader` Monadっぽく振る舞う型、全般を束ねる型クラスです。
これら3つのMonadはそれぞれ`State s a`, `Writer w a`, `Reader r a`といった具合に2つの型パラメーターを受けとるように定義されているため、**型クラスとして抽象化するには型クラス自体にも2つの型パラメーターが必要**です [^multi2]。
そのため`MultiParamTypeClasses`が使用されています。
結果、例えば`MonadState`型クラスは以下のような定義となっています（説明のために大幅に簡略化しています）。

```haskell
class Monad m => MonadState s m where
    get :: m s
    put :: s -> m ()
    state :: (s -> (a, s)) -> m a
```

型パラメーター化された`Monad`型クラスのインスタンス(`m`)が、もう一方の型パラメーターである`s`を囲っていますね！

mtlでの`MultiParamTypeClasses`の使用方法は「マルチディスパッチ」的な使用方法とは大分毛色が違います [^multi]が、このように、型パラメーターを複数とる型を型クラスとして抽象化したいときにも使えます。

[^multi]: 事実、`MonadState`, `MonadWriter`, `MonadReader`は`FunctionalDependencies`という別の拡張を併用して定義されているので、「型の組み合わせ」によってメソッドの実装を分けるといった使い方はできません。`FunctionalDependencies`については今回は使用していないので割愛します。
[^multi2]: 厳密に言うと「2つの型パラメーターを受けとる型を型クラスで束ねる」すべてのケースで`MultiParamTypeClasses`が必要になるわけではないはずですが、ちょっと私はうまく説明できません...。

## FlexibileInstances

`MultiParamTypeClasses`のお陰で「型の組み合わせ」に対してメソッドを定義できるようになりました。これでプリキュアと変身アイテムの「組み合わせ」に対して個別の実装を割り当てることができるようになります。
ところが、プリキュアの世界には更に複雑なケースが存在します。実はすでに紹介した例に登場しているのですがお気づきでしょうか...？
そう、プリキュアは2人以上揃っていなければ変身できないことがあるのです！
Haskellの仕様上、2人以上の女の子が必要だからといって`transformationSpeech`関数や`transform`関数の引数を増やすわけにも行きません。
そこで「タイプセーフプリキュア！」では、2人以上の女の子やプリキュアが変身・浄化技に必要な場合は、タプルを使って表現することにしました。
先ほどのなぎさとほのかの例が典型的ですね。

```haskell
> transformationSpeech (Nagisa, Honoka) (CardCommune_Mepple, CardCommune_Mipple)
```

繰り返しになりますが、「タイプセーフプリキュア！」ではすべての女の子やプリキュア・変身アイテムに個別の方を割り当てているので、
`(Nagisa, Honoka) (CardCommune_Mepple, CardCommune_Mipple)`という型の組み合わせで型クラスのインスタンスを宣言するには、それらのタプルに対してインスタンス宣言をしなければなりません。
これを可能にするためには`FlexibileInstances`が必要です。
この拡張を使わない場合、型クラスは仕様上、タプルのような型パラメーターを受け取る型をインスタンスとして宣言する際、型パラメーターをすべて抽象化した状態で（単純な型引数として）適用しなければなりません。

例えば、以下のようなインスタンス宣言は、`FlexibileInstances`を使わなければエラーになります。

```haskell
class SomeTypeClass a where
  someMethod :: a -> Foo

-- 型引数が両方とも具体的。なのでダメ。
instance SomeTypeClass (Int, Int)

-- 2つ目の型引数が具体的。なのでこれもダメ。
instance SomeTypeClass (Int, a)

-- 1つ目の要素の型が具体的。なのでこれもダメ。
instance SomeTypeClass ([a], b)

-- 2つ目の要素の型が1つ目の型と同じでなければならない、なのでこれもダメ。
instance SomeTypeClass (a, a)

-- これはOK
instance SomeTypeClass (a, b)
```

なぜダメなんでしょう？
例えば以下のような使い方ができてしまうからです。

```haskell
instance SomeTypeClass (a, Int) where
  someMethod = ...

instance SomeTypeClass (Int, a) where
  someMethod = ...
```

のようにインスタンス宣言をしていたとして、`someMethod (1, 3)`を呼んだ場合、
`instance SomeTypeClass (a, Int)`の`someMethod`と、`instance SomeTypeClass (Int, a)`の`someMethod`、どちらの`someMethod`を呼ぶことになるのでしょうか？
`(1, 3)`の型は`(Int, Int)`と解釈できるので、`(a, Int)`も`(Int, a)`もどちらも当てはまってしまいます。
このように、型クラスの解決が困難になってしまう場面が存在するため、現在のHaskell標準ではこうしたインスタンス宣言を禁止しています。
この制限を緩和してくれるのが`FlexibileInstances`です。
`FlexibileInstances`を有効にした場合、`(a, Int)`と`(Int, a)`のように曖昧になるインスタンス宣言が存在しない限り、型引数に具体的な型を当てはめたインスタンス宣言を認めてくれるようになります。
詳しいルールについては結構複雑なので[GHCのドキュメントのこのへん](http://www.kotha.net/ghcguide_ja/latest/type-class-extensions.html#instance-overlap)をご覧ください。

## TypeFamilies

`TypeFamilies`は、type family, 「**型を受け取って型を返す関数**」を使えるようにしてくれます。
ごく単純なものを例えるなら、「型と型を紐付ける連想配列」といった方がピンとくるでしょう。
「タイプセーフプリキュア！」でもそのような使い方しかしていません。

例えば、以下のようなHaskellの型をキーにしたJSON（みたいなもの）をイメージしてみてください。

```
SomeTypeFamily =
  {
    String: [Double],
    Int: Char,
    Bool: (Maybe a)
  }
```

これをtype familyの文法で書くと次のようになります。

```haskell
-- 型を一つ受け取って紐付けた型を返すtype family
type family SomeTypeFamily a

type instance SomeTypeFamily String = [Double]
type instance SomeTypeFamily Int = Char
type instance SomeTypeFamily Bool = Maybe Integer
```

ちょっと冗長ですが、

- `String`を受け取ったら`[Double]`を返し、
- `Int`を受け取ったら`Char`を返し、
- `Bool`を受け取ったら`Maybe Integer`を返す関数である

ということが伝わったでしょうか？

実際に使う時はそのまんま型宣言に含めて使います（といって、この使い方ではあまり役に立ちませんが :sweat_smile:）。

```haskell
-- SomeTypeFamilyにStringを適用すると[Double]を返し、
-- SomeTypeFamilyにIntを適用するとCharを返すので、
-- 下記の関数は[Double]を受け取ってCharを返す関数となる。
someFunctionUsingTypeTypeFamily :: SomeTypeFamily String -> SomeTypeFamily Int
someFunctionUsingTypeTypeFamily x = ...
```

このようにtype familyは文字通り「型を受け取って型を返す関数」なのです。実は再帰呼出しをしたりもできるので、本当に関数のように使えます。

さてこのtype familyについて、もっと頻繁に使われる使い方を示しましょう。
普通の関数が型クラスのメソッドとして宣言することができるのと同じように、**type familyも型クラスのメソッドとして宣言**することができるのです。

「タイプセーフプリキュア！」でもやはりそうした使い方をしています。
「変身できる女の子と、変身に必要な特殊アイテム」を表す型クラス `Transformation` を見てみましょう。
さっきから何度も出ている`transformationSpeech`を定義しているのはこの型クラスです。

```haskell
class Transformation g' i' where
  type Style g' i'
  transformedStyle :: g' -> i' -> Style g' i'
  transformationSpeech :: g' -> i' -> [String]
```

type familyを型クラスのメソッドとして宣言するのはよくある使い方だし、曖昧にもならないので、上記のように`family`を省略して`type <type family名>`と宣言するだけで定義できます。
このように型クラスを定義することによって、`Transformation`を実装する型は、`Style` type familyに該当する型も定義しなければならなくなります。

`Transformation`型クラスのtype family `Style`には、「変身した後のプリキュア、プリキュアの特殊フォーム（を表す型）」を定義しなければなりません。
例えば「Yes! プリキュア5 GoGo!」における「夢原のぞみはキュアモを使ってキュアドリームに変身する」という設定を表すインスタンス宣言は次のようになります。

```haskell
instance Transformation Nozomi CureMo where
  type Style Nozomi CureMo = CureDream
  transformedStyle _ _ = CureDream
  transformationSpeech _ _ =
    [ "プリキュア！メタモルフォーゼ！"
    , "大いなる希望の力、キュアドリーム！"
    ]
```

何度も繰り返しますが、「タイプセーフプリキュア！」では一人ひとりのプリキュアやプリキュアの変身スタイルを異なる型で表現しているので、
`transformedStyle`, すなわち「変身した後のスタイル」を取得するための関数を定義するためには、
`Transformation`の**インスタンスごとに異なる型の値を返せるようにする**必要があります。
そこでtype familyが必要になったのです。

### もっと実践的な使用例

せっかくなんでプリキュアよりももっともっとも〜っと実践的な使用例を示しましょう。
個人的にぱっと思いついたのは[mono-traversable](https://hackage.haskell.org/package/mono-traversable)です（もっといろいろな例があると思うので教えてほしい）。

mono-traversableは、標準ライブラリーにおける「コンテナーっぽいデータ型の型クラス」`Functor`, `Foldable`, `Traversable`をそれぞれ一般化した、`MonoFunctor`, `MonoFoldable`, `MonoTraversable`を提供してくれます。
どのように一般化したのでしょう？
例えば`ByteString`のような、「コンテナーっぽいけれど、中に含んでいる要素が一種類しかない」型も抽象化できるようにしてくれるのです。

標準ライブラリーの`Functor`, `Foldable`, `Traversable`のインスタンスとなる型は、いずれも型引数を1つとる型でなければいけません。
対してmono-traversableが提供する`MonoFunctor`などは、[`Element`](https://hackage.haskell.org/package/mono-traversable-1.0.1/docs/src/Data-MonoTraversable.html#Element)というtype familyで、
取りうる要素を型ごとに指定することで、`ByteString`や`Text`みたいな、要素として使える型が一種類しかないコンテナーもサポートします。

論より証拠で、[`Element`](https://hackage.haskell.org/package/mono-traversable-1.0.1/docs/src/Data-MonoTraversable.html#Element) type familyのソースを一部見てみましょう。

```haskell
type family Element mono
type instance Element ByteString = Word8
type instance Element Text = Char
type instance Element [a] = a
type instance Element (Maybe a) = a
```

:point_up: のとおり、`ByteString`や`Text`のような型に対しては`Word8`や`Char`といった決まった型を返し、リストや`Maybe`のように任意の型を要素として使える型に対しては要素の型をそのまま返すように作られています。
結果、`map`のmono-traversable版である`omap`という関数は、次のような型となります。

```haskell
> :t omap
omap :: MonoFunctor mono => (Element mono -> Element mono) -> mono -> mono
```

`omap`は第二引数の型が`ByteString`であれば第一引数の型を`Word8 -> Word8`だと判断し、リスト `[a]`であれば(普通のリストの`map`と似たように)第一引数の型を`a -> a`だと判断するようになるのです。

## TemplateHaskell

`TemplateHaskell`は強力なメタプログラミング機構です。Yesodやaeson, Lensなどを使う際にも直接使うことがあるので、みなさんも他の拡張より親しみがあるかもしれません。
`Q Exp`や`Q [Dec]`など、Haskellの構文木を表した型を返す関数を定義・使用することで、コンパイル時にHaskellのソースコードを自動生成します。
「コンパイル時限定のLispのマクロのようなもの」と言えばピンとくる方もいらっしゃるかもしれません。
似たような関数・型をたくさん宣言したい時に記述を簡略化したり、
データベースのスキーマや設定ファイルといった、Haskellのソースコードの「外にあるもの」から自動で関数・型を定義したい時など、ユースケースはいろいろあります。

「タイプセーフプリキュア！」では、総勢45人ものプリキュアとそれに変身する女の子や変身アイテムなど、大量の型に対して`Transformation`や`Purification`などの型クラスを定義しなければならないため、インスタンス宣言は直接書かず、Template Haskellで定義したマクロを使用して定義しました。

あまり短くない？
まぁこれでも少しは楽ができました :relaxed:

とはいえ、それでも実際のソースを見ると、大量の類似コードに圧倒され、いささか複雑な気持ちになります :cold_sweat: （[特に魔法つかいプリキュアのこの辺](https://github.com/igrep/typesafe-precure/blob/18d49293021c9db085fc67a479705cac879aeea9/src/ACME/PreCure/Textbook/MahoGirls/Types.hs#L71-L296)）

もうちょっとよい抽象化方法を早く思いつきたかった... :sweat:

# 今後について

## みなさんにお願い: 変身や浄化技・必殺技の台詞を募集します！

[前回のブログ記事](http://the.igreque.info/posts/2016/06-type-safe-precure.html)にも書きましたが、ここでも募集させていただきます。

正しさにこだわって実装したtypesafe-precureですが、残念ながら浄化技やプリキュアの特殊なフォームは**一部しか実装されていません**。時間の力には勝てませんでした。  
そのため、みなさんの好きなあの技・あのフォームが定義されていない可能性が十分にあります。そうした場合は、[こちらのルールにしたがって](https://github.com/igrep/typesafe-precure/blob/master/CONTRIBUTING.md)**報告していただけると幸いです**！  
また、もちろん誤字・脱字や設定の大きな間違いについても受け付けます（キリがなくなりそうな状態になると私の一存でクローズするかもしれません。あらかじめご容赦を）。

お気づきの場合は以下から報告してください。お待ちしてます！

[New Issue · igrep/typesafe-precure](https://github.com/igrep/typesafe-precure/issues/new)

## 追加したい機能とか

GHCのいろいろな拡張を試すつもりで実装した「タイプセーフプリキュア！」でしたが、思いついたアイディアを試すもなかなかうまく行かず、思ったよりもシンプルな実装に落ち着いてしまったな、と思います。
非互換な変更になってはしまいますが、気が向いたらがさくっと設計を変更するかもしれません :innocent: 。
例えば個別の型を定義するのではなく、型レベル文字列`Symbol`を使ってプリキュアや女の子の「名前」に`Transformation`などのインスタンスを定義するのも面白いでしょう（修正量多いので多分やらないな、うん :relieved:）。

それからもっと大事なこととして、ここまで挙げたコード例から察せられるとおり、typesafe-precureは現状非常に冗長で、非実用的な実装になってしまっています。
これでは使っていただけないでしょうし、収録していない台詞を集めていただくモチベーションも上がらないと思います。
そこで収録している**プリキュアの情報をJSONなどに変換して出力する**機能を検討しています。
これはTemplate Haskellを使えば型クラスの定義から自動的に作れるはずです。
rubicureがyamlで定義したプリキュアの情報をRubyから使えるようにしているのと、ちょうど逆のことをやろうとしているわけですね。

そんなわけで、来年のプリキュアハッカソンやプリキュアAdvent Calendarのネタがもう けって～い！ してしまったようです。
来年も私はプリキュアとHaskellをバリバリ追いかけて行きたいと思いますので、よろしくお願いします vim(\_ \_)mer
やるっしゅ！

igrep

437Contribution