justecorruptio/2048.c

## 2048.c
M[16],X=16,W,k;main(){T(system("stty cbreak")
);puts(W&1?"WIN":"LOSE");}K[]={2,3,1};s(f,d,i
,j,l,P){for(i=4;i--;)for(j=k=l=0;k<4;)j<4?P=M
[w(d,i,j++)],W|=P>>11,l*P&&(f?M[w(d,i,k)]=l<<
(l==P):0,k++),l=l?P?l-P?P:0:l:P:(f?M[w(d,i,k)
]=l:0,++k,W|=2*!l,l=0);}w(d,i,j){return d?w(d
-1,j,3-i):4*i+j;}T(i){for(i=X+rand()%X;M[i%X]
*i;i--);i?M[i%X]=2<<rand()%2:0;for(W=i=0;i<4;
)s(0,i++);for(i=X,puts("\e[2J\e[H");i--;i%4||
puts(""))printf(M[i]?"%4d|":"    |",M[i]);W-2
||read(0,&k,3)|T(s (1,K[(k>>X)%4]));}//[2048]
	M[16],X=16,W,k;main(){T(system("stty cbreak")
	);puts(W&1?"WIN":"LOSE");}K[]={2,3,1};s(f,d,i
	,j,l,P){for(i=4;i--;)for(j=k=l=0;k<4;)j<4?P=M
	[w(d,i,j++)],W\|=P>>11,l*P&&(f?M[w(d,i,k)]=l<<
	(l==P):0,k++),l=l?P?l-P?P:0:l:P:(f?M[w(d,i,k)
	]=l:0,++k,W\|=2*!l,l=0);}w(d,i,j){return d?w(d
	-1,j,3-i):4*i+j;}T(i){for(i=X+rand()%X;M[i%X]
	*i;i--);i?M[i%X]=2<<rand()%2:0;for(W=i=0;i<4;
	)s(0,i++);for(i=X,puts("\e[2J\e[H");i--;i%4\|\|
	puts(""))printf(M[i]?"%4d\|":" \|",M[i]);W-2
	\|\|read(0,&k,3)\|T(s (1,K[(k>>X)%4]));}//[2048]