RosettaCodeData/Task/Pythagorean-triples/Mathematica/pythagorean-triples-4.math

3 lines
177 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
ppTiming[n_] := With[{comp = Timing@primitivePythag@(10^n)},{HoldForm[10^n], comp[[2]], Round@comp[[1]]}];
{{"n", "Primitives", "Timing(s)"}}~Join~(ppTiming /@ Range@9) // Grid