{--
--- Day 4: The Ideal Stocking Stuffer ---

Santa needs help mining some AdventCoins (very similar to bitcoins) to use as gifts for all the economically forward-thinking little girls and boys.

To do this, he needs to find MD5 hashes which, in hexadecimal, start with at least five zeroes. The input to the MD5 hash is some secret key (your puzzle input, given below) followed by a number in decimal. To mine AdventCoins, you must find Santa the lowest positive number (no leading zeroes: 1, 2, 3, ...) that produces such a hash.

For example:

    If your secret key is abcdef, the answer is 609043, because the MD5 hash of abcdef609043 starts with five zeroes (000001dbbfa...), and it is the lowest such number to do so.
    If your secret key is pqrstuv, the lowest number it combines with to make an MD5 hash starting with five zeroes is 1048970; that is, the MD5 hash of pqrstuv1048970 looks like 000006136ef....

--- Part Two ---

Now find one that starts with six zeroes.
--}

{-# LANGUAGE OverloadedStrings #-}

module Day4
    ( answers
    ) where

import Data.Digest.Pure.MD5
import qualified Data.ByteString.Lazy.Char8 as B

secretKey :: String
secretKey = "bgvyzdsv"

findInt :: [Int] -> String -> Int -> Int
findInt (x:xs) key zeros = let hashKey = secretKey ++ show x
                               hash    = B.pack . show $ md5 (B.pack hashKey)
                               zs      = B.pack . take zeros $ repeat '0'
                           in if B.isPrefixOf zs hash
                              then x
                              else findInt xs key zeros
mine :: Int -> Int
mine = findInt [0..] secretKey

answers :: IO ()
answers = do
    putStrLn $ "day 4 part 1 = " ++ show (mine 5)
    putStrLn $ "day 4 part 2 = " ++ show (mine 6)
