如何在 Haskell 的秒差距中解析罗马数字？

Question

我是 Haskell 初学者，我正在尝试通过编写一个可以使用阿拉伯数字（如“234”）或罗马数字（如 "MCMLXIX." 我找到了 the library roman-numerals，所以我想我会尝试以某种方式使用 fromRoman 函数，结合 Parsec，因为我最终需要得到罗马数字的阿拉伯等价物.但我还不太清楚如何将 fromRoman 的 Maybe 输出强制转换为 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

但是，不行，因为我还不太清楚自己在做什么。

Answer 1

如果您的 Maybe 是 Nothing，您可以 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 的秒差距中解析罗马数字？

How can I parse roman numerals in Haskell's Parsec?

haskell

parsec