#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#define LIMPIAR_PANTALLA system("cls");
 
 
 
 
int esnumero (const char usuario[], int cant)
    {
        while (cant)
            if ( usuario[--cant]<'0' || usuario[cant]>'9' )
                return 1;
        return 0;
    }
 
 
int main(int argc, char *argv[])
{
  FILE *historial;
  char *incognita, *usuario, h;
  int cant, i, j, blancas, rojas;
  srand (time(NULL));
 
  do {
        printf ("Ingrese la cantidad de caracteres para jugar: ");
        scanf ("%i", &cant);
    } while (cant<1);
 
  do {
      printf ("\n\nDesea guardar el historial de la partida (ingrese 1 por si y 0 por no): ");
      scanf ("%i", &h);
    } while (h!=0&&h!=1);
 
  if (h)
    if (! (  historial = fopen ("historial.txt", "w")  )  )
        {
            do {
                printf ("\n\n\nHa surgido un error al crear el historial. Que desea hacer:\n1-Cerrar el programa\n2-Continuar sin guardar el historial\n\n\tOpcion: ");
                scanf ("%i", &h);
                } while (h!=0&&h!=1);
            if (h)
                return 0;
            else
                h=0;
        }
 
  usuario = (char *) malloc (cant);
  incognita = (char *) malloc (cant);
 
  for (i=0 ; i<cant ; i++)
    incognita[i] = rand ()%10+'0';
  incognita[cant] = '\0';
 
  if (h)
    fprintf (historial, "%s\n\n\n", incognita);
 
  for (i=0,j=0 ; i<cant ; i++)
    {
    j *= 10;
    j += 9;
    }
  // Programa propiamente dicho:
  LIMPIAR_PANTALLA
  printf ("A continuacion debe numeros entre 0 y %i hasta que adivine el numero\nLuego de cada numero le aparecera las pistas\n\nAprete una teclea para comenzar a jugar...", j);
  system ("PAUSE>>nul");
  LIMPIAR_PANTALLA
 
  do {
        do
            scanf ("%s", usuario);
              while (strlen (usuario) != cant || esnumero (usuario, cant) );
 
        if (h)
            fwrite (usuario, 1, cant, historial);
 
        blancas=0;
        rojas=0;
 
        for (i=0;i<cant;i++)
            if (incognita[i]==usuario[i])
                {
                    usuario[i] = 'b';
                    blancas++;
                }
 
        for (i=0;i<cant;i++)
            if (usuario[i]!='b')
                for (j=0;j<cant;j++)
                    if (usuario[j]!='b'&&usuario[j]!='r'&&incognita[i]==usuario[j])
                        {
                        usuario[j] = 'r';
                        rojas++;
                        break;
                        }
 
        if (h)
            fprintf (historial, "\nBlancas: %i Rojas: %i\n\n", blancas, rojas);
 
        printf ("Blancas: %i Rojas: %i\n\n", blancas, rojas);
 
    } while (blancas!=cant);
 
    LIMPIAR_PANTALLA
 
    printf ("\n\tFELICITACIONES!\n\n\nUsted ha adivinado el numero (%s)\n\n", incognita);
 
  free (usuario);
  free (incognita);
  system("PAUSE");
  return 0;
}