From a468e946e38610438e364ba17f53bbd5a6843305 Mon Sep 17 00:00:00 2001 From: IGI-111 Date: Sun, 5 Apr 2015 19:28:57 +0200 Subject: [PATCH] fixed trace messages --- FrequentPatterns.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/FrequentPatterns.hs b/FrequentPatterns.hs index 09e0ba1..891a14d 100644 --- a/FrequentPatterns.hs +++ b/FrequentPatterns.hs @@ -3,7 +3,7 @@ module FrequentPatterns ( ) where import DataModel import qualified Data.Set as Set -import Debug.Trace (traceShow) +import Debug.Trace (trace) import qualified Data.List as List semiUnion :: ItemSet -> ItemSet -> ItemSet @@ -22,7 +22,7 @@ semiUnion (ItemSet set1) (ItemSet set2) = ItemSet $ -- generate the next level in a bottom-up route generateNextLevel :: [ItemSet] -> [ItemSet] -generateNextLevel level = traceShow ("Computing level " ++ show (isSize (head level))) $ +generateNextLevel level = trace ("Computing level " ++ show (isSize (head level))) $ foldr (\value old -> generate value ++ old) [] level where generate value = takeWhile (/= empty) (foldr (\x old -> semiUnion value x : old) [] (tail $ List.dropWhile (/= value) level)) @@ -35,5 +35,6 @@ singletons table = Set.toList $ foldr union (Set.fromList []) table where frequentPatterns :: Frequency -> [ItemSet] -> [[ItemSet]] frequentPatterns thresh table = until (\x -> [] == head x) (\x -> filterByFrequency (generateNextLevel (head x)) : x) [firstLevel] where - firstLevel = filterByFrequency $ map (\x -> ItemSet $ Set.fromList [x]) (singletons table) + firstLevel = filterByFrequency $ map (\x -> ItemSet $ Set.fromList [x]) $ + trace "Generated Singletons" (singletons table) filterByFrequency = filter (\x -> frequency table x >= thresh)