19 lines
425 B
Plaintext
19 lines
425 B
Plaintext
INSTALL "HAILSTONE"
|
|
|
|
DIM freq%(351)
|
|
FOR number% = 2 TO 100000
|
|
seqlen% = FNhailstone(number%)
|
|
freq%(seqlen%) += 1
|
|
NEXT
|
|
max% = 0
|
|
FOR i% = 0 TO 351
|
|
IF freq%(i%) > max% THEN
|
|
max% = freq%(i%)
|
|
mostcommon% = i%
|
|
ENDIF
|
|
NEXT
|
|
|
|
PRINT "The most common sequence length is " ; mostcommon%
|
|
PRINT "It occurs " ; max% " times"
|
|
END
|