Haskell - 将结果定义为列表并返回null

Question

listX n = xs
if sum[x | x <- [2, 4..n-1], y <- [1..n-1], y `rem` x == 0] == y
    then insert y xs
    else return ()

好吧，第一次尝试使用Haskell，并且只有新手Java知识导致了一些问题。 我试图做的是将函数listX n的结果定义为名为xs的列表。 我的想法是程序会抓取从1到n的每个数字，并检查它是否等于其正除数的总和。 显然，我已经失败了，需要帮助，指向我尚未理解的概念非常感激。

Answer 1

你的主要问题似乎是你仍然认为命令式（使用insert ） - 也是()是值单位 - 你可能想写[] （空列表）而不是 - 但是这里的xs完全未定义所以你会必须解决这个问题（我不明白如何诚实）。

完美的数字

我认为我可以在那里看到一个基本的想法，我认为解决这个问题的最好方法是全面列表理解（因为你似乎很了解它们） - 这是一个应该工作的版本：

listX n = [ x | x <- [1..n], sum [ y | y <- [1..x-1], x `mod` y == 0] == x]

你可以看到我改变了一点 - 首先我检查所有x从1到n如果它们可能是完美的 - 我通过总结所有适当的除数并检查总和是否等于x （这是工作）来做到这一点在的sum [...] == x部分） -如果你不知道这个作品，因为你可以添加卫士列出内涵（的sum [..] == x筛选出的所有值x在那里，这是真正）。

一个更好的版本

为了使这个更具可读性（并将问题分开），我建议以这样的方式编写它：

properDivisors :: Integer -> [Integer]
properDivisors n = [ d | d <- [1..n-1], n `mod` d == 0]

isPerfect :: Integer -> Bool
isPerfect n = sum (properDivisors n) == n

perfectNumbers :: [Integer]
perfectNumbers = filter isPerfect [1..]

perfectNumbersUpTo :: Integer -> [Integer]
perfectNumbersUpTo n = takeWhile (<= n) perfectNumbers