haskell - 将 State monad 与 Either-style 错误传播相结合
问题描述
我对 Haskell 相当陌生。我试图通过将 Either 视为 monad 来将 State monad 与错误传播结合起来。我想以不需要显式处理状态或错误的方式递归抽象语法树(例如,用于在语句和表达式上编写解释器)。我的印象是,最简单的方法是使用 exceptT monad 转换器。这是我编译的示例代码:
import Control.Monad.Except
import Control.Monad.State
import qualified Data.Map.Strict as M
-- simple expression language supporting crude let bindings
data Exp = Lit Int | Var String
| Add (Exp, Exp) | Let (String, Exp, Exp) deriving Show
okExp = -- let x = 2 in let y = x + 3 in x + y -- evaluate to 7
Let ("x", Lit 2,
Let ("y", Add (Var "x", Lit 3),
Add (Var "x", Var "y")))
badExp = Var "x" -- error: x is not defined
type St = M.Map String Int
initialState :: St
initialState = M.empty
type EvalMonad = ExceptT String (State St)
evalExp :: Exp -> EvalMonad Int
evalExp (Lit n) = return n
evalExp (Var v) = do
mp <- lift get
case M.lookup v mp of
Just i -> return i
Nothing -> throwError (v ++ " not found")
evalExp (Add (a, b)) = do
x <- evalExp a
y <- evalExp b
return (x + y)
我希望在简单的示例(例如,okExp、badExp)上运行 evalExp。我不确定三件事:
- 如何将初始状态纳入计算?
- 如何使用 runExceptT 提取结果?
- (更笼统):这是解决这个问题的“正确”方法吗?
解决方案
看起来是一个很好的开始!这是一个小例子,展示了如何在 ghci中使用runExceptT
and :runState
> runState (runExceptT (evalExp (Add (Lit 3, Lit 4)))) initialState
(Right 7,fromList [])
> runState (runExceptT (evalExp (Add (Lit 3, Var "x")))) initialState
(Left "x not found",fromList [])
推荐阅读
- dafny - 如何编写关于读取堆的函数的 Dafny 公理?
- docker - 如何在 docker 容器中成为 root
- angular5 - runOutsideAngular 不能使用更多数量的 dom 元素
- python - 使用 ", ".join 基于一列聚合行 -- TypeError: sequence item 0: expected str instance, NoneType found
- sql - Redshift SVV_TABLE_INFO 中缺少的表 id 应该存在,查看 STL_QUERY 和 STL_SCAN
- crystal-reports - 使用 Crystal Report XI 预览报表时不同 Windows 用户配置文件中的不同性能
- android - 在真实设备上运行时,材质 TextInputLayout 样式不起作用应用程序崩溃
- postgresql - Hasura cli.migration conainer 无法在 postgres-11 中更新 typeorm @updatedatecolumn
- java - Java 没有为表达式提供预期的结果
- sharepoint-online - 从 SharePoint Online/365 检索文件