diff options
| author | Camil Staps | 2015-03-02 14:04:48 +0100 |
|---|---|---|
| committer | Camil Staps | 2015-03-02 14:04:48 +0100 |
| commit | 43ff26bb2f00d7decceeb34832bf659d9178797f (patch) | |
| tree | 2826e8639a914a160c8cc0dd1b653a19e9d34e4c | |
| parent | 6.3 (diff) | |
Removed unnecessary functions
| -rw-r--r-- | week4/camil/StdSet.icl | 8 |
1 files changed, 1 insertions, 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 |