9 lines
246 B
Text
9 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
|
||
|
|
)
|