GHCi 中定义的函数中的非详尽模式

Question

我正在尝试编写一个 Erasthosthenes 筛选函数，该函数为用户提供从 2 到他的上限的所有素数。所以我写了这段代码：

main = do
putStrLn "Upper Limit"
g <- readLn
let sieve [] = []
let sieve (p:xs) = p : sieve [x | x <- xs, x `mod` p /= 0]
let primes = sieve [2..g]
print primes

代码编译并为我提供了正确的解决方案，但我在解决方案结束时收到此异常： *** 例外：功能筛中的非详尽模式 所以我检查了哪些模式不匹配。

warning: [-Wincomplete-patterns]
    Pattern match(es) are non-exhaustive
    In an equation for `sieve': Patterns not matched: (_:_)

warning: [-Wincomplete-patterns]
    Pattern match(es) are non-exhaustive
    In an equation for `sieve': Patterns not matched: []

我不明白，因为我给了let sieve [] = [] 我认为 Haskell 中的 _ 表示任何变量，那么模式 (:) 是什么意思？ 任何帮助将不胜感激。

Answer 1

问题在于您在两个单独的let 语句中定义了sieve。因此，Haskell 编译器认为您定义了两个独立的sieve 函数。因此第一个sieve 缺少(_:_) 模式，而后者缺少[] 模式。

如果您稍后使用sieve，Haskell 编译器将链接到最近的编译器，因此let primes = sieve [2..g] 中的后者（因此调用sieve）只会知道第二个 em> sieve 定义（因此会在列表末尾出错）。

您可以使用以下let 语句解决此问题：

let { sieve [] = [] ; sieve (p:xs) = p : sieve [x | x <- xs, x `mod` p /= 0] }