-- | Helper function to quickly benchmark the time to calculate a problem solution.
--
--   >>> tp 1
--   "123456789"
--   CPU time:   0.00s
tp :: ProblemID -> IO ()
tp = time . showSolution where
    showSolution :: ProblemID -> String
    showSolution n = fromMaybe ("Problem "++ show n ++ " not solved yet") (solveProblem n)
tp :: ProblemID -> IO ()
tp = time . showSolution where
    showSolution :: ProblemID -> String
    showSolution n = fromMaybe ("Problem "++ show n ++ " not solved yet") (solveProblem n)
tp = time . showSolution where
    showSolution :: ProblemID -> String
    showSolution n = fromMaybe ("Problem "++ show n ++ " not solved yet") (solveProblem n)