rule90:=proc(seed,n)选项记住:local sl,i:if(0=n)then(seed)else sl:=floor_log2(seed+1);添加(((bit_i(rule90(seed,n-1),i)+位_i(rule 90(seed-1),i-2))mod 2)*(2^i),i=0..(2*n)+sl)fi:end:
rule150:=proc(seed,n)选项记住:local sl,i:if(0=n)then(seed)else sl:=floor_log2(seed+1);
添加((bit_i(rule150(seed,n-1),i)+bit_i(rule150(seed,n-1),i-1)+bit_i(rule150(seed,n-1),i-2))mod 2)*(2^i),i=0..((2*n)+sl))fi:结束:
#第90条和第150条相互交换:
返回(总和('bit_i(rule150(rule90(i,q),p),(2*(p+q)))*(2^i)','i'=0..(2^((2x(p+q))+1))-1));
结束时间:
|