containers-benchmark-1.0: src/Variants/Set_ByteString.hs

{-# LANGUAGE CPP, BangPatterns #-}

module Variants.Set_ByteString ( benchmark ) where

import qualified Container.Set as C
import qualified InputData.ByteString
#include "../Driver.inc.hs"

#include "../Benchmark/Set-like.inc.hs"

benchmark = do
  strlenarg : args <- getArgs
  let strlen = read strlenarg
  withArgs args $ driver (InputData.ByteString.asc strlen) (InputData.ByteString.rnd strlen)