有趣的益智

Question

你好學習哈斯克爾我想出了在鍛鍊的網絡，它要求創建一個列表中給出以下描述的方式整數：

例如，如果整數是3，那麼應該生成一個列表它包含以下內容：

[[3],[1,2],[2,1],[1,1,1]] 

注

3=3 
1+2=3 
2+1=3 
1+1+1=3 

如果整數是2，那麼這將是：

[[2],[1,1]] 

我想不出一個實現這個的方法，那麼你能否給我提供任何提示？我相信，我必須使用列表理解，但我想不出什麼比這再

Answer 1

始終與類型簽名開始：

sums :: Int -> [[Int]] 

現在，讓我們想想遞歸。

1. 什麼是基本情況？你能想到一個答案微不足道的數字嗎？
2. 比方說，你已經實現了你的功能，它適用於10歲以下的所有數字，所以sums 9例如返回正確的答案。你將如何實施sums 10？

，直到你已經回答了這些問題，不要與實現細節（如列表理解與filter和map）理會自己。另一個提示：Haskell程序員喜歡炫耀並創建小點自由函數，但不要讓它讓你困惑。讓事情發揮作用是重要的。最好是有一個工作，但有點「醜陋」的解決方案，而不是盯着屏幕尋找一個優雅的。

祝你好運！

Answer 2

看起來有點像分區列表。谷歌搜索有一點變成了這個

http://www.haskell.org/pipermail/beginners/2011-April/006832.html

partitions [] = [[]] 
partitions (x:xs) = [[x]:p | p <- partitions xs] 
       ++ [(x:ys):yss | (ys:yss) <- partitions xs] 

產生這樣的

*Main> partitions "abc" 
[["a","b","c"],["a","bc"],["ab","c"],["abc"]] 

現在你需要做的就是內部列表的長度

map (map length) (partitions "abc") 
[[1,1,1],[1,2],[2,1],[3]] 

你也可以改變分區直接給你結果

partitions' 0 = [[]] 
partitions' n = [1:p | p <- partitions' (n-1)] 
      ++ [(1+ys):yss | (ys:yss) <- partitions' (n-1)]