m27

1 files changed, 2 insertions, 1 deletions

diff --git a/h27.hs b/h27.hs
index 6666203..8c0dab1 100644
--- a/h27.hs
+++ b/h27.hs
@@ -5,7 +5,8 @@ combination _ [] = []
 combination c (x:xs) = (map ((x:).fst &&& snd) (combination (c-1) xs)) ++ (map (fst &&& (x:).snd) (combination c xs))
 
 group :: [Int] -> [a] -> [[[a]]]
-group [n] xs = map ((:[]).fst) (combination n xs)
+group [] _ = [[]]
+-- group [n] xs = map ((:[]).fst) (combination n xs)
 group (n:ns) xs = concatMap (\(comb,rest) -> map (comb:) (group ns rest)) (combination n xs)
 
 group' [] = const [[]]