3 lines
198 B
Text
3 lines
198 B
Text
pTiming[n_] := With[{comp = Timing@pythag@(10^n)},
|
|
{HoldForm[10^n], comp[[2, 1]], comp[[2, 2]], Round@comp[[1]]}];
|
|
{{"n", "Triples", "Primitives", "Timing(s)"}}~Join~(pTiming /@ Range@5) // Grid
|