位运算

//pascal代码 procedure swap(var a,b:longint); begin a:=a + b; b:=a - b; a:=a - b; end;

//pascal代码 procedure swap(var a,b:longint); begin a:=a xor b; b:=a xor b; a:=a xor b; end;

//pascal代码 var a:word; begin a:=100; a:=not a; writeln(a); end.

#include<stdio.h> int main() {     unsigned short a=100;     a=~a;     printf("%d\n",a);     return 0; }

#include<cstdio> #include<cstdlib> int main() {      int a,b;       scanf("%d %d",&a,&b);       a=a^b;       b=a^b;       a=a^b;       printf("%d %d\n",a,b); }

//pascal代码 var a,b:integer; begin a:=00; b:=01; write(a,' ',b,' '); a:=$FFFE; b:=$FFFF; write(a,' ',b,' '); a:=$7FFF; b:=$8000; writeln(a,' ',b); end.

//C/C++代码 #include<stdio.h> int main() { short int a,b; a=0x0000; b=0x0001; printf("%d%d",a,b); a=0xFFFE; b=0xFFFF; printf("%d%d",a,b); a=0x7FFF; b=0x8000; printf("%d%d\n",a,b); return0; }

//pascal代码 var i,x,c:longint; begin readln(x); c:=0; for i:=1 to 32 do begin c:=c + x and 1; x:=x shr 1; end; writeln( c and 1 ); end.

//C/C++代码 int  even_ones(unsigned int x) {       int c = 0;                      / / 记录1的个数      for (int i = 0; i < 32; i++)     {               c += x & 1;                   //判断最后一位数字是否为1                       x >>= 1;          }      return c & 1; }

//pascal代码 var x:longint; begin readln(x); x:=x xor (x shr 1); x:=x xor (x shr 2); x:=x xor (x shr 4); x:=x xor (x shr 8); x:=x xor (x shr 16); writeln(x and 1); end.

//c/c++代码 int  even_ones (unsigned int x) { x = x^(x >> 1); x = x^(x >> 2); x = x^(x >> 4); x = x^(x >> 8); x = x^(x >> 16); return x & 1; }

int nlz(unsigned x) { int n; if(x==0)return(32); n=1; if((x>>16)==0) { n=n+16;x=x<<16; } if((x>>24)==0) { n=n+8;x=x<<8; } if((x>>28)==0) { n=n+4;x=x<<4; } if((x>>30)==0) { n=n+2;x=x<<2; } n=n-(x>>31); returnn; }

//pascal代码 var n:dword; begin readln(n); writeln((n shr 16) or (n shl 16)); end.

//pascal代码 var x:dword; begin readln(x); x := (x and $55555555) shl 1 or (x and $AAAAAAAA) shr 1; x := (x and $33333333) shl 2 or (x and $CCCCCCCC) shr 2; x := (x and $0F0F0F0F) shl 4 or (x and $F0F0F0F0) shr 4; x := (x and $00FF00FF) shl 8 or (x and $FF00FF00) shr 8; x := (x and $0000FFFF) shl 16 or (x and $FFFF0000) shr 16; writeln(x); end.

//pascal代码 procedure test(row,ld,rd:longint); var pos,p:longint; begin if row<>upperlim then  begin pos:=upperlim and not (row or ld or rd); while pos<>0 do begin p:=pos and -pos; pos:=pos-p; test(row+p,(ld+p)shl 1,(rd+p)shr 1); end; end else inc(sum); end;

//pascal代码 var x,y,m,n,u:longint; begin readln(m,n); for x:=0 to 1 shl m-1 do  begin u:=(x xor (x shr 1)) shl n; //输出数的左边是一个m位的Gray码 for y:=0 to 1 shl n-1 do write(u or (y xor (y shr 1)),' '); //并上一个n位Gray码 writeln; end; end.

//pascal代码 var n,ans,x,i:longint; begin read(n); ans:=0; for i:=1 to n do begin read(x); ans:=ans xor x; end; writeln(ans); end.

//pascal代码  const BigPrime=3214567; MaxStep=6; type pointer=^rec; rec=record v:longint; step:integer; next:pointer; end; var total:longint; hash:array[0..BigPrime-1]of pointer; q:array[1..400000]of rec; function update(a:longint;p:integer):longint; begin a:=a xor (1 shl p); i f p mod 5<>0 then a:=a xor (1 shl (p-1)); if (p+1) mod 5<>0 then a:=a xor (1 shl (p+1)); if p<20 then a:=a xor (1 shl (p+5)); if p>4 then a:=a xor (1 shl (p-5)); exit(a); end; function find(a:longint;step:integer):boolean; var now:pointer; begin now:=hash[a mod BigPrime]; while now<>nil do begin if now^.v=a then exit(true); now:=now^.next; end; new(now); now^.v:=a; now^.step:=step; now^.next:=hash[a mod BigPrime]; hash[a mod BigPrime]:=now; total:=total+1; exit(false); end; procedure solve; var p:integer; close:longint=0; open:longint=1; begin find(1 shl 25-1,0); q[1].v:=1 shl 25-1; q[1].step:=0; repeat inc(close); for p:=0 to 24 do if not find(update(q[close].v,p),q[close].step+1) and (q[close].step+1<MaxStep) then  begin open:=open+1; q[open].v:=update(q[close].v,p); q[open].step:=q[close].step+1; end; until close>=open; end; procedure print(a:longint); var now:pointer; begin now:=hash[a mod BigPrime]; while now<>nil do begin if now^.v=a then begin writeln(now^.step); exit; end; now:=now^.next; end; writeln(-1); end; procedure main; var ch:char; i,j,n:integer; t:longint; begin readln(n); for i:=1 to n do begin t:=0; for j:=1 to 25 do begin read(ch); t:=t*2+ord(ch)-48; if j mod 5=0 then readln; end; print(t); if i<n then readln; end; end; begin solve; main; end.

//pascal代码 program garden; const dir:array[1..4,1..2]of integer= （（1,0),(0,1),(-1,0),(0,-1)); type arr=array[1..10]of integer; rec=record x,y:integer; end; var map:array[0..11,0..11]of boolean; a ns:array[1..100]of rec; n,m,max:integer; step:integer=1; state:arr; procedure readp; var i,j:integer; ch:char; begin readln(m,n); for i:=1 to n do begin for j:=1 to m do begin read(ch); map[i,j]:=(ch='1'); inc(max,ord( map[i,j] )); end; readln; end; end; procedure writep; var i:integer; begin  for i:=1 to step do writeln( '(',ans.x,',',ans.y,')' ); end; procedure solve(x,y:integer); var tx,ty,d:integer; step_cache:integer; state_cache:arr; begin step_cache:=step; state_cache:=state; if step=max then begin writep; exit; end; for d:=1 to 4 do begin tx:=x+dir[d,1]; ty:=y+dir[d,2]; while map[tx,ty] and ( not state[tx] and(1 shl (ty-1) )>0) do begin inc(step); ans[step].x:=tx; ans[step].y:=ty; state[tx]:=state[tx] or ( 1 shl (ty-1) ); tx:=tx+dir[d,1]; ty:=ty+dir[d,2]; end; tx:=tx-dir[d,1]; ty:=ty-dir[d,2]; if (tx<>x) or (ty<>y) then solve(tx,ty); state:=state_cache; step:=step_cache; end; end; {====main====} var i,j:integer; begin assign(input,'garden.txt'); reset(input); assign(output,'garden.out'); rewrite(output); readp; for i:=1 to n do for j:=1 to m do if map[i,j] then begin a ns[1].x:=i; ans[1].y:=j; state:=1 shl (j-1); solve(i,j); state:=0; end; close(input); close(output); end.

//pascal代码 program clocks; const move:array[1..9] of longint=(18911232,19136512,2363904,16810048,2134536,262657,36936,73,4617); var a,b,c,d,e,f,g,h,i,x,y,r,s,t:integer; k,l:longint; ak,bk:array[1..27] of integer; begin  assign(input,'clocks.txt'); reset(input); assign(output,'clocks.out'); rewrite(output); l:=0; for x:= 1 to 3 do begin for y:= 1 to 3 do begin read(r); if r=12 then r:=0 else r:=r div 3; l:=l*8+r; end; readln; end; fillchar(ak,27,0); t:=27; d:=1; e:=1; h:=1; i:=1; { for a:= 0 to 3 do for b:= 0 to 3 do for c:= 0 to 3 do for d:= 0 to 3 do for e:= 0 to 3 do for f:= 0 to 3 do for g:= 0 to 3 do for h:= 0 to 3 do for i:= 0 to 3 do begin  } k:=l; s:=0; r:=a; while r>0 do begin dec(r); k:=(k+move[1]) and 57521883; inc(s); bk[s]:=1; end; r:=b; while r>0 do begin dec(r); k:=(k+move[2]) and 57521883; inc(s); bk[s]:=2; end; r:=c; while r>0 do begin dec(r); k:=(k+move[3]) and 57521883; inc(s); b k[s]:=3; end; r:=d; while r>0 do begin dec(r); k:=(k+move[4]) and 57521883; inc(s); bk[s]:=4; end; r:=e; while r>0 do begin dec(r); k:=(k+move[5]) and 57521883; inc(s); bk[s]:=5; end; r:=f; while r>0 do begin dec(r); k:=(k+move[6]) and 57521883; inc(s); bk[s]:=6; end; r:=g; while r>0 do begin dec(r); k:=(k+move[7]) and 57521883; inc(s); bk[s]:=7; end; r:=h; while r>0 do begin dec(r); k:=(k+move[8]) and 57521883; inc(s); bk[s]:=8; end; r:=i; while r>0 do begin dec(r); k:=(k+move[9]) and 57521883; inc(s); bk[s]:=9; end; if k=0 then begin if s<t then begin t:=s; for x:= 1 to t do ak[x]:=bk[x]; end else if s=t then begin x:=0; while ak[x]=bk[x] do inc(x); if ak[x]>bk[x] then begin for y:= 1 to t do ak[y]:=bk[y]; end; end; end; for i:= 1 to t do write(ak[i],' '); close(input); close(output); end.