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

{-# LANGUAGE CPP, BangPatterns #-}

module Variants.Set_String ( benchmark ) where

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

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

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