changed calculation to only return maximum DCB (those that cannot be

expanded), restricted DCB module export to reasonable functions
2014-03-16 18:26:45 +01:00
parent 5360e972fe
commit 77f8447cc4
3 changed files with 40 additions and 8 deletions
--- a/src/Main.hs
+++ b/src/Main.hs
@ -158,12 +158,18 @@ doCalculation adj attr p =
                                outputGraph $ L.sort $ doAll graph_ adj_ attr dens omega delta
                        ]
                where
+                        -- don't print out seeds
+                        doAll [] _ _ _ _ _ = []
+                        doAll gs a b c d e = maxDCB (step gs a b c d e) a b c d e
+                        
+                {-- commented out: all solutions, not only maximum DCB
                        -- don't print out seeds
                        doAll [] _ _ _ _ _ = []
                        doAll gs a b c d e = doAll' (step gs a b c d e) a b c d e
                        -- but everything in the following recursive calls
                        doAll' [] _ _ _ _ _ = []
                        doAll' gs a b c d e = gs ++ doAll' (step gs a b c d e) a b c d e
+                --}

 -- | gets the length of the 'Left a'.
 --