「转」2048最短版。

原链接：https://gist.github.com/justecorruptio/9967738

代码：

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[2Je[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]