create ハッシュマップを使う.

コレクション/ハッシュマップを使う.md

@@ -1,2 +1,40 @@
 ハッシュマップを使う
 ====================
+
+任意のデータをキーとするマップを作りたいことがあります。
+`unordered-containers`の`Data.HashMap`を使うと、`Hashable`をインスタンスにもつデータをキーとするマップを作成できます。
+
+`User`というデータを`email`をキーとして扱うにはこのように書くことができます。
+
+```haskell
+-- unordered-containers
+import qualified Data.HashMap.Strict as HashMap
+
+-- hashable
+import Data.Hashable (Hashable, hashWithSalt)
+
+data User = User { email :: String, name :: String }
+  deriving (Eq, Show)
+
+instance Hashable User where
+  hashWithSalt salt user = hashWithSalt salt $ email user
+```
+
+`hashable`は`unordered-containers`の依存パッケージです。
+
+`User`に`Hashable`インスタンスを定義して`hashWithSalt`を実装しています。
+これで`User`を`HashMap`のキーとして使うことができます。
+
+使ってみましょう。
+
+```haskell
+-- unordered-containers
+> import qualified Data.HashMap.Strict as HashMap
+> alice = User "[email protected]" "Alice"
+> bob = User "[email protected]" "Bob"
+> users = HashMap.fromList [(alice, "Alice is nice"), (bob, "Bob is great")]
+> HashMap.lookup alice users
+Just "Alice is nice"
+> HashMap.lookup bob users
+Just "Bob is great"
+```