18 lines
393 B
AutoHotkey
18 lines
393 B
AutoHotkey
#NoEnv
|
|
#Include %A_ScriptDir%\hailstone.ahk
|
|
SetBatchLines -1
|
|
|
|
col := Object(), highestCount := 0
|
|
|
|
Loop 100000
|
|
{
|
|
length := hailstone(A_Index).MaxIndex()
|
|
if not col[length]
|
|
col[length] := 0
|
|
col[length]++
|
|
}
|
|
for length, count in col
|
|
if (count > highestCount)
|
|
highestCount := count, highestN := length
|
|
MsgBox % "the most common length was " highestN "; it occurred " highestCount " times."
|