哈斯克尔，返回一个元组

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) 

绝对没有保证，这是做正确的事情，我半睡半醒。 ;-)