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

10
phase2.hs
View File

@@ -21,10 +21,10 @@ main = do
--putStrLn output
print $ zip rules (map (lift table) rules)
when (length args > 3) $
writeFile (args !! 3) $ output
writeFile (args !! 3) output
where
freqPats = map (ItemSet. Set.fromList .map Item) (map tail freqFileContent)
table = map (ItemSet. Set.fromList .map Item) tableFileContent
rules = extractRules threshold table freqPats
output = init $ foldr (\x old -> old++x++"\n") "" $ map show rules
freqPats = map ((ItemSet. Set.fromList .map Item) . tail) freqFileContent
table = map (ItemSet. Set.fromList .map Item) tableFileContent
rules = extractRules threshold table freqPats
output = init $ foldr ((\x old -> old++x++"\n").show) "" rules