Crear cuenta
#include<dos.h>
#include<stdio.h>
#include<conio.h>
char far*q=(char far*)0xA0000000-4157;
int I[]={-25,-23,-14,-10,10,14,23,25};
int A[144],B[65],D[65],E[65],F[65];
int C[65][9],X[65],Y[65];
int a,b,c,d,x,y,N;
int G[]={9,1};
char far*Q;void casilla(int f){
Q=q+2560*Y[d]+8*X[d];
for(y=16;y--;Q+=296)
for(x=24;x--;*Q++=!*Q?f:*Q);
}void plasmar(int f){
printf("%c[H\n\t TOTAL= ",27);
if(N<1000) printf("%i.000",f);
else printf("%i.%03i.000",N/1000,f);
for(b=65;--b;)
gotoxy(X[d],Y[d=E[b]]),
printf("%2i",b),
casilla(G[b%2]);
while(y=kbhit())
if(getch()==27) a=c=1;
}int main(){
_AX=0x13;geninterrupt(0x10);
F[3]=F[12]=F[28]=F[33]=F[35]=1;
for(y=12;y--;)
for(x=12;x--;a++)
if(y<10&&y>1&&x<10&&x>1)
X[b+1]=b%8*3+9,
Y[b+1]=20-b/8*2,
A[a]=++b;
while(a--)
if(b=A[a])
for(B[b]=1,x=8;x--;)
if(c=A[a+I[x]])
if(c!=18) C[b][B[b]++]=c;
for(y=65;--y;)
for(x=B[y];--x>1;)
if(B[a=C[y][x]]>B[b=C[y][x-1]])
C[y][x-1]=a,
C[y][x++]=b,
x+=x<B[y];
b=1;a=y=0;
E[64]=18;
Inicio:D[b]=B[b];
E[++a]=c=b;
if(a>62&&F[b]&&++y>999)
plasmar(++N%1000);
Rutina:while(D[b=C[c][--D[c]]]);
if(b) goto Inicio;
if(c=E[--a]) goto Rutina;
if(getch()) return(0);
}
No hay comentarios