import AATree.AATree
import Criterion.Main
import Shuffle
import Control.DeepSeq
import Data.List
import Sort.Sort

main = do
    xs <- shuffle ([1..5000]::[Int])
    defaultMain [
        bench "sort" (nf sort xs),
        bench "msort" (nf msort xs),
        bench "aasort" (nf aasort xs),
        bench "head-sort" (nf (head.sort) xs),
        bench "head-msort" (nf (head.msort) xs),
        bench "head-aasort" (nf (head.aasort) xs)]