我是一名 Haskell 初学者,我正在尝试通过编写一个解析器来了解 Parsec,该解析器可以使用阿拉伯数字(如“234”)或罗马数字(如“MCMLXIX”)。我找到了 the library roman-numerals ,所以我想我会尝试以某种方式使用 fromRoman 函数,结合 Parsec,因为我最终需要得到罗马数字的阿拉伯语等价物。但我还不太清楚如何将 MaybefromRoman 输出强制转换为 Parser 。这是我到目前为止:

import Text.Parsec
import Text.Parsec.Text (Parser)
import Text.Numeral.Roman

arabicNum :: Parser Int
arabicNum = do
  n <- many1 digit
  return (read n)

isChapter :: Inline -> Bool
isChapter str = str == Str "CHAPTER"

number :: Parser Int
number = arabicNum <|> romanNum

romanNum :: Parser Int
romanNum = do
  str <- many1 char
  return case (fromRoman str) of
    Just n -> n
    Nothing -> Nothing

但是,没有骰子,因为我还不知道我在做什么。

最佳答案

如果您的 MaybeNothing ,您可以 fail 生成解析器错误。如果有什么,你可以 return 它:

romanNum :: Parser Int
romanNum = do
  str <- many1 $ oneOf "MDCLXVI"
  case fromRoman str of
    Just n -> return n
    Nothing -> fail $ str ++ " is not a valid roman numeral"

关于haskell - 如何在 Haskell 的 Parsec 中解析罗马数字?,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/59887426/

10-14 23:48
查看更多