Applicative是否可以通过MonadTransformer的Monad自然推导出来?
创始人
2024-09-11 04:31:04
0

可以通过 MonadTransformer 的类型类约束来推导出它的 Applicative 实例。在一个 MonadTransformer 中,其内部 Monad 实现了 Functor 和 Applicative,因此可以在 MonadTransformer 类型类约束中将 Applicative 约束为 Monad 的实现类型。

具体的代码示例如下:

{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE FunctionalDependencies #-}
{-# LANGUAGE MultiParamTypeClasses #-}

import Control.Monad.Trans.Class
import Control.Monad.Trans.Maybe
import Control.Monad.Trans.Reader

class (Monad m, Applicative m) => MonadTrans' t m | t -> m where
  lift' :: (Monad n) => n a -> t n a

instance MonadTrans' MaybeT Maybe where
  lift' = MaybeT . liftM Just

instance MonadTrans' (ReaderT r) ((->) r) where
  lift' = ReaderT . const

在这个例子中,我们定义了一个 MonadTrans' 类型类,它有两个约束条件,一个是 Monad,另一个是 Applicative。在类型类的函数定义中,我们定义了一个 lift' 函数,它接受一个 Monad n 的计算,返回一个 t n a 类型的计算。我们还通过函数依赖声明 t -> m 来确保 t 与 m 类型是相同的。

然后,我们为 MaybeT 和 ReaderT 分别实现了 MonadTrans' 类型类的实例。在这些实例中,我们使用了 liftM 或 const 函数来实现 lift' 函数,从而为 Maybe 和 函数类型添加了一个 MonadTransformer 的 Monad 实例。因此,我们就可以通过 MonadTransformer 中的 Monad 自然推导出 Applicative 实例。

相关内容

热门资讯

程序员教你!德州局怎么透视,p... 程序员教你!德州局怎么透视,poker辅助器免费安装,总是是真的有挂(的确有挂)1)有没有挂:进一步...
热点推荐!wpk私人辅助,po... 热点推荐!wpk私人辅助,pokemmo手机版脚本免费,切实是有挂(有挂讲解)辅助器是一种具有地方特...
总算了解!wepoker辅助器... 总算了解!wepoker辅助器安装包,wepoker辅助器安装包,其实是真的有挂(揭秘有挂)1、玩家...
发现玩家!wejoker私人辅... 发现玩家!wejoker私人辅助软件,aapoker插件,果然是真的有挂(有挂秘笈)在进入软件靠谱后...
热门推荐!wepoker轻量版... 热门推荐!wepoker轻量版有透视吗,德普之星有透视辅助吗,其实是有挂(有挂方略)一、游戏安装教程...
发现玩家!wepoker怎么挂... 发现玩家!wepoker怎么挂底牌,wepoker智能辅助插件,确实是有挂(有挂助手)小薇(辅助器软...
查到实测!wepoker私人定... 查到实测!wepoker私人定制透视,wepoker插件功能辅助器,切实是真的有挂(有挂方略)是不是...
科普分享!拱趴大菠萝十三水作弊... 科普分享!拱趴大菠萝十三水作弊,wepoker是不是有人用挂,其实真的是有挂(证实有挂)1、让任何用...
分享实测!wpk刷入池率脚本,... 分享实测!wpk刷入池率脚本,wepoker破解器,本来真的有挂(有挂教学)1、操作简单,无需手机版...
我来教教大家!德州辅助工具到底... 我来教教大家!德州辅助工具到底怎么样,智星德州辅助译码插件靠谱吗,总是是真的有挂(有挂分析)1、这是...