解析一系列 lambda 演算项

问题描述

我正在用 Haskell 编写 lambda 演算解析器，但找不到解决当前问题的解决方案。

我如何解析表达式：

expr :: Parser LamExpr
expr = do terms <- some $ token term
          return $ foldl1 LamApp terms

我如何解析术语：

term :: Parser LamExpr
term = do symbol "("
          e     <- expr
          symbol ")"
          return e

   <|> do symbol "\\"
          x     <- var
          symbol "->"
          e     <- expr
          return $ LamAbs x e

   <|> do {x <- var; return $ LamVar x}

   <|> do {name <- macroName; return $ LamMacro name}

在输入“x1 x2) x3”时，我的解析器返回

LamApp (LamVar 1) (LamVar 2)

解析应该失败，因为它在语法上不正确，但它仍然解析第一个应用程序。我认为这是因为 do terms <- some $ token term 会尽可能多地解析 some。

如何解决这个问题，使整个解析失败而不是一个部分？

解决方法

我假设您正在使用一些解析变体。您只需在解析器的末尾添加一个 eof。

parseInput = do
    e <- expr
    eof
    pure e  -- (*)

或者简称使用 Control.Applicative 组合器：

parseInput = expr <* eof

---

(*) btw 社区最近开始使用 pure 而不是 return