#include <stdio.h>
#include <stdlib.h>
#include <conio.h>
#include <time.h>
#include <ctype.h>

#define TC 20
#define TP 10
#define TM 3

int perfeito[TC];

int cromossomo[TP][TC];

int desempenho[500];
int ultimoIndex = 0;

//Contador de geracoes
int geracao = 1;

void escrever()
{
    FILE *arq;
    int teste,i;
    arq = fopen("arquivo.txt","wb");
    if(arq != NULL)
    {
       for(i=0;i<sizeof(desempenho);i++)
       {
         teste = fwrite(desempenho[i],sizeof(desempenho),1,arq);
          if (teste !=1)
           {
              printf("erro ao salvar");
              getch();
            }
          }
            fclose(arq);
       }
          else
          {
             printf("erro ao abrir arquivo");
          }
}

void mutacao(int pai)
{
    for (int i=0; i<TP; i++)
    {
        if (i == pai) continue;
        for (int j=0; j<TC; j++)
        {
            if (rand()%100 < TM)
            {
                cromossomo[i][j] = rand()%4;
            }
        }
    }

    //Printar ponpulacao
    for (int k=0; k<TP; k++)
    {
        for (int m=0; m<TC; m++)
        {
            if (m==0 && k==0) printf("\n");
            printf(" %d", cromossomo[k][m]);
            if (m == TC - 1) printf("\n");
        }
    }

    //verificar();
}


void crossover(int pai)
{

    for (int i=0; i<TC; i++)
    {
        for (int j=0; j<TP; j++)
        {
            if (j==pai) continue;

            int valor1 = cromossomo[pai][i];
            int valor2 = cromossomo[j][i];

            cromossomo[j][i] = rand()%2?valor1:valor2;
        }
    }

    mutacao(pai);
    fitness();
}

void fitness()
{
    int pontuacao[TP];
    int maiorPontuacao;
    int pai;

    for (int i=0; i<TP; i++)
    {
        pontuacao[i] = 0;
        for (int j=0; j<TC; j++)
        {
           if (cromossomo[i][j] == perfeito[j]) pontuacao[i]++;
        }
    }

    maiorPontuacao = pontuacao[0];

    for (int k=0; k<TP; k++)
    {
        if (pontuacao[k] >= maiorPontuacao)
        {
            maiorPontuacao = pontuacao[k];
            pai = k;
        }
    }

    printf("Melhor cromossomo.:");
    for (int b=0; b<TC; b++)
    {
        printf(" %d", cromossomo[pai][b]);
    }
    geracao++;
    printf("\t %d \t %d", pontuacao[pai], geracao);

    if (pontuacao[pai] == TC)
    {
        printf("\n\nCriterio de parada atingido!!!");
        //escrever();
        getch();
    }
    else
    {
        desempenho[ultimoIndex] = pontuacao[pai];
        crossover(pai);
    }


}



void gerarPopulacao()
{
    srand(time(NULL));
    for(int i=0; i<TP; i++)
    {
        for (int j=0; j<TC; j++)
        {
            cromossomo[i][j] = rand()%4;
        }
    }

    printf("Populacao gerada.:\n\n");
    for (int k=0; k<TP; k++)
    {
        for (int m=0; m<TC; m++)
        {
            printf(" %d", cromossomo[k][m]);
            if (m == TC - 1) printf("\n");
        }
    }

    fitness();

}

int main()
{
    for (int x=0; x<TC; x++)
    {
        perfeito[x] = 1;
    }
    gerarPopulacao();
    return 0;
}