advent_day_04.hs

advent_day_04.hs

module Main where

import Data.Hash.MD5

main = do
	input <- getContents
	let key = init input
	let firstResult = head . filter (isAdventCoin key 5) $ [1..]
	putStr "00000...: "
	print firstResult
	putStr "000000...: "
	print . head . filter (isAdventCoin key 6) $ [firstResult..]

isAdventCoin :: String -> Int -> Int -> Bool
isAdventCoin key size x =   take size (md5s $ Str $ key ++ show x) == replicate size '0'