|
（蟒蛇）
对于范围（99）内的n：
位=[0]*64
原始值=[0]*64
l=长。钻头长度（长（n））
t=n
对于范围（l）中的i：
位[i]=原始[i]=t&1
t>>=1
#对于范围（1，l-1）中的i:bits[i]^=orig[i-1]#A231550型
对于范围（1，l-1）中的i:bits[i]^=bits[i-1]#A231551
#对于范围（l-1）中的i:bits[i]^=orig[i+1]#A003188号
#对于范围（1，l）中的i:bits[l-1-i]^=位[l-i]#A006068号
t=0
对于范围（l）中的i:t+=位[i]<<i
打印str（t）+'，'，
（右）
maxrow<-8#可选择
b01<-0#b01将A010059号
a<-1
for（m in 0:maxrow）for（k in 0:（2^m-1））{
b01[2^（m+1）+k]<-b01[2^m+k]
a[2^（m+1）+k]<-a[2^m+k]+2^（m+b01[2^（m+1）+k]）
b01[2^（m+1）+2^m+k]<-1-b01[2^m+k]
a[2^（m+1）+2^m+k]<-a[2^m+k]+2^（m+b01[2^（m+1）+2^m+k]）
}
（a<-c（0，a））
#尤拉门迪2017年4月10日
（右）
maxblock<-8#可选择
a<-1:3
for（n在4:2^maxblock中）{
个<-其中（如整数（intToBits（n））==1）
nbit<-as。整数（intToBits（n））[1:尾（个，n=1）]
安比特<-nbit
for（i in 2:（长度（anbit）-1））
anbit[i]<-bitwXor（anbit[i]，anbit[i-1]）#？比特异或
a<-c（a，和（anbit*2^（0:（长度（anbit）-1）））
}
（a<-c（0，a））
#尤拉门迪2021年4月25日
| 