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

{-# LANGUAGE CPP, BangPatterns #-}

module Variants.Map_String ( benchmark ) where

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

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

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