hashabler-1.3.0: core.hs

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

import Data.Word
import qualified Data.ByteString.Char8 as C
import Data.Hashabler

-- neat; ghc fully evaluates this hash at compile time before core:
-- main = print $ siphash64 (SipKey 1 2) (1::Word64, 2::Word32, 3::Word16, 4::Word8)

main =
    C.getLine >>= print . siphash64 (SipKey 1 2)

{-
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 
         -}