在Haskell (Trifecta)中解析三位数的最简洁方法

Question

将三个连续的数字解析成一个字符串的惯用方法是什么？

以下方法可以工作，但不能扩展：

threeDigits :: Parser Int
threeDigits = do
    d1 <- digit
    d2 <- digit
    d3 <- digit
    return (digitToInt d1 * 100 + digitToInt d2 * 10 + digitToInt d3)

更普遍的是，如何将此比例扩展到N个数字？

Answer 1

使用count。

digits :: Int -> Parser Int
digits n = read <$> count n digit