Anonymous user
Juggler sequence: Difference between revisions
→{{header|Mathematica}} / {{header|Wolfram Language}}
Line 680:
</pre>
=={{header|Mathematica}} / {{header|Wolfram Language}}==
<lang Mathematica>
stats[n_Integer] :=
Line 689 ⟶ 688:
{n, Length[data], data[[mx]], mx - 1}]
{TableForm[Table[stats@n, {n,
TableHeadings -> {None, {"n", "length", "max", "max pos"}}]</lang>
{{out}}<pre>
n length max max pos
37 17 24906114455136 8
39 14 233046 3
</pre>
=={{header|Nim}}==
|