ans:=[];
对于从0到100的n,做lis:=[];t1:=换算(n,基数,2);L1:=nops(t1);
输出1:=1;c: =0;
对于i从1到L1 do
如果out1=1且t1[i]=1,则out1:=0;c: =c+1;
elif out1=0且t1[i]=1,则c:=c+1;
elif out1=1且t1[i]=0,则c:=c;
elif输出1=0且t1[i]=0,则lis:=[c,op(lis)];out1:=1;c: =0;
fi;
如果i=L1且c>0,则lis:=[c,op(lis)];fi;
日期:
ans:=[op(ans),a];
日期:
ans;
|