3 lines
121 B
Text
3 lines
121 B
Text
<< hailstone.m;
|
|
Print["The most common hailstone length is ",
|
|
Commonest[Length@*hailstone /@ Range[99999]][[1]], "."];
|