定义整数列表的函数，使它们的和为n

Question

我正在尝试使用Haskell解决以下问题：

问题

定义函数sumToLists :: Int -> [[Int]] ，给定自然数n ，该n返回所有正数列表，使它们的和为n 。

我对这个问题很困惑，也许使用递归可以得出一个解决方案，但是我不知道如何解决这个问题。 任何建议将不胜感激

Answer 1

sumToLists 0 = [[]]
sumToLists n = [ i: xs | i <- [1..n], xs <- sumToLists (n - i) ] 

您需要将0用作特殊情况，因为默认值将返回[]而不是[[]] 。