我发现我很难理解MonadState。
原因可能是大多数示例在其数据结构中与记录语法混淆。
因此,我尝试在不使用记录语法的情况下实现MonadState 。
我编写的以下代码确实通过了编译器,但对我来说似乎完全是一派胡言。
这些代码有什么问题?
有没有不使用记录语法实现MonadState的简单示例?
data Foo a b = Foo (Maybe ([a],b)) deriving (Show)
unwrapFoo :: Foo a b -> Maybe ([a],b)
unwrapFoo (Foo x) = x
instance Monad (Foo [a]) where
return x = Foo $ Just ([], x)
m >>= f = case unwrapFoo m of
Just (_, r) -> f r
Nothing -> Foo Nothing
instance MonadState Int (Foo [a]) where
get = Foo $ Just ([], 1)
put _ = Foo $ Just ([],())
*Main> get :: Foo [a] Int
Foo (Just ([],1))
*Main> put 3 :: Foo [a] ()
Foo (Just ([],()))
*Main>