Xawirses/GitMining
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

changed indent method according to ghc standard

Browse Source
This commit is contained in:
IGI-111
2015-04-05 15:45:51 +02:00
parent 24d0dcba96
commit 32309510a8
4 changed files with 43 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
DataModel.hs
View File

@@ -17,14 +17,18 @@ instance Show Item where
data ItemSet = ItemSet (Set Item) deriving (Eq, Ord) data ItemSet = ItemSet (Set Item) deriving (Eq, Ord)
instance Show ItemSet where instance Show ItemSet where
show (ItemSet x) = foldr ((\y old -> y ++ " " ++ old).show) "" (Set.toList x) show (ItemSet x) =
foldr ((\y old -> y ++ " " ++ old).show) "" (Set.toList x)
instance Freq ItemSet where instance Freq ItemSet where
frequency table (ItemSet set) = setCount / fromIntegral (length table) where frequency table (ItemSet set) =
setCount / fromIntegral (length table) where
setCount = fromIntegral $ count table (ItemSet set) setCount = fromIntegral $ count table (ItemSet set)
count :: [ItemSet] -> ItemSet -> Count count :: [ItemSet] -> ItemSet -> Count
count table (ItemSet set) = length (filter (\(ItemSet row) -> set `Set.isSubsetOf` row) table) count table (ItemSet set) =
length (filter isSuperSet table) where
isSuperset (ItemSet row) = set `Set.isSubsetOf` row
data Rule = Rule ItemSet ItemSet deriving (Eq) data Rule = Rule ItemSet ItemSet deriving (Eq)