Решение японских кроссвордов

include <conio.h>
#include <stdlib.h>
#include <stdio.h>
#include <windows.h>
      int Nat;
      int **Line;
      int *cell,*LenBlocks;
      int LenOf;
      bool *can_one,*can_zero;
      int keys;
      
bool Analyze(int block,int start);
main()
{
      int i,j,l,m,YSz,XSz;
      char inp[255];
      int k,**pict,*N,count=0,FirstN,SecondN;
      printf("Enter the file name and resolution: ");
      gets(inp);
      
      FILE *Input;
      Input=fopen(inp,"rb");
      fscanf(Input, "%d",&YSz);
      fscanf (Input,"%d",&XSz);
 
      Line=(int**)malloc((YSz+XSz)*sizeof(int*));
      N=(int*)malloc((YSz+XSz)*sizeof(int));
      LenBlocks=(int*)malloc((YSz+XSz)*sizeof(int));
      pict=(int**)malloc(YSz*sizeof(int*));
 
      for(i=0;i<YSz+XSz;i++)
      {   
          fscanf(Input,"%d",&N[i]);
               LenBlocks[i]=0;   
               Line[i]=(int*)malloc(N[i]*sizeof(int));  
              for(j=0;j<N[i];j++)
                 {
                 fscanf(Input,"%d",&Line[i][j]);
                 LenBlocks[i]=LenBlocks[i]+Line[i][j];
                 
                 }
      }
 
      printf("\n");
 
       for(i=0;i<YSz;i++)
       {pict[i]=(int*)malloc(XSz*sizeof(int));
       for(j=0;j<XSz;j++)
       pict[i][j]=2;}
       
 
system("pause");
system("cls");
k=0;
do{
for(keys=0;keys<YSz+XSz;keys++) 
                                  
{
   if(keys<YSz)
   LenOf=XSz;
  else
   LenOf=YSz;
      can_one=(bool*)malloc(LenOf*sizeof(bool));
      can_zero=(bool*)malloc(LenOf*sizeof(bool));
      cell=(int*)malloc(LenOf*sizeof(int));
 
   if(keys<YSz)                 
   for(j=0;j<LenOf;j++)
 cell[j]=pict[keys][j];
 
 else 
 for(j=0;j<LenOf;j++)
 cell[j]=pict[j][keys-LenOf];
 
Nat=N[keys]-1;//÷èñëî áëîêîâ
 
                   for(j=0;j<LenOf;j++)
                   can_one[j]=can_zero[j]=false;
 
m=0; 
                   for(l=0;l<LenOf;l++)
                   if(cell[l]==1)
                   m++;
                   if(m==LenBlocks[keys])
                   for(l=0;l<LenOf;l++)
                   if(cell[l]!=1)
                   cell[l]=0;  
                     
for(j=0;j<LenOf-LenBlocks[keys]+1;j++) //âû÷èòàòü îáùóþ äëèííó áëîêîâ
Analyze(0,j);//íîìåð ñòðîêè, ïîçèöèÿ â ñòðîêå
 
                 for(l=0;l<LenOf;l++)
                   {
                      if(can_one[l]&&!can_zero[l])
                        cell[l]=1;
                          if(!can_one[l]&&can_zero[l])
                           cell[l]=0;
                  } 
                    m=0; 
                   for(l=0;l<LenOf;l++)
                   if(cell[l]==1)
                   m++;
                   if(m==LenBlocks[keys])
                   for(l=0;l<LenOf;l++)
                   if(cell[l]!=1)
                   cell[l]=0;  
                     
 
               if(keys<YSz)               
              {for(j=0;j<LenOf;j++)
              if(pict[keys][j]!=1 && pict[keys][j]!=0)
                  pict[keys][j]=cell[j];}
                  else
              for(j=0;j<LenOf;j++)
              if(pict[j][keys-LenOf]!=1 && pict[j][keys-LenOf]!=0)    
              pict[j][keys-LenOf]=cell[j];
 
 
}  
count=0;
     for(l=0;l<YSz;l++)
     for(j=0;j<XSz;j++)
      if(pict[l][j]==2)
      count++;
          k++;  
          if(k%2==0)
          FirstN=count;
          else
          SecondN=count;
          if(FirstN==SecondN)      
          {printf("Have error\n\n");break;}
          
  }while(count!=0);
  for(l=0;l<YSz;l++)
     {for(j=0;j<XSz;j++)
     {if(pict[l][j]==2)
     printf("?");
     if(pict[l][j]==0)
     printf(".");
     if(pict[l][j]==1)
     printf("X");
 
      }
       printf("\n");
       
       }   
 
      system("pause"); 
      free(can_one);
      free(cell);
      free(N); 
      free(LenBlocks);  
      for(i=0;i<YSz;i++)
      {free(pict[i]);
      free(Line[i]);}
      free(pict); 
      free(Line);
      
}
 
bool Analyze(int block, int start)
{bool res;
 int i,j,k;
 
     for(i=start;i<start+Line[keys][block];i++)
         if(cell[i]==0)
          return false;
          if(block<Nat)
       {//àíàëèç
          res=false;
          for(j=start+Line[keys][block]+1;j<LenOf-Line[keys][block+1]+1;j++)
          {
               if(cell[j-1]==1)
               break;
               if(Analyze(block+1,j))
               {
                    res=true;
                    for(k=start;k<start+Line[keys][block];k++)
                    {can_one[k]=true;
                    can_zero[start-1]=true;}
                    for(k=start+Line[keys][block];k<j;k++)
                    can_zero[k]=true;
               }
          }
          return res;
     }
     else
     {for(i=start+Line[keys][block];i<LenOf;i++)
     if(cell[i]==1)
     return false;
     for(i=start;i<start+Line[keys][block]+1;i++)
     {can_one[i]=true;
      can_zero[start-1]=true;}
     for(i=start+Line[keys][block];i<LenOf;i++)
    can_zero[i]=true;
     return true;}
    
}