day5Impl' :: [String] -> String
day5Impl' = show . head . dropWhile (not . isFullyDecrypted) . scanl decryptStep (PartiallyDecrypted Map.empty)
day5Impl' :: [String] -> String
day5Impl' = show . head . dropWhile (not . isFullyDecrypted) . scanl decryptStep (PartiallyDecrypted Map.empty)
day5Impl' = show . head . dropWhile (not . isFullyDecrypted) . scanl decryptStep (PartiallyDecrypted Map.empty)