#include<dos.h>
#include<time.h>
#include<stdio.h>
#include<conio.h>
char far*q,far*Q[81]={(char far*)0xA0000000-4157};
char E,n[3][81],N[27][10],D[]=" 123456789";
char B[][9]={"5.2......",
"....6.9..",
".........",
".41..7...",
"...5...6.",
"..5..2...",
".97.85...",
".......35",
".54....96"};
int b[81],i[255],g[3],C[81],X[81],Y[81];
int a,d,f,x,y,c=80,A[]={3,3,3,3,3,3,3,3,3,0};
void cursor(F){
for(d=225;d--;)
if(*(q=Q[c]+i[d])==F) *q=!*q;
}
void cifra(F){
gotoxy(X[c],Y[c]);
printf("%c",F);
}
int main(){
_AX=0x13;
geninterrupt(0x10);
time_t t;
for(d=255;d--;i[d]=d/15*320+d%15+321);
do{
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;
X[c]=12+c%9*2;
Y[c]=4+c/9*2;
Q[c]=Q[0]+8*X[c]+2560*Y[c];
if(b[c]=B[c/9][c%9]-46) cifra(D[b[c]-=2]);
for(f=144,a=3;a--;f/=3)
if(!a||!c||a==1&&c%27/9+c%3<1)
for(q=Q[c]-321*a,d=a+1;d--;)
for(x=y=d+f,y++;y--;)
*(q+y)=*(q+320*y)=*(q+y+320*x)=*(q+320*y+x)=7;
}while(c--);
Inicio:
while(E=c=f=kbhit()) getch();
do{
if(E==77&&c<80) c++;
if(E==75&&c) c--;
if(E==80&&c<72) c+=9;
if(E==72&&c>8) c-=9;
if(E==32) E=48;
cursor(0);
if(E>47&&E<58) cifra(D[b[c]=E-48]),
E=77;
else while(!(E=getch()));
if(E==27) return 0;
cursor(1);
}while(E!=13);
for(x=c=81;c--;)
if(b[c]){
for(y=3;y--;)
if(N[n[y][c]][b[c]]) break;
if(y>=0) cifra(D[b[c]=0]);
else for(f++,g[c/27]++,cursor(0),y=3;y--;)
N[n[y][c]][b[c]]++;
}
while(x>f){
for(a=y=2;y--;)
if(g[y]<g[a]) a=y;
for(g[a]=d=27;d--;)
if(!b[c=27*a+d]) C[--x]=c;
}
t=time(NULL)-1;
while(f>=x)
if(f<81){
if(a=b[c=C[f]])
for(y=3;y--;N[n[y][c]][a]--);
do for(y=A[a++];y--;)
if(N[n[y][c]][a]) break;
while(y>=0);
if(a>9) f--,
a=0;
else for(f++,y=3;y--;N[n[y][c]][a]++);
cifra(D[b[c]=a]);
}
else{
gotoxy(11,23);
printf("%.f%c ",difftime(time(NULL),t),34);
printf("Pulse una tecla\r");
while(kbhit()) getch();
if(getch()==27) return 0;
printf("%c[2K",27);
f--;
}
for(c=81;c--;)
if(b[c]) for(cursor(1),y=3;y--;g[y]=0)
N[n[y][c]][b[c]]--;
goto Inicio;
}