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 实例。

相关内容

热门资讯

透视免费"打大a辅助... 透视免费"打大a辅助器"开挂(透视)pokemmo手机辅助软件(有挂神器);无需打开直接搜索微信(1...
透视攻略"微信小程序... 透视攻略"微信小程序功夫川辅助"开挂(透视)wpk德州局透视(有挂技术)微信小程序功夫川辅助ai黑科...
分享个大家"三江互娱... 分享个大家"三江互娱辅助"开挂(透视)德扑圈透视挂(今日头条)【无需打开直接搜索加薇13670430...
最新研发"小南娱乐科... >>您好:小南娱乐科技确实是有挂的,很多玩家在这款小南娱乐科技游戏中打牌都会发现很多用户的牌特别好,...
信息共享"中至上饶打... 中至上饶打炸漏洞 无需打开直接搜索微信:136704302本司针对手游进行,选择我们的四大理由: 1...
透视透视"开心泉州小... 透视透视"开心泉州小程序福州"开挂(透视)hhpoker免费透视脚本(有人有挂) 【无需打开直接搜索...
玩家必备攻略"提高微... 玩家必备攻略"提高微乐运气的方法"开挂(透视)epoker有透视吗(有挂存在);无需打开直接搜索加薇...
玩家必看教程"约局吧... 【亲,we-poker是什么软件 这款游戏可以开挂的,确实是有挂的,很多玩家在这款we-poker是...
透视代打"丽水都莱辅... 透视代打"丽水都莱辅助软件"开挂(透视)wepoker透视app下载(真的有挂);无需打开直接搜索打...
透视最新"约局吧开挂... wepoker游戏安装教程 无需打开直接搜索微信:136704302本司针对手游进行,选择我们的四大...