30 lines
494 B
Text
30 lines
494 B
Text
|
proc juggler a &cnt &max &maxidx .
|
||
|
|
max = a
|
||
|
|
maxidx = 0
|
||
|
|
cnt = 0
|
||
|
|
while a <> 1
|
||
|
|
if a mod 2 = 0
|
||
|
|
a = floor sqrt a
|
||
|
|
else
|
||
|
|
a = floor (a * sqrt a)
|
||
|
|
.
|
||
|
|
cnt += 1
|
||
|
|
if a > max
|
||
|
|
max = a
|
||
|
|
maxidx = cnt
|
||
|
|
.
|
||
|
|
.
|
||
|
|
.
|
||
|
|
numfmt 6 0
|
||
|
|
print " n l[n] h[n] i[n]"
|
||
|
|
print "-----------------------------"
|
||
|
|
for n = 20 to 39
|
||
|
|
juggler n cnt max maxidx
|
||
|
|
numfmt 3 0
|
||
|
|
write n & cnt
|
||
|
|
numfmt 16 0
|
||
|
|
write max
|
||
|
|
numfmt 5 0
|
||
|
|
print maxidx
|
||
|
|
.
|