%I#17 2023年2月12日06:06:20

%S 3,1,2,1,4,3,1,3,12,1,1,1,3,3,14,12,1,4,1,4,3,1,2,1,1,3,1,3，

%温度2,1,4,3,1,1,3,1,2,1,1,3,1,3,1,1,3,1,3,2,1,4,1,2,1,3,3,1,1,1,2,1，

%U 4,3,1,1,3,1,2,1,1,3,3,1,1,4,1,2,1,4,3

%N Golay-Rudin-Shapiro序列A020985中的运行长度。

%C a（2*n）=第n次1s运行的长度；a（2*n+1）=第n-1次运行的长度。

%H Reinhard Zumkeller，n表，n=0..10000的a（n）</a>

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/Rudin-ShapiroSequence.html“>鲁丁·夏皮罗序列</a>

%o（哈斯克尔）

%o导入数据。列表（组）

%o a203531 n=a203531_list！！n个

%o a203531_list=地图长度$group a020985_list

%o（Python）

%o从itertools导入计数，islice

%o def A203531_gen（）：#术语生成器

%o c，a=0，1

%计数（0）中n的o：

%o如果（n&（n>>1））.bit_count（）&1^a:

%o c+=1

%o其他：

%o产量c

%o c=1

%o a ^=1

%o A293531_list=list（岛屿（A203531_gen（），30））#_Chai Wah Wu_，2023年2月11日

%Y参考A020985。

%K nonn公司

%0、1

%A _Reinhard Zumkeller，2012年1月2日