Hailstone sequence: Difference between revisions
Content deleted Content added
No edit summary |
|||
Line 4,801: | Line 4,801: | ||
Print "counter:";counter |
Print "counter:";counter |
||
m=0 |
m=0 |
||
For i=2 to 99999 { |
|||
m1=max.data(count(i), m) |
m1=max.data(count(i), m) |
||
if m1<>m then m=m1: im=i |
if m1<>m then m=m1: im=i |
||
Line 4,816: | Line 4,816: | ||
Number 77031 has then longest hailstone sequence of length 351 |
Number 77031 has then longest hailstone sequence of length 351 |
||
</pre > |
</pre > |
||
=={{header|Maple}}== |
=={{header|Maple}}== |
||
Define the procedure: |
Define the procedure: |