Password.purs

foreign import md5 :: String -> String
infixl 1 applyFlipped as |>

findPassword :: String -> String
findPassword doorId =
  aux 0 Nil
  where
    aux :: Int -> List Char -> String
    aux k cs =
      case (doorId <> (show k)) |> md5 |> String.toCharArray |> List.fromFoldable of
        '0':'0':'0':'0':'0':c:_ ->
          c : cs
          |> if k == 7 then
            (Array.fromFoldable >>> Array.reverse >>> String.fromCharArray)
          else
            aux (k+1)
        _ ->
          aux (k+1) cs