Skip to content

Instantly share code, notes, and snippets.

@MgaMPKAy

MgaMPKAy/DJBX33A.hs

Created March 6, 2012 16:12
Show Gist options
  • Save MgaMPKAy/1987121 to your computer and use it in GitHub Desktop.
Save MgaMPKAy/1987121 to your computer and use it in GitHub Desktop.
Download ZIP
DJBX33A
Raw
DJBX33A.hs
module DJBX33A where
import Data.Char (ord)
djbx33a :: String -> Int
djbx33a str = foldl (\a c -> a * 33 + ord c) 5381 str
djbx :: Int -> Int -> String -> Int
djbx times init str = foldl (\a c -> a * times + ord c) init str
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment