hashabler-1.0: core.hs

{-# LANGUAGE BangPatterns #-}
module Main (main) where

import Data.Word
import Data.Hashabler


main = print $ siphash64 (1,2) (1::Word64, 2::Word32, 3::Word16, 4::Word8) 

{-
main = print $ (hash32Times 1000000000) (9999::Word32)

hash32Times :: Hashable a=> Int -> a -> Word32
{-# INLINE hash32Times #-}
hash32Times iters =
  \a->  let go !h !0 = h
            go !h !n = go (h `hash` a) (n-1)
         in fnv32 $ go fnvOffsetBasis32 iters 
         -}