cond vs elem test

gistfile1.hs

    import System.Environment (getArgs)
    import Control.Monad (liftM)
    import Criterion.Main
    
    
    testElemS :: String -> Bool
    testElemS = flip elem ["a", "b", "c", "d", "e"]
    
    testCondS :: String -> Bool
    testCondS x = (x == "a" || x == "b" || x == "c" || x == "d" || x == "e")
    
    testElem :: Char -> Bool
    testElem = flip elem ['a', 'b', 'c', 'd', 'e']
    
    testCond :: Char -> Bool
    testCond x = (x == 'a' || x == 'b' || x == 'c' || x == 'd' || x == 'e')
    
    main = defaultMain [
            bgroup "cond String" [ bench "a" $ nf testCondS "a"
                                 , bench "e" $ nf testCondS "e"
                                 , bench "z" $ nf testCondS "z"
                                 ]
          , bgroup "elem String" [ bench "a" $ nf testElemS "a"
                                 , bench "e" $ nf testElemS "e"
                                 , bench "z" $ nf testElemS "z"
                                 ]
          , bgroup "cond Char"   [ bench "a" $ nf testCond 'a'
                                 , bench "e" $ nf testCond 'e'
                                 , bench "z" $ nf testCond 'z'
                                 ]
          , bgroup "elem Char"   [ bench "a" $ nf testElem 'a'
                                 , bench "e" $ nf testElem 'e'
                                 , bench "z" $ nf testElem 'z'
                                 ]
                       ]