哈斯克爾，返回一個元組

Question

我有這樣的代碼，這是組合的公式，而重複：

combinaciones :: Int ->[Int]->[[Int]] 
combinaciones 0 _ = [[]] 
combinaciones _ [] = [] 
combinaciones k (x:xs) = [x:ys | ys <- combinaciones (k - 1) xs] ++ combinaciones k xs 

combinationsN :: Int ->Int->[[Int]] 
combinationsN n k = combinaciones k [1..n] 

我的問題是，我想返回一個列表的列表與列表中的列表中的號碼，一對夫婦：（[[Int]]，Int）。我怎樣才能做到這一點？

Answer 1

下面是簡單的版本 - 通過計數可能更有效地做到這一點，但這是我可以在凌晨1點提出的。

編輯：好的，讓我試着寫智能版本。

combinaciones :: Int -> [Int] -> ([[Int]], Int) 
combinaciones 0 _ = ([[]], 1) 
combinaciones _ [] = ([], 0) 
combinaciones k (x:xs) = 
    let (first, firstN) = combinaciones (k - 1) xs 
     (second, secondN) = combinaciones k xs 
    in ([x:ys | ys <- first] ++ second, firstN + secondN) 

絕對沒有保證，這是做正確的事情，我半睡半醒。 ;-)