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