如何将 Control.Monad.Reader 中的 mapReader 用于 reader monad？

Question

我试图弄清楚如何使用Control.Monad.Reader中的mapReader 。

例如我有这个读者单子

myReaderMonad :: Reader String Int
myReaderMonad = do
  string <- ask
  return (length string)

我可以这样运行

>>> runReader myReaderMonad  "Saurabh"
>>> 7

现在我正在尝试检查 runReader 返回的值是否偶数。 不使用mapReader我可以这样做

>>> even $ runReader myReaderMonad  "Saurabh"
>>> False

但我想通过使用mapReader https://hackage.haskell.org/package/mtl-2.2.2/docs/Control-Monad-Reader.html#v:mapReader来做到这一点

我尝试了以下但它不工作。

>>> mapReader even  myReaderMonad  "Saurabh"
>>> • Couldn't match expected type ‘[Char] -> t’
                  with actual type ‘ReaderT
                                      String Data.Functor.Identity.Identity Bool’
    • The function ‘mapReader’ is applied to three arguments,
      but its type ‘(Int -> Bool)
                    -> Reader String Int
                    -> ReaderT String Data.Functor.Identity.Identity Bool’
      has only two
      In the expression: mapReader even myReaderMonad "Saurabh"
      In an equation for ‘it’:
          it = mapReader even myReaderMonad "Saurabh"

请在这里帮助我。

Answer 1

mapReader不会突然将您的Reader计算转换为普通的 function，它只是将其转换为另一个Reader计算。

表达式mapReader even myReaderMonad都不会返回 function 您可以将“Saurabh”作为参数提供给它。 相反，它为您提供了Reader String Bool 。

现在您有了这个新的Reader String Bool值，您可以使用runReader给它一个字符串并获得结果：

> myEvenReader = mapReader even myReaderMonad
...
> runReader myEvenReader "Saurabh"
False

或者您可以以其他方式使用它，例如通过另一个mapReader ：

> myOddReader = mapReader not myEvenReader
...
> runReader myOddReader "Saurabh"
True