我刚开始自学Haskell。这段代码旨在完成质因数分解:
divides :: Integer -> Integer -> Bool
divides small big = (big `mod` small == 0)
lowestDivisor :: Integer -> Integer
lowestDivisor n = lowestDivisorHelper 2 n
where lowestDivisorHelper m n
| (m `divides` n) = m -- these should belong to lowestDivisorHelper
| otherwise = lowestDivisorHelper (m+1) n
primeFactors :: Integer -> [Integer]
primeFactors 1 = []
primeFactors n
| n < 1 = error "Must be positive"
| otherwise = let m = lowestDivisor n
in m:primeFactors (n/m)
在有注释的那一行我遇到了解析错误。我认为我的问题可能是因为lowestDivisorHelper
有守卫条件,但编译器不知道这些守卫条件是属于lowestDivisorHelper
还是lowestDivisor
。我该如何解决这个问题?
我应该补充说明,为了隐藏实现细节,我不想将辅助函数定义在顶层。导入文件时不应该将辅助函数一起带过去。