20 lines
396 B
Text
20 lines
396 B
Text
/* hailstone2.wren */
|
|
|
|
import "/hailstone" for Hailstone
|
|
|
|
var freq = {}
|
|
for (i in 1...100000) {
|
|
var len = Hailstone.call(i).count
|
|
var f = freq[len]
|
|
freq[len] = f ? f + 1 : 1
|
|
}
|
|
var mk = 0
|
|
var mv = 0
|
|
for (k in freq.keys) {
|
|
var v = freq[k]
|
|
if (v > mv) {
|
|
mk = k
|
|
mv = v
|
|
}
|
|
}
|
|
System.print("The Hailstone length returned most is %(mk), which occurs %(mv) times.")
|