import Colouring
import Control.Monad(liftM)

main = do
	putStrLn "Means of 100 runs each"
	putStr "G(100,0.4) : "
	print =<< (liftM mean $ sampleIndSetColour 100 $ randomGraph 100 0.4)
	putStr "G(100,0.5) : "
	print =<< (liftM mean $ sampleIndSetColour 100 $ randomGraph 100 0.5)
	putStr "G(100,0.6) : "
	print =<< (liftM mean $ sampleIndSetColour 100 $ randomGraph 100 0.6)
	putStr "G6(100,0.4) : "
	print =<< (liftM mean $ sampleIndSetColour 100 $ (noEdgesMod 6 . randomGraph 100 0.4))
	putStr "G6(100,0.5) : "
	print =<< (liftM mean $ sampleIndSetColour 100 $ (noEdgesMod 6 . randomGraph 100 0.5))
	putStr "G6(100,0.6) : "
	print =<< (liftM mean $ sampleIndSetColour 100 $ (noEdgesMod 6 . randomGraph 100 0.6))