31 lines
324 B
Text
31 lines
324 B
Text
show(n)={
|
|
my(t=1);
|
|
while(n>1,
|
|
print1(n",");
|
|
n=if(n%2,
|
|
3*n+1
|
|
,
|
|
n/2
|
|
);
|
|
t++
|
|
);
|
|
print(1);
|
|
t
|
|
};
|
|
|
|
len(n)={
|
|
my(t=1);
|
|
while(n>1,
|
|
if(n%2,
|
|
t+=2;
|
|
n+=(n>>1)+1
|
|
,
|
|
t++;
|
|
n>>=1
|
|
)
|
|
);
|
|
t
|
|
};
|
|
|
|
show(27)
|
|
r=0;for(n=1,1e5,t=len(n);if(t>r,r=t;ra=n));print(ra"\t"r)
|