nice way

Umbc331Assignment3 · Oct 7, 2014 · 9ca6c2d · 9ca6c2d
1 parent 0908e5a
commit 9ca6c2d
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/alternative.hs b/alternative.hs
@@ -0,0 +1,8 @@
+combinations :: Int -> [a] -> [[a]]
+combinations 0 _ = [[]]
+combinations n xs = [ xs !! i : x | i <- [0..(length xs)-1] 
+                                  , x <- combinations (n-1) (drop (i+1) xs) ]
+
+capture :: Ord => [a] -> [b] -> Int
+capture xs ys = length [x | x<-cs, elem x ys]
+