|
黄体脂酮素
|
(PARI)列表a(nn)=我的(列表=列表(),k=1);而(k<nn,my(s=“”,n=数字(k)[1]);对于(j=1,n,s=concat(s,Str(k+j-1)););listput(列表,eval);k+=n;);my(w=应用(x->数字(x)[1],列表));my(list=list(),last=w[1],nb=1);对于(i=2,#w,如果(w[i]==last,nb++,listput(list,nb));最后=w[i];nb=1;););Vec(列表,#list-1)\\米歇尔·马库斯2023年10月15日
(Python)
从itertools导入islice
a、 c=1,0
而(c:=c+1):
产量c
c、 r=divmod((w:=((t:=int(str(a:=a+int(stra(a)[0]))[0]
a=w-r
|