#include<dos.h>
#include<time.h>
#include<stdio.h>
#include<conio.h>
int main()
{
_AX=0x13;
geninterrupt(0x10);
time_t t;
char far*Q=(char far*)0xA0000000L;
char E,D[]="987654321 ";
int a,d,f,h,x,y,c=81;
int n[3][81],N[27][9];
int e[225],g[3],i[81],C[81],X[81],Y[81];
int b[]={5,0,2,0,0,0,0,0,0,
0,0,0,0,6,0,9,0,0,
0,0,0,0,0,0,0,0,0,
0,4,1,0,0,7,0,0,0,
0,0,0,5,0,0,0,6,0,
0,0,5,0,0,2,0,0,0,
0,9,7,0,8,5,0,0,0,
0,0,0,0,0,0,0,3,5,
0,5,4,0,0,0,0,9,6};
for(d=225;d--;)
e[d]=d/15*320+d%15+321;
while(c--){X[c]=12+c%9*2;
Y[c]=4+c/9*2;
printf("%c[%u;%uf%c",27,Y[c],X[c],D[b[c]=9-b[c]]);
n[0][c]=c/27*9+c%27/9*3;
n[1][c]=c%9/3*9+c%3*3+1;
n[2][c]=c/27*9+c%9/3*3+2;
i[c]=x=8*X[c]+2560*Y[c]-4173;
for(d=16,a=0;a<=!(c%27/9+c%3)+!c;a++,d*=3,x-=321)
for(f=0;f<=a;f++)
for(h=d+f,y=0;y<=h;y++)
*(Q+x+y)=*(Q+x+320*y)=*(Q+x+y+320*h)=*(Q+x+320*y+h)=7;
}
Inicio:
for(c=81;c--;){for(y=3;y--;)
for(a=9;a--;)
N[n[y][c]][a]=0;
if(b[c]<9) for(d=225;d--;)
*(Q+i[c]+e[d])-=*(Q+i[c]+e[d])==1;
}
g[0]=g[1]=g[2]=E=c=0;
while(kbhit()) getch();
while(E!=13){for(d=225;d--;)
*(Q+i[c]+e[d])+=!*(Q+i[c]+e[d]);
if(E<48||E>57) E=getch();
else{printf("%c[%u;%uf%c",27,Y[c],X[c],D[b[c]=57-E]);
E=77;}
if(E==27) return 0;
for(d=225;d--;)
*(Q+i[c]+e[d])-=*(Q+i[c]+e[d])==1;
c+=E==77&&c<80;
c-=E==75&&c>0;
c+=9*(E==80&&c<72);
c-=9*(E==72&&c>8);
if(E==32) E=48;
}
for(a=h=c=81;c--;)
if(b[c]<9){for(y=3;y--;)
if(N[n[y][c]][b[c]]) break;
if(y<0){h=--a;
g[c/27]++;
for(y=3;y--;)
N[n[y][c]][b[c]]=1;
for(d=225;d--;)
*(Q+i[c]+e[d])+=!*(Q+i[c]+e[d]);
}
else printf("%c[%u;%uf%c",27,Y[c],X[c],D[b[c]=9]);
}
while(f=a){for(x=y=2;y--;)
if(g[y]<g[x]) x=y;
for(g[x]=d=27;d--;)
if(b[c=27*x+d]>8) C[--a]=c;
}
t=time(NULL);
while(f+1)
if(f<h){a=b[c=C[f]];
if(a<9) for(y=3;y--;)
N[n[y][c]][a]=0;
while(a--){for(y=3;y--;)
if(N[n[y][c]][a]) break;
if(y<0) break;
}
if(a<0) a=b[C[f--]]=9;
else for(b[c]=a,f++,y=3;y--;)
N[n[y][c]][a]=1;
printf("%c[%u;%uf%c",27,Y[c],X[c],D[a]);
}
else{printf("%c[23;11f%.f%c ",27,difftime(time(NULL)+1,t),34);
printf("Pulse una tecla\r");
while(kbhit()) getch();
if(getch()==27) return 0;
printf("%c[2K",27);
f--;
}
goto Inicio;
}