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

linted files

Browse Source
This commit is contained in:
IGI-111
2015-04-08 13:39:59 +00:00
parent ae5b95c69d
commit ddffd9a8f1
4 changed files with 16 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
ExtractRules.hs
View File

@@ -9,15 +9,13 @@ import Data.Map(Map)
extractRules :: Confidence -> [ItemSet] -> [ItemSet] -> [Rule]
extractRules threshold table patterns = filter (\x -> threshold <= confidence table x) rules where
rules = Map.foldrWithKey (\k v old -> ruleFromSubset v k : old) [] subsets
subsets = foldr (\x old -> insertMultiple (filteredPowerset x) x old) Map.empty patterns
subsets = foldr (\x -> insertMultiple (filteredPowerset x) x) Map.empty patterns
filteredPowerset (ItemSet set) = map (ItemSet . Set.fromList) $
filter (\val -> val /= Set.toList set && val /= []) $ powerset $ Set.toList set
ruleFromSubset :: ItemSet -> ItemSet -> Rule
ruleFromSubset set subset = Rule subset (difference set subset)
insertMultiple :: Ord k => [k] -> a -> Map k a -> Map k a
insertMultiple keys value m = foldr (\x old -> Map.insert x value old) m keys