Hashtables benchmark

HashTables.hs

{-# LANGUAGE GeneralizedNewtypeDeriving #-}

import           Data.Hashable
import qualified Data.HashTable.IO as H

newtype HInt = HInt Int
  deriving (Num, Eq, Ord)

instance Hashable HInt where
  hashWithSalt _ (HInt k) = k

main :: IO ()
main = do
  h <- H.fromListWithSizeHint n [(HInt x,x) | x <- [1..n]] :: IO (H.CuckooHashTable HInt Int)
  print =<< H.lookup h 100
  where
    n = 10^(7 :: Int)