main :: IO ()
main = defaultMain 
    [ bgroup "Hungarian Algorithm Benchmarks"
        [ bench "C version (40 * 50)" $ nf (\x -> hungarian x 40 50) sample
        , bench "Pure Haskell (40 * 50)" $ nf hungarianMethodDouble sampleArray
        , bench "C version (200 * 200)" $ nf (\x -> hungarian x 200 200) sample'
        , bench "Pure Haskell (200 * 200)" $ nf hungarianMethodDouble sampleArray'
        ]
    ]
main :: IO ()
main = defaultMain 
    [ bgroup "Hungarian Algorithm Benchmarks"
        [ bench "C version (40 * 50)" $ nf (\x -> hungarian x 40 50) sample
        , bench "Pure Haskell (40 * 50)" $ nf hungarianMethodDouble sampleArray
        , bench "C version (200 * 200)" $ nf (\x -> hungarian x 200 200) sample'
        , bench "Pure Haskell (200 * 200)" $ nf hungarianMethodDouble sampleArray'
        ]
    ]
main = defaultMain 
    [ bgroup "Hungarian Algorithm Benchmarks"
        [ bench "C version (40 * 50)" $ nf (\x -> hungarian x 40 50) sample
        , bench "Pure Haskell (40 * 50)" $ nf hungarianMethodDouble sampleArray
        , bench "C version (200 * 200)" $ nf (\x -> hungarian x 200 200) sample'
        , bench "Pure Haskell (200 * 200)" $ nf hungarianMethodDouble sampleArray'
        ]
    ]