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

implemented phase 2

Browse Source
This commit is contained in:
IGI-111
2015-04-05 17:55:16 +02:00
parent 32309510a8
commit c108e32c89
5 changed files with 83 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
phase1.hs
View File

@@ -13,6 +13,6 @@ main = do
let threshold = read $ last args
file <- readFile filename
case parseCSV file of
Left _ -> error "Could not parse out.csv"
Right val -> mapM_ (\x -> putStrLn (show x ++ "(" ++ show (count table x) ++ ")")) (concat (frequentPatterns threshold table)) where
table = map (ItemSet. Set.fromList .map Item) val
Left _ -> error "Could not parse out.csv"
Right val -> mapM_ (\x -> putStrLn (show x ++ "(" ++ show (count table x) ++ ")")) (concat (frequentPatterns threshold table)) where
table = map (ItemSet. Set.fromList .map Item) val