Skip to content

Instantly share code, notes, and snippets.

@sbenhaim
Last active December 16, 2015 03:27
Show Gist options
  • Save sbenhaim/4d37f04bf583ec4c2a26 to your computer and use it in GitHub Desktop.
Save sbenhaim/4d37f04bf583ec4c2a26 to your computer and use it in GitHub Desktop.
Advent of Code: 4
import qualified Data.Hash.MD5 as MD5
main = do
print $ head $ [ n | n <- [0..] , (==) "000000" $ take 6 $ (MD5.md5s . MD5.Str) ("bgvyzdsv" ++ (show n)) ]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment