位運算

鎖定

//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.