haskell - 機能レンズ

Question

誰かが私に機能レンズを説明してもらえますか？それはグーグルにとって驚くほど難しい主題であり、私は何の進歩もしていません。私が知っているのは、OOと同様のget/set機能を提供することだけです。

Answer 1

レンズは、ゲッターとセッターの2つの機能で構成されています。

data Lens a b = Lens { getter :: a -> b, setter :: b -> a -> a }

たとえば、ペアの最初の部分と2番目の部分にレンズがあるとします。

fstLens :: Lens (a, b) a
fstLens = Lens fst $ \x (a, b) -> (x, b)

sndLens :: Lens (a, b) b
sndLens = Lens snd $ \x (a, b) -> (a, x)

レンズの本当の便利さは、レンズが以下を構成することです。

compose :: Lens b c -> Lens a b -> Lens a c
compose f g = Lens (getter f . getter g) $
                   \c a -> setter g (setter f c (getter g a)) a

そして、それらは機械的にStateトランジションに変換されます。

lensGet :: MonadState s m => Lens s a -> m a
lensGet = gets . getter

lensSet :: MonadState s m => Lens s b -> b -> m ()
lensSet f = modify . setter f

lensMod :: MonadState s m => Lens s b -> (b -> b) -> m ()
lensMod f g = modify $ setter f =<< g . getter f

(+=) :: (MonadState s m, Num b) => Lens s b -> b -> m ()
f += x = lensMod f (+ x)

Answer 2

lens, fclabels, data-accessorの質問への回答を参照してください- 構造アクセスとミューテーションのどのライブラリが優れているか - レンズに関する非常に明確な説明があります。

また、Data.Lensesおよびfclabelライブラリのドキュメントには、それらが使用されている良い例がいくつかあります。