//---------------------------------------------------------------------------

#pragma hdrstop

//---------------------------------------------------------------------------

#pragma argsused
#include <stdio.h>
#include <stdlib.h>
void inicializarGusanos(int **&mapa, int **&colisiones, int *M, int *N)
   {
      FILE *F=fopen("input.txt", "r");
      fscanf(F,"%d%d",M, N);
      mapa=new int*[*M];
      colisiones=new int*[*M];
      for(int i=0;i<*M;i++)
         {
            mapa[i]=new int[*N];
            colisiones[i]=new int[*N];
         }
      for(int i=0;i<*M;i++)
         for(int j=0;j<*N;j++)
            {
               fscanf(F,"%d",&mapa[i][j]);
               colisiones[i][j]=0;
            }
      fclose(F);
   }

bool esCabeza(int **mapa, int M, int N, int i, int j, int tipo)
   {
      switch(tipo)
         {
            case 1:
               return((i>=M-1) || mapa[i+1][j]!=mapa[i][j]);
            case 2:
               return((j<=0) || mapa[i][j-1]!=mapa[i][j]);
            case 3:
               return((i<=0) || mapa[i-1][j]!=mapa[i][j]);
            case 4:
               return((j>=N-1) || mapa[i][j+1]!=mapa[i][j]);
         }
      return false;
   }

bool esCola(int **mapa, int M, int N, int i, int j, int tipo)
   {
      switch(tipo)
         {
            case 1:
               return esCabeza(mapa, M, N, i, j, 3);
            case 2:
               return esCabeza(mapa, M, N, i, j, 4);
            case 3:
               return esCabeza(mapa, M, N, i, j, 1);
            case 4:
               return esCabeza(mapa, M, N, i, j, 2);
         }
      return false;
   }

bool avanzarParte(int **mapa, int **colisiones, int M, int N, int i, int j, int tipo)
   {
      if(mapa[i][j]!=tipo)
         return false;
      switch(tipo)
         {
            case 1://hacia abajo
               if (esCabeza(mapa, M, N, i, j, 1) && (i<M-1))
                  {
                     if(mapa[i+1][j]==0 && colisiones[i+1][j]==0)//simplemente avanzar
                        mapa[i+1][j]=tipo;
                     else//hay colision
                        {
                           colisiones[i+1][j]=1;
                           mapa[i+1][j]=0;
                        }
                  }
               if(esCola(mapa, M, N, i, j, 1))
                  mapa[i][j]=0;
            break;
            case 2://hacia la izquierda
               if (esCabeza(mapa, M, N, i, j, 2) && (j>0))
                  {
                     if(mapa[i][j-1]==0 && colisiones[i][j-1]==0)//simplemente avanzar
                        mapa[i][j-1]=tipo;
                     else//hay colision
                        {
                           colisiones[i][j-1]=1;
                           mapa[i][j-1]=0;
                        }
                  }
               if(esCola(mapa, M, N, i, j, 2))
                  mapa[i][j]=0;
            break;
            case 3://hacia arriba
               if (esCabeza(mapa, M, N, i, j, 3) && (i>0))
                  {
                     if(mapa[i-1][j]==0 && colisiones[i-1][j]==0)//simplemente avanzar
                        mapa[i-1][j]=tipo;
                     else//hay colision
                        {
                           colisiones[i-1][j]=1;
                           mapa[i-1][j]=0;
                        }
                  }
               if(esCola(mapa, M, N, i, j, 3))
                  mapa[i][j]=0;
            break;
            case 4://hacia la derecha
               if (esCabeza(mapa, M, N, i, j, 4) && (j<N-1))
                  {
                     if(mapa[i][j+1]==0 && colisiones[i][j+1]==0)//simplemente avanzar
                        mapa[i][j+1]=tipo;
                     else//hay colision
                        {
                           colisiones[i][j+1]=1;
                           mapa[i][j+1]=0;
                        }
                  }
               if(esCola(mapa, M, N, i, j, 4))
                  mapa[i][j]=0;
            break;
         }
      return true;
   }

void imprimirResultados(int **mapa, int **colisiones, int M, int N)
   {
      FILE *F=fopen("output.txt","a");
      for(int i=0;i<M;i++)
         {
            for(int j=0;j<N;j++)
               fprintf(F,"%c ",mapa[i][j]==0?(colisiones[i][j]?'*':'0'):'0'+mapa[i][j]);
            fprintf(F,"\n");
         }
      fprintf(F,"\n");
      fclose(F);
   }

bool avanzarGusanos(int **mapa, int **colisiones, int M, int N, int tipo)
   {
      bool modificado=false;
      if(tipo==2 || tipo==3)
         for(int i=0;i<M;i++)
            for(int j=0;j<N;j++)
               {
                  if(modificado)
                     modificado=modificado;
                  modificado=avanzarParte(mapa, colisiones, M, N, i, j, tipo)||modificado;
               }
      else if(tipo==1 || tipo==4)//recorrer al revez
         for(int i=M-1;i>=0;i--)
            for(int j=N-1;j>=0;j--)
               {
                  if(modificado)
                     modificado=modificado;
                  modificado=avanzarParte(mapa, colisiones, M, N, i, j, tipo)||modificado;
               }
      return modificado;
   }
void generarCaso(int M, int N)
   {
      FILE *F=fopen("input.txt","w");
      fprintf(F,"%d %d\n",M, N);
      for(int i=0;i<M;i++)
         {
            for(int j=0;j<N;j++)
               fprintf(F,"%d ",random(5));
            fprintf(F,"\n");
         }
      fclose(F);
   }

void evaluar(int caso)
   {
      bool evaluado, veredicto;
      char *nombreSolOficial;
      char *nombreEval;
      char *nombreCaso;
      char *nombreSolAlumno;

      nombreSolOficial="output .txt";
      nombreEval="eval .txt";
      nombreCaso="input .txt";
      nombreSolAlumno="res .txt";

      nombreSolOficial[6]=caso+'0';
      nombreEval[4]=caso+'0';
      nombreCaso[5]=caso+'0';
      nombreSolAlumno[3]=caso+'0';

      FILE *entrada=fopen(nombreCaso,"r"),
           *salida=fopen(nombreSolAlumno,"r"),
           *solucion=fopen(nombreSolOficial,"r"),
           *evaluacion=fopen(nombreEval,"w");
      int M, N;
      fscanf(entrada,"%d %d",&M, &N);
      evaluado=false;
      veredicto=true;
      for(int i=0;i<M && !evaluado;i++)
         {
            char a,b;
            for(int j=0;j<N && !evaluado;j++)
               {
                  fscanf(salida,"%c",&a);
                  fscanf(solucion,"%c",&b);
                  while(a!='0' && a!='*')
                     fscanf(salida,"%c",&a);
                  while(b!='0' && b!='*')
                     fscanf(solucion,"%c",&b);
                  if(a!=b)//solucion incorrecta
                     {
                        evaluado=true;
                        veredicto=false;
                     }
               }
         }
      fprintf(evaluacion,"%s",veredicto?"Correcto":"Incorrecto");
      fclose(entrada);
      fclose(salida);
      fclose(solucion);
      fclose(evaluacion);
   }

void main(void)
{
/*   int **mapa, **colisiones, M, N;
   generarCaso(70,70);
   inicializarGusanos(mapa, colisiones, &M, &N);
   bool hayMasGusanos;
   do
      {
         hayMasGusanos=false;
         for(int i=1;i<=4;i++)
            hayMasGusanos=(avanzarGusanos(mapa, colisiones, M, N, i)||hayMasGusanos);
      }
   while(hayMasGusanos);
   imprimirResultados(mapa, colisiones, M, N);
   //************************************
   for(int i=0;i<M;i++)
      {
         delete[] mapa[i];
         delete[] colisiones[i];
      }
   delete[] mapa;
   delete[] colisiones;*/

   evaluar(5);
   evaluar(7);

   return;
}
//---------------------------------------------------------------------------