8 lines
246 B
Text
8 lines
246 B
Text
require '~temp/hailseq.ijs'
|
|
9!:29]1
|
|
9!:27'main 0'
|
|
main=:3 :0
|
|
smoutput 'Finding most frequent hailstone sequence length for'
|
|
smoutput 'Hailstone sequences for whole numbers less than 100000:'
|
|
smoutput {:{.\:~ (#/.~,.~.) #@hailseq }.i.1e5
|
|
)
|