Anonymous user
Juggler sequence: Difference between revisions
→{{header|Mathematica}} / {{header|Wolfram Language}}
Line 681:
=={{header|Mathematica}} / {{header|Wolfram Language}}==
<lang Mathematica>phrase = "Rosetta Code Juggler Sequence";
next[n_Integer] := If[EvenQ@n, Floor[Sqrt[n]], Floor[n^(3/2)]]
stats[n_Integer] :=
Block[{data = Most@NestWhileList[next, n, # > 1 &], mx},
mx = First@Ordering[data, -1];
{n, Length[data], data[[mx]], mx - 1}]
{TableForm[Table[stats@n, {n, 40, 59}],
TableHeadings -> {None, {"n", "length", "max", "max pos"}}]</lang>
{{out}}<pre>
n length max max pos
40 3 40 0
41 5 262 1
42 3 42 0
43 6 4710 2
44 3 44 0
45 6 5222 2
46 3 46 0
47 6 322 1
48 3 48 0
49 11 6352 2
50 5 50 0
51 11 364 1
52 5 52 0
53 11 7554 2
54 5 54 0
55 11 8210 2
56 5 56 0
57 5 430 1
58 5 58 0
59 11 946636 3</pre>
=={{header|Nim}}==
| |||