Skip to content

Instantly share code, notes, and snippets.

@drchaos

drchaos/FNV1a_BS.hs

Created May 3, 2023 16:21
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save drchaos/a820125861f682c8991eaebe18d8cf04 to your computer and use it in GitHub Desktop.
Save drchaos/a820125861f682c8991eaebe18d8cf04 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
FNV1a_BS.hs
hashBS :: ByteString -> Word32
hashBS = B.foldl fnv1aHash32Base fnvOffsetBasis32
hashBS_unpack :: ByteString -> Word32
hashBS_unpack = foldl' fnv1aHash32Base fnvOffsetBasis32 . B.unpack
hashBS_С :: ByteString -> Word32
hashBS_С bs = B.unsafeDupablePerformIO $!
B.unsafeUseAsCStringLen bs (\ (ptr, l) -> fnv1a_32 (castPtr ptr) l)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment