|
MAPLE公司
|
A175597号:=proc(n)本地dgs、odig、runl、thisr、i;dgs:=转换(n,基数,2);odig:=-1;runl:=nops(dgs)+1;此值:=0;对于i从1到nops(dgs),做d:=op(i,dgs;如果i=1,那么这个r:=1;否则,如果d<>odig,那么如果thisr<runl,那么runl:=thisr;结束条件:;这个:=1;否则thisr:=thisr+1;结束条件:;结束条件:;odig:=d;结束操作:如果thisr<runl,则runl:=thisr;结束条件:;返回runl;结束进程:seq(A175597号(n) ,n=1..130)#R.J.马塔尔2010年7月26日
|