From 43ff26bb2f00d7decceeb34832bf659d9178797f Mon Sep 17 00:00:00 2001
From: Camil Staps <info@camilstaps.nl>
Date: Mon, 2 Mar 2015 14:04:48 +0100
Subject: [PATCH] Removed unnecessary functions

---
 week4/camil/StdSet.icl | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/week4/camil/StdSet.icl b/week4/camil/StdSet.icl
index 01c854b..651c869 100644
--- a/week4/camil/StdSet.icl
+++ b/week4/camil/StdSet.icl
@@ -61,10 +61,4 @@ where (==) s1 s2 = isSubset s1 s2 && isSubset s2 s1
 
 powerSet		:: (Set a)         -> Set (Set a)
 powerSet [] = [zero]
-powerSet [e:es] = map ((++) [e]) (powerSet es) ++ powerSet es
-
-powerSet` :: (Set a) -> [Int]
-powerSet` s = [0 .. 2^(nrOfElements s) - 1]
-
-takeMod :: (Set a) Int -> Set a
-takeMod s m = [e \\ e <- s & k <- [0..] | k rem m == 0]
+powerSet [e:es] = map ((++) [e]) (powerSet es) ++ powerSet es
\ No newline at end of file
-- 
2.20.1