Anonymous user
Hailstone sequence: Difference between revisions
Added Java
(Logo) |
(Added Java) |
||
Line 51:
100000 longest-hail</lang>
=={{header|Java}}==
{{works with|Java|1.5+}}
<lang java5>import java.util.LinkedList;
public class Hailstone {
public static void main(String[] args) {
System.out.println(hailstone(27));
int len = 0;
int num = 1;
for (int i = 1; i < 100000; i++) {
LinkedList<Long> hail = hailstone(i);
if (hail.size() > len) {
len = hail.size();
num = i;
}
}
System.out.println("Longest sequence at n = " + num + " with length " + len);
}
public static LinkedList<Long> hailstone(long n) {
LinkedList<Long> ans = new LinkedList<Long>();
ans.add(n);
if (n == 1) {
return ans;
}
if (n % 2 == 0) {
ans.addAll(hailstone(n / 2L));
} else {
ans.addAll(hailstone(n * 3 + 1));
}
return ans;
}
}</lang>
Output:
<pre>[27, 82, 41, 124, 62, 31, 94, 47, 142, 71, 214, 107, 322, 161, 484, 242, 121, 364, 182, 91, 274, 137, 412, 206, 103, 310, 155, 466, 233, 700, 350, 175, 526, 263, 790, 395, 1186, 593, 1780, 890, 445, 1336, 668, 334, 167, 502, 251, 754, 377, 1132, 566, 283, 850, 425, 1276, 638, 319, 958, 479, 1438, 719, 2158, 1079, 3238, 1619, 4858, 2429, 7288, 3644, 1822, 911, 2734, 1367, 4102, 2051, 6154, 3077, 9232, 4616, 2308, 1154, 577, 1732, 866, 433, 1300, 650, 325, 976, 488, 244, 122, 61, 184, 92, 46, 23, 70, 35, 106, 53, 160, 80, 40, 20, 10, 5, 16, 8, 4, 2, 1]
Longest sequence at n = 77031 with length 351</pre>
=={{header|Logo}}==
<lang logo>to hail.next :n
| |||