phase 2 output is formatted and only the 10 best rules by lift are written

2015-04-10 12:34:13 +00:00
parent ddffd9a8f1
commit 810a48184c
2 changed files with 6 additions and 6 deletions
--- a/DataModel.hs
+++ b/DataModel.hs
@@ -42,7 +42,7 @@ empty = ItemSet (Set.fromList [])
 data Rule = Rule ItemSet ItemSet deriving (Eq)

 instance Show Rule where
-    show (Rule a b) = show a ++ "->" ++ show b
+    show (Rule a b) = show a ++ "," ++ show b

 instance Freq Rule where
    frequency table (Rule (ItemSet set1) (ItemSet set2)) = frequency table $