Profiling from Mathematica
How can I easily get fractions of timing for each nested function?
Consider a nested call like this:
Total[DigitCount[Mod[(2^10000) + 1, Prime]]]
I don't want to assign each parameter to a variable and wrap
Timing around it, but looking for a way to wrap the hole expression with
Timing and get fractions of total time for each function.