/*
6x06-Uso_de_bicolas
09/02/2012

Una bicola es una estructura de datos dinámica, similar a una cola, pero en la que cada elemento apunta además de al siguiente,también al anterior. Es decir, está doblemente encadenada. Implementa una bicola con las siguientes operaciones:

	a. creaVacia: Crea una bicola vacía.
	b. agnadeIzq: Añade un elemento a la bicola por la izquierda.
	c. agnadeDer: Añade un elemento a la bicola por la derecha.
	d. eliminaIzq: Elimina un elemento de la bicola por la izquierda.
	e. eliminaDer: Elimina un elemento de la bicola por la derecha.
	f. observaIzq: Devuelve el elemento que hay más a la izquierda.
	g. observaDer: Devuelve el elemento que hay más a la derecha.
	h. esVacia: Indica si la bicola está o no vacía.
	i. long: Devuelve la longitud de la bicola.
	j. asigna: copia una bicola en otra.
	k. libera: Destruye una bicola liberando toda la memoria que ocupaba.
	l. iguales: Indica si dos bicolas son iguales o no, en cuanto a los elementos que contienen ambas exactamente en el mismo orden.
*/

#include <stdio.h>
#include <stdlib.h>

struct INFO
{
	int num;
};

struct NODO
{
	struct INFO elemento;
	struct NODO *p_anterior;
	struct NODO *p_siguiente;
};

struct BICOLA
{
	int nodos;
	struct NODO *primero;
	struct NODO *ultimo;
};

/* FUNCIONES ******************************************************************/

// Pone los punteros de una bicola a NULL
void inicializarBicola( struct BICOLA **bicola )
{
	/*
	Precondición:
					Se recibe un doble puntero de tipo struct BICOLA a una Bicola sin inicializar..
	Poscondición:
					Se inicializa la Bicola poniéndola a NULL o 0 según el parámetro a inicializar.
	*/

	// Se solicita memoria al sistema para la nueva Bicola:
	struct BICOLA *temp = (struct BICOLA *) malloc(sizeof(struct BICOLA));

	temp->nodos		= 0;
	temp->primero	= NULL;
	temp->ultimo	= NULL;

	(*bicola) 		= temp;

};

// Inserta nodos por la izquierda:
void insertIzqBicola( struct BICOLA **bicola, int dato )
{
	/*
	Precondición:
					Se recibe un doble puntero de tipo struct BICOLA a una Bicola y un parámetro de tipo entero con el dato a introducir.
	Poscondición:
					Se inserta al principio un nuevo Nodo en la Bicola.
	*/

	// Se solicita memoria al sistema para el nuevo Nodo:
	struct NODO *temp = (struct NODO *) malloc(sizeof(struct NODO));

	// Si la Bicola no tiene Nodos se inserta sin mas
	if( (*bicola)->primero == NULL )
	{
		temp->elemento.num	= dato;					// Se guarda el nuevo dato en el nuevo Nodo.
		temp->p_anterior	= NULL;					// Como es el primer Nodo de la Bicola, tanto el puntero anterior como el siguiente apuntan a NULL.
		temp->p_siguiente	= NULL;

		(*bicola)->primero	= temp;					// Como es el primer Nodo de la Bicola, se hace que primero y ultimo apunten ambos al mismo Nodo.
		(*bicola)->ultimo	= temp;
	}
	else
	{
		temp->elemento.num	= dato;					// Se guarda el dato nuevo en el nuevo Nodo.
		temp->p_anterior	= NULL;					// Como el nuevo Nodo va a ser el primero de la Bicola no apuntara a ningún Nodo anterior.
		temp->p_siguiente	= (*bicola)->primero;	// El nuevo Nodo apuntara al siguiente Nodo (donde ahora apunta "primero".

		(*bicola)->primero->p_anterior	= temp;		// El puntero anterior del primer Nodo se hace que apunte al nuevo Nodo.
		(*bicola)->primero				= temp;		// El puntero del primero se hace que apunte al nuevo Nodo que ahora es el primero.
	};

	(*bicola)->nodos += 1;							// Se suma 1 a la variable que guarda el numero de Nodos de la Bicola.

};

// Inserta nodos por la derecha:
void insertDerBicola( struct BICOLA **bicola, int dato )
{
	/*
	Precondición:
					Se recibe un doble puntero de tipo struct BICOLA a una Bicola y un parámetro de tipo entero con el dato a introducir.
	Poscondición:
					Se inserta al final un nuevo Nodo en la Bicola.
	*/

	struct NODO *temp = (struct NODO *) malloc(sizeof(struct NODO));

	// Si la bicola esta vacía se introduce sin mas:
	if( (*bicola)->primero == NULL )
	{
		temp->elemento.num	= dato;
		temp->p_anterior	= NULL;
		temp->p_siguiente	= NULL;

		(*bicola)->primero	= temp;
		(*bicola)->ultimo	= temp;
	}
	  // Si contiene nodos, se introduce al final de todos ellos:
	else
	{
		temp->elemento.num	= dato;
		temp->p_anterior	= (*bicola)->ultimo;
		temp->p_siguiente	= NULL;

		(*bicola)->ultimo->p_siguiente	= temp;
		(*bicola)->ultimo				= temp;
	};

	(*bicola)->nodos += 1;

};

// Elimina el primer Nodo:
void eliminaIzqBicola( struct BICOLA **bicola )
{
	/*
	Precondición:
					Se recibe un doble puntero de tipo struct BICOLA a una Bicola.
	Poscondición:
					Se elimina el primer Nodo de la Bicola.
	*/

	struct NODO *aBorrar;

	// Si la Bicola esta vacía...
	if( (*bicola)->primero == NULL )
	{
		printf( "No puede eliminar Nodos de una Bicola vacía." );
	}
	  // Si solo hay un Nodo en la Bicola, al liberar la RAM del Nodo se inicializa la Bicola a los valores por defecto:
	else if( (*bicola)->nodos == 1 )
	{
		free(*bicola);
		inicializarBicola( bicola );
	}
	  // En caso contrario se elimina solo el primer Nodo:
	else if( (*bicola)->nodos > 1 )
	{
		aBorrar = (*bicola)->primero;

		(*bicola)->primero->p_siguiente->p_anterior	= NULL;
		(*bicola)->primero							= (*bicola)->primero->p_siguiente;
		free(aBorrar);

		(*bicola)->nodos -= 1;
	};

};

// Elimina el ultimo Nodo:
void eliminaDerBicola( struct BICOLA **bicola )
{
	/*
	Precondición:
					Se recibe un doble puntero de tipo struct BICOLA a una Bicola.
	Poscondición:
					Se elimina el ultimo Nodo de la Bicola.
	*/

	struct NODO *aBorrar;

	// Si la Bicola esta vacia...
	if( (*bicola)->primero == NULL )
	{
		printf( "No puede eliminar Nodos de una Bicola vacía." );
	}
	  // Si solo hay un Nodo en la Bicola, al liberar la RAM del Nodo se inicializa la Bicola a los valores por defecto:
	else if( (*bicola)->nodos == 1 )
	{
		free(*bicola);
		inicializarBicola( bicola );
	}
	else if( (*bicola)->nodos > 1 )
	{
		aBorrar = (*bicola)->ultimo;

		(*bicola)->ultimo->p_anterior->p_siguiente	= NULL;
		(*bicola)->ultimo							= (*bicola)->ultimo->p_anterior;
		free(aBorrar);

		(*bicola)->nodos -= 1;
	};

};

// Devuelve un true o un false si la Bicola contiene o no Nodos:
int tieneNodosLaBicola( struct BICOLA **bicola )
{
	/*
	Precondición:
					Se recibe un doble puntero de tipo struct BICOLA a una Bicola.
	Poscondición:
					Se devuelve un parámetro de tipo entero con valores true 1 o false 0 dependiendo de si la Bicola contiene Nodos o no.
	*/

	int resp = 0;

	if( (*bicola)->nodos != 0 )
		resp = 1;

	return resp;
};

// Libera la memoria RAM usada por la Bicola:
void borraLaBicola( struct BICOLA **bicola )
{
	/*
	Precondición:
					Se recibe un doble puntero de tipo struct BICOLA a una Bicola.
	Poscondición:
					Se libera la RAM usada por los Nodos contenidos en la Bicola.
	*/

	struct NODO *actual, *siguiente;
	actual = (*bicola)->primero;

	while( actual != NULL )
	{
		siguiente = actual->p_siguiente;
		free(actual);
		actual = siguiente;
	};

	*bicola = NULL;
};

// Devuelve el número de Nodos que contiene la Bicola:
int cuantosNodosTieneLaBicola( struct BICOLA **bicola )
{
	/*
	Precondición:
					Se recibe un doble puntero de tipo struct BICOLA a una Bicola.
	Poscondición:
					Se devuelve un parámetro de tipo entero que indica el número de Nodos que contiene la Bicola.
	*/

	return (*bicola)->nodos;
};

// Copia la bicola original a la bicola copia:
void copiarLaBicola( struct BICOLA **bicolaA, struct BICOLA **bicolaB )
{
	/*
	Precondición:
					Se han de recibir dos dobles punteros de tipo struct BICOLA a dos Bicolas.
	Poscondición:
					Se copia íntegramente la BicolaA en la BicolaB
	*/

	struct NODO *temp = (struct NODO *) malloc(sizeof(struct NODO));
	temp = (*bicolaA)->primero;

	// Si la BicolaB no esta vacia, se libera la RAM antes de copiar la BicolaA en BicolaB.
	if( (*bicolaB)->primero != NULL )
	{
		borraLaBicola( bicolaB );		// Se borra y se inicializa.
		inicializarBicola( bicolaB );
	};

	if( temp == NULL )
		printf( "La Bicola A no contiene Nodos, no se puede copiar nada." );
	else
	{
		while( temp != NULL )
		{
			// Se inserta al final:
			insertDerBicola( bicolaB, temp->elemento.num );

			// Se avanza un Nodo hacia delante:
			temp = temp->p_siguiente;
		};

	};

	free(temp);

};

// Compara dos bicolas, devuelve true o false
int sonIgualesLasBicolas( struct BICOLA **bicolaA, struct BICOLA **bicolaB )
{
	/*
	Precondición:
					Se han de recibir dos dobles punteros de tipo struct BICOLA a dos Bicolas.
	Poscondición:
					Se devuelve un true 1 si las dos Bicolas son idénticas. En caso de que haya alguna diferencia entre ellas, ya sea en el contenido de sus Nodos o en la longitud de las Bicolas se devolverá un false 0.
	*/

	struct NODO *bicA = (struct NODO *) malloc(sizeof(struct NODO));
	struct NODO *bicB = (struct NODO *) malloc(sizeof(struct NODO));
	int salirBucle=0, resp=1;

	bicA = (*bicolaA)->primero;
	bicB = (*bicolaB)->primero;

	if( bicA == NULL ||  bicB == NULL )
	{
		resp = 0;

		if( bicA == NULL )
			printf( "Debe de insertar antes algún Nodo en la Bicola A\n" );

		if( bicB == NULL )
			printf( "Debe de insertar antes algún Nodo en la Bicola B\n" );
	}
	else
	{
		while( !salirBucle )
		{
			// Si alguno de los datos (num en este caso) del elemento de cada Nodo de la Bicola es diferente de la copia, devuelve false:
			if( bicA->elemento.num != bicB->elemento.num )
			{
				resp = 0;
				salirBucle = 1;
			}
			 // Si todo es igual...
			else
			{
				// Si los dos punteros siguen a puntando a algo diferente de NULL se avanza una posición:
				bicA = bicA->p_siguiente;
				bicB = bicB->p_siguiente;

				// Si alguno de los dos punteros ha llegado a NULL antes que el otro, las Bicolas están mal copiadas:
				if( (bicA != NULL  &&  bicB == NULL)  ||  (bicA == NULL  &&  bicB != NULL) )
				{
					resp = 0;
					salirBucle = 1;
				}
				  // Si por el contrario, las dos están a NULL a la vez, se termina la iteración y se devuelve true;
				else if( (bicA == NULL  &&  bicB == NULL) )
				{
					salirBucle = 1;
				};

			};

		};

	};

	return resp;

};

// imprime por pantalla el contenido de todos los Nodos de la Bicola:
void imprimeBicola( struct BICOLA **bicola )
{
	/*
	Precondición:
					Se recibe un doble puntero de tipo struct BICOLA a una Bicola.
	Poscondición:
					Se imprime por pantalla el contenido de todos los Nodos.
	*/

	struct NODO *bic = (*bicola)->primero;

	if( bic == NULL )
		printf( "La Bicola no contiene Nodos." );
	else
	{

		printf( "Su Bicola contiene: " );

		while( bic != NULL )
		{
			printf( "%i, ", bic->elemento.num );
			bic = bic->p_siguiente;
		};

		printf( "\n\n" );

	};

};

/****************************************************************** FUNCIONES */

/**************************************************************************************************************************/
main()
{
	enum opciones{ salir, insertIzq, insertDer, eliminaIzq, eliminaDer, impIzq, impDer, impTodos, quedanNodos, cuantosNodosHay, copiaBicola, sonBicolasIguales, borraBicola } opc;
	struct BICOLA *bicolaA;
	struct BICOLA *bicolaB;
	int eleccion, nuevoDato;

	// Se inicializan las dos Bicolas poniéndolas a NULL:
	inicializarBicola( &bicolaA );
	inicializarBicola( &bicolaB );

	// Menú de selección:
	do{
		printf( "\n\n" );
		printf( "Indique que desea hacer con los Nodos de la Bicola:\n\n" );
		printf( "   1. Añadir un Nodo por la izquierda\n" );
		printf( "   2. Añadir un Nodo por la derecha\n" );
		printf( "   3. Eliminar el primer Nodo\n" );
		printf( "   4. Eliminar el ultimo Nodo\n" );
		printf( "   5. Mostrar el primer Nodo\n" );
		printf( "   6. Mostrar el ultimo Nodo\n" );
		printf( "   7. Muestra todos los Nodos\n" );
		printf( "   8. Quedan Nodos?\n" );
		printf( "   9. Cuantos Nodos hay?\n" );
		printf( "  10. Copiar BicolaA a una nueva BicolaB\n" );
		printf( "  11. BicolaA es igual que BicolaB?\n" );
		printf( "  12. Borrar la BicolaA\n\n" );
		printf( "   0. Salir del programa.\n" );

		do{
			scanf( "%i", &eleccion );
		} while( eleccion < 0  &&  eleccion > 12 );
		opc = (enum opciones)(eleccion);

		printf( "\n\n" );

		switch( opc )
		{

			case insertIzq:
				printf( "Introduzca el número entero que contendrá el nuevo Nodo de la Bicola: " );
				scanf( "%i", &nuevoDato );
				insertIzqBicola( &bicolaA, nuevoDato );
			break;

			case insertDer:
				printf( "Introduzca el número entero que contendrá el nuevo Nodo de la Bicola: " );
				scanf( "%i", &nuevoDato );
				insertDerBicola( &bicolaA, nuevoDato);
			break;

			case eliminaIzq:
				eliminaIzqBicola( &bicolaA );
			break;

			case eliminaDer:
				eliminaDerBicola( &bicolaA );
			break;

			case impIzq:
				if( tieneNodosLaBicola( &bicolaA ) )
					printf( "El primer Nodo contiene un: %i\n", bicolaA->primero->elemento.num );
				else
					printf("La Bicola no contiene Nodos");
			break;

			case impDer:
				if( tieneNodosLaBicola( &bicolaA ) )
					printf( "El ultimo Nodo contiene un: %i\n", bicolaA->ultimo->elemento.num );
				else
					printf("La Bicola no contiene Nodos");
			break;

			case impTodos:
				imprimeBicola( &bicolaA );
			break;

			case quedanNodos:
				if( tieneNodosLaBicola( &bicolaA ) )
					printf( "La Bicola contiene Nodos." );
				else
					printf( "La Bicola esta vacía." );

			break;

			case cuantosNodosHay:
				printf( "La Bicola contiene %i Nodos.",  cuantosNodosTieneLaBicola( &bicolaA ) );
			break;

			case copiaBicola:
				copiarLaBicola( &bicolaA, &bicolaB );
			break;

			case sonBicolasIguales:
				if( sonIgualesLasBicolas( &bicolaA, &bicolaB ) )
					printf( "Las Bicolas son idénticas" );
				else
					printf( "Las Bicolas son diferentes" );
			break;

			case borraBicola:
				borraLaBicola( &bicolaA );		// Se borran todos los nodos...
				inicializarBicola( &bicolaA );	// ... y después se inicializa.
			break;

			case salir:
				system("clear");
			break;

		};

	} while( opc != salir );

	// Libera la RAM que pudiera quedar sin liberar:
	borraLaBicola( &bicolaA );
	borraLaBicola( &bicolaB );

};

Mismo ejercicio que el 5×07 pero con pilas.

/*
6x05-Hanoi_con_pilas
08/02/2012

Implementa el ejercicio de las torres de Hanoi, utilizando pilas para representar las torres.
*/

#include
#include

struct DISCO
{
	int ancho;	// Contendrá el ancho, en intervalos impares, del disco.
	int altura;	// Contiene el nivel en el que se encuentra ese disco.
};

struct NODO
{
	struct DISCO disc;
	struct NODO *puntero;
};

// FUNCIÓN QUE INTRODUCE UN NUMERO EN UNA PILA:
void insertaDatoEnLaPila( struct NODO **pila, int disco )
{
	/*
	Precondición:
					Se ha de recibir un doble puntero de tipo struct NODO para una pila, y un parámetro de tipo entero.
	Poscondición:
					Se introduce el número recibido en la pila.
	*/

	// Se crea un puntero y se le asigna la dirección a la memoria necesaria para un nodo:
	struct NODO *temp = (struct NODO *) malloc(sizeof(struct NODO));

	// Si la pila no tiene nodos (NULL) la altura del disco que se va a introducir sera siempre de 1. Sin embargo si ya tiene nodos, la altura sera igual a la del nodo inferior +1.
	if( *pila == NULL )
		temp->disc.altura = 1;
	else
		temp->disc.altura = (*pila)->disc.altura + 1;

	temp->disc.ancho = disco;
	temp->puntero	 = *pila;
	*pila			 = temp;

};

// FUNCIÓN QUE EXTRAE EL PRIMER ELEMENTO DE LA PILA Y BORRA EL NODO VACIO:
int extraeDatoDeLaPila( struct NODO **pila, int *numNivel )
{
	/*
	Precondición:
					Se ha de recibir un doble puntero de tipo struct NODO para una pila.
					También un parámetro por referencia de tipo entero en el cual se guardara la altura en el que se encuentra el disco.
						Ese dato en el caso de la función mueveDisco() no sirve para nada, sin embargo es necesario desde la función imprimeTablero();
						Si la pila resultase NULL se devolverá, o mejor dicho, no se modificara el valor original que debería de ser 0.
	Poscondición:
					Se devuelve el primer parámetro de tipo entero almacenado en la pila, si esta vacía devuelve un 0.
					Devuelve por referencia la altura del disco.
	*/

	struct NODO *siguiente;
	int resp;

	if( *pila == NULL )
		resp = 0;
	else
	{
		// Se copia el ancho a la variable que va a ser retornada por la función:
		*numNivel	= (*pila)->disc.altura;
		resp		= (*pila)->disc.ancho;

		// Se elimina el primer Nodo (el vaciado):
		siguiente = (*pila)->puntero;
		free(*pila);
		*pila = siguiente;
	};

	return resp;
};

// FUNCIÓN QUE CREA UNA COPIA IDENTICA DE UNA PILA:
void creaUnaCopiaDePila( struct NODO **pila, struct NODO **pilaCopia )
{
	/*
	Precondición:
					Se reciben dos dobles punteros a dos pilas de tipo struct NODO, la primera ha de tener nodos y la segunda ha de estar vacía.
	Poscondición:
					Se realiza una copia exacta de toda la pila de la original a la copia.
	*/

	struct NODO *siguiente = *pila;
	struct NODO *antBusq;
	struct NODO *sigBusq;
	struct NODO *temp;

	// Mientras el puntero siguiente siga apuntando a otro Nodo...
	while( siguiente != NULL )
	{

		temp = (struct NODO *) malloc(sizeof(struct NODO));

		// Si la pila nueva no tiene ningún Nodo se introduce al principio:
		if( *pilaCopia == NULL )
		{
			temp->disc 		= siguiente->disc;
			temp->puntero	= NULL;
			*pilaCopia		= temp;
		}
		  // En caso contrario se introducen los siguientes Nodos siempre al final de la pila (que se esta tratando como una cola).
		else
		{
			sigBusq = *pilaCopia;

			// Se busca el ultimo Nodo:
			while( sigBusq != NULL )
			{
				antBusq = sigBusq;
				sigBusq = sigBusq->puntero;
			};

			temp->disc 		 = siguiente->disc;
			temp->puntero	 = NULL;
			antBusq->puntero = temp;
		};

		// Se avanza una posición en el puntero de la lista original:
		siguiente = siguiente->puntero;
	};

};

// FUNCIÓN QUE BORRA UNA LISTA ENTERA:
void borrarLista( struct NODO **lista )
{
	/*
	Precondición:
					Se ha de recibir un puntero de tipo struct NODO al primer nodo de la lista.
	Poscondición:
					Se borran todos los nodos de esa lista hasta llegar a NULL.
	*/

	struct NODO *actual, *siguiente;
	actual = *lista;

	while(actual != NULL)
	{
		siguiente = actual->puntero;
		free(actual);
		actual = siguiente;
	};

	*lista = NULL;

};

// FUNCIÓN QUE IMPRIME EL TABLERO DE HANOI:
void imprimeTablero( struct NODO **pilaO, struct NODO **pilaA, struct NODO **pilaD, int totDiscos, int tamDiscGrande )
{
	/*
	Precondición:
					pilaO, pilaA, pilaD			Se reciben tres dobles punteros a tres pilas de tipo struct NODO.
					totDiscos					Parámetro de tipo entero que indica el numero de discos totales para calcular el tiempo de pausa por cada impresión.
					tamDiscGrande				Parámetro de tipo entero que indica el tamaño del disco mas grande, se emplea para calcular los espacios a imprimir a ambos lados del disco.
*/

	// Se crean tres punteros temporales:
	struct NODO *pilaOc=NULL, *pilaAc=NULL, *pilaDc=NULL;

	int discoO, discoA, discoD, nivelO=0, nivelA=0, nivelD=0;
	int espO, espA, espD;
	int numNivel;
	int i;

	// Se usan los punteros temporales para que apunten a unas nuevas pilas idénticas a las originales:
	creaUnaCopiaDePila( pilaO, &pilaOc );
	creaUnaCopiaDePila( pilaA, &pilaAc );
	creaUnaCopiaDePila( pilaD, &pilaDc );

	// Se obtiene el numero de disco por return y la altura del disco por referencia...
	discoO = extraeDatoDeLaPila(&pilaOc, &nivelO);
	discoA = extraeDatoDeLaPila(&pilaAc, &nivelA);
	discoD = extraeDatoDeLaPila(&pilaDc, &nivelD);

	// Se recorren todos los niveles de las pilas aunque estén vacíos:
	for( numNivel=totDiscos; numNivel > 0; numNivel-- )
	{

		// Se calculan los espacios necesarios para el disco a imprimir en la altura correspondiente:
		espO = ( tamDiscGrande - discoO )/2;
		espA = ( tamDiscGrande - discoA )/2;
		espD = ( tamDiscGrande - discoD )/2;

		// Si la altura en la que se esta, la marca el for, es la misma que la altura del disco que se ha leído... se imprime, en caso contrario se imprimen tantos espacios como ancho tenga el disco mas grande.
		// Torre 1 o Origen:
		if( nivelO == numNivel )
		{
			// Espacios a la izquierda
			for( i=0; i < espO; i++ )
				printf( " " );
			// Imprime los comodines
			for( i=0; i < discoO; i++ )
				printf( "*" );
			// Espacios a la derecha
			for( i=0; i < espO; i++ )
				printf( " " );

			// Se recoge el siguiente disco:
			discoO = extraeDatoDeLaPila(&pilaOc, &nivelO);
		}
		else
		{
			// Se rellena todo de espacios ya que no hay disco en ese altura:
			for( i=0; i < tamDiscGrande; i++ )
				printf( " " );
		};

		printf( "  " );

		// Torre 1 o Auxiliar:
		if( nivelA == numNivel )
		{
			// Espacios a la izquierda
			for( i=0; i < espA; i++ )
				printf( " " );
			// Imprime los comodines
			for( i=0; i < discoA; i++ )
				printf( "*" );
			// Espacios a la derecha
			for( i=0; i < espA; i++ )
				printf( " " );

			discoA = extraeDatoDeLaPila(&pilaAc, &nivelA);
		}
		else
		{
			// Se rellena todo de espacios ya que no hay disco en ese altura:
			for( i=0; i < tamDiscGrande; i++ )
				printf( " " );
		};

		printf( "  " );

		// Torre 1 o Destino:
		if( nivelD == numNivel )
		{
			// Espacios a la izquierda
			for( i=0; i < espD; i++ )
				printf( " " );
			// Imprime los comodines
			for( i=0; i < discoD; i++ )
				printf( "*" );
			// Espacios a la derecha
			for( i=0; i < espD; i++ )
				printf( " " );

			discoD = extraeDatoDeLaPila(&pilaDc, &nivelD);
		}
		else
		{
			// Se rellena todo de espacios ya que no hay disco en ese altura:
			for( i=0; i < tamDiscGrande; i++ )
				printf( " " );
		};

		// Se hace un salto de linea para representar la próxima altura:
		printf( "\n" );

	};

};

// FUNCIÓN QUE MUEVE UN DISCO DE UNA PILA A OTRA:
void mueveDisco( struct NODO **pilaO, struct NODO **pilaA, struct NODO **pilaD, int totDiscos, int tamDiscGrande, char listOrigen, char listDestino )
{
	/*
	Precondición:
					pilaO, pilaA, pilaD			Se reciben tres dobles punteros a tres pilas de tipo struct NODO.
					totDiscos					Parámetro de tipo entero que indica el numero de discos totales para calcular el tiempo de pausa por cada impresión.
					tamDiscGrande				Parámetro de tipo entero que indica el tamaño del disco mas grande, se emplea para calcular los espacios a imprimir a ambos lados del disco.
					listOrigen, listDestino		Dos enteros que indican el origen del disco y su destino.
	Poscondición:
					Se mueve el disco de Origen a Destino y se llama a la función que imprime el tablero.
	*/

	int paraNada=0;

	if( listOrigen == 'O' )
	{
		if( listDestino == 'A' )
			insertaDatoEnLaPila( pilaA, extraeDatoDeLaPila(pilaO, &paraNada) );

		else if( listDestino == 'D' )
			insertaDatoEnLaPila( pilaD, extraeDatoDeLaPila(pilaO, &paraNada) );
	}
	else if( listOrigen == 'A' )
	{
		if( listDestino == 'O' )
			insertaDatoEnLaPila( pilaO, extraeDatoDeLaPila(pilaA, &paraNada) );

		else if( listDestino == 'D' )
			insertaDatoEnLaPila( pilaD, extraeDatoDeLaPila(pilaA, &paraNada) );
	}
	else if( listOrigen == 'D' )
	{
		if( listDestino == 'O' )
			insertaDatoEnLaPila( pilaO, extraeDatoDeLaPila(pilaD, &paraNada) );

		else if( listDestino == 'A' )
			insertaDatoEnLaPila( pilaA, extraeDatoDeLaPila(pilaD, &paraNada) );
	};

	// Se imprime el tablero:
	imprimeTablero( pilaO, pilaA, pilaD, totDiscos, tamDiscGrande );
};

// FUNCIÓN DE HANOI MEDIANTE RECURSIVIDAD:
void hanoi( struct NODO **pilaO, struct NODO **pilaA, struct NODO **pilaD, int nDiscos, int totDiscos, int tamDiscGrande, char O, char A, char D )
{
/*
Precondición:
				pilaO, pilaA, pilaD		Se reciben tres dobles punteros a tres pilas de tipo struct NODO.
				nDiscos					Parámetro de tipo entero que indica el numero de discos usados en cada recursividad.
				totDiscos				Parámetro de tipo entero que indica el numero de discos totales para calcular el tiempo de pausa por cada impresión.
				tamDiscGrande			Parámetro de tipo entero que indica el tamaño del disco mas grande, se emplea para calcular los espacios a imprimir a ambos lados del disco.
				O, A, D					Tres enteros que indican la fila desde donde se ha de coger el disco y a donde se ha de traspasar. La primera vez que se llama a hanoi tienen los valores de: 0 ,1 y 2 respectivamente.
Poscondición:
				Se llama recursivamente a hanoi hasta resolver el tablero.
*/

	if( nDiscos == 1 )
	{
		// Se borra la pantalla, se mueve el disco/imprime y se hace una pausa que varia dependiendo del numero de discos:
		system("clear");
		mueveDisco( pilaO, pilaA, pilaD, totDiscos, tamDiscGrande, O, D );
		if(totDiscos15) system("sleep 0.02");
	}
	else
	{
		hanoi( pilaO, pilaA, pilaD, nDiscos-1, totDiscos, tamDiscGrande, O, D, A );

		system("clear");
		mueveDisco( pilaO, pilaA, pilaD, totDiscos, tamDiscGrande, O, D );
		if(totDiscos15) system("sleep 0.02");

		hanoi( pilaO, pilaA, pilaD, nDiscos-1, totDiscos, tamDiscGrande, A, O, D );
	};

};

main()
{

	struct NODO *pilaO=NULL, *pilaA=NULL, *pilaD=NULL;
	int nDiscos, disco, tamDiscGrande, i;

	printf( "Indique el número de discos: " );
	scanf( "%i", &nDiscos );

	// Se halla el disco más grande (de tamaño impar) que se usara:
	disco = 1 + 2*(nDiscos - 1);
	tamDiscGrande = disco; // Se hace una copia para poder conservar el numero.

	for( i=0; i < nDiscos; i++ )
	{
		// Se introduce el disco que corresponda y se resta 2 para la siguiente iteración:
		insertaDatoEnLaPila( &pilaO, disco );
		disco -= 2;
	};

	// Se imprime el tablero:
	system("clear");
	imprimeTablero( &pilaO, &pilaA, &pilaD, nDiscos, tamDiscGrande );
	system("sleep 1");

	// Se llama a hanoi para comenzar "la partida":
	hanoi( &pilaO, &pilaA, &pilaD, nDiscos, nDiscos, tamDiscGrande, 'O', 'A', 'D' );

	// Se borran la pila de destino que es la única que tiene nodos:
	borrarLista( &pilaD );

};

/*
6x04-Notacion_postfija_con_pilas
07/02/2012

Escribe un programa que lea de teclado una expresión en notación postfija y la evalúe, mostrando su resultado por pantalla. Para ello implementa y utiliza una pila.
*/
/*
NOTAS:

Infija		a+b		(((5+9)*2)+(6*5))	= 58
Prefija 	+ab
Postfija	ab+		5 9+2*6 5*+			= 58

Si el termino es un valor, introducirlo en una pila
Sí el término es un operador:

Sacar dos operandos de la pila
Aplicar el operador
Meter el resultado en la pila

	Paso a paso:
	5
	9 5
	14
	2 14
	28
	6 28
	5 6 28
	30 28
	58
*/

#include <stdio.h>
#include <string.h>
#include <stdlib.h>

struct NODO
{
	int valor;
	struct NODO *puntero;
};

// FUNCIÓN QUE PASA UNA CADENA CON NUMEROS A ENTERO:
int pasaCadenaAEntero( char cadena[20] )
{
	/*
	Precondición:
					Se ha de recibir una cadena de caracteres terminada en fin de linea que contenga solo un numero entero de máximo 20 dígitos.
	Poscondición:
					Se pasa esa cadena al tipo entero y se devuelve el valor.
	*/

	int longCadena=strlen(cadena), numero=0, i;

	for( i=0; i<longCadena; i++ )
	{
		numero *= 10;
		numero += cadena[i]-48;
	};

	return numero;
};

// FUNCIÓN QUE INTRODUCE UN NUMERO EN UNA PILA:
void insertaDatoEnLaPila( struct NODO **pila, int num )
{
	/*
	Precondición:
					Se ha de recibir un doble puntero de tipo struct NODO para una pila, y un parámetro de tipo entero.
	Poscondición:
					Se introduce el numero recibido en la pila.
	*/

	struct NODO *temp = (struct NODO *) malloc(sizeof(struct NODO));

	temp->valor		= num;
	temp->puntero	= *pila;
	*pila			= temp;

};

// FUNCIÓN QUE EXTRAE EL PRIMER ELEMENTO DE LA PILA Y BORRA EL NODO VACIO:
int extraeDatoDeLaPila( struct NODO **pila )
{
	/*
	Precondición:
					Se ha de recibir un doble puntero de tipo struct NODO para una pila.
	Poscondición:
					Se devuelve el primer parámetro de tipo entero almacenado en la pila.
	*/

	struct NODO *siguiente;
	int resp;

	// Se copia el valor a la variable que va a ser retornada por la función:
	resp = (*pila)->valor;

	// Se elimina el primer Nodo (el vaciado):
	siguiente = (*pila)->puntero;
	free(*pila);
	*pila = siguiente;

	return resp;
};

// FUNCIÓN QUE LIBERA LA MEMORIA USADA POR UNA LISTA:
void listaLiberaRam( struct NODO **lista )
{
	/*
	Precondición:
					Se ha de recibir un puntero de tipo struct NODO al primer nodo de la lista.
	Poscondición:
					Se borran todos los nodos de esa lista hasta llegar a NULL.
	*/

	struct NODO *actual, *siguiente;
	actual = *lista;

	while(actual != NULL)
	{
		siguiente = actual->puntero;
		free(actual);
		actual = siguiente;
	};

	*lista = NULL;

};

main()
{

	struct NODO *pila;
	char cad[20];
	int val1, val2;

	printf( "Introduce una expresión en notación postfija para hallar el resultado.\n" );
	printf( "Introduzca un valor o operador y pulse intro para introducir el siguiente, escriba = para calcular el resultado\n" );
	printf( "  Ejemplo:\n\n   5\n   9\n   +\n   2\n   *\n   6\n   5\n   *\n   +\n\n" );
	printf( "Indique la expresion:\n\n" );

	do{

		// Se lee un valor o operador:
		scanf( "%s", cad );

		// Dependiendo de lo leido se hace una operacion u otra:
		switch( cad[0] )
		{
			case '+':
				// En el caso de la: '+', '-', '*' y '/', se sacan dos valores de la pila, se opera con ellos según el operador elegido y se guarda el resultado en la pila.

				val1 = extraeDatoDeLaPila( &pila );
				val2 = extraeDatoDeLaPila( &pila );
				insertaDatoEnLaPila( &pila, val1 + val2 );
			break;

			case '-':
				val1 = extraeDatoDeLaPila( &pila );
				val2 = extraeDatoDeLaPila( &pila );
				insertaDatoEnLaPila( &pila, val1 - val2 );
			break;

			case '*':
				val1 = extraeDatoDeLaPila( &pila );
				val2 = extraeDatoDeLaPila( &pila );
				insertaDatoEnLaPila( &pila, val1 * val2 );
			break;

			case '/':
				val1 = extraeDatoDeLaPila( &pila );
				val2 = extraeDatoDeLaPila( &pila );
				insertaDatoEnLaPila( &pila, val1 / val2 );
			break;

			case '=':
				// Se imprime por pantalla el ultimo y único elemento de la pila.
				printf( "\nEl resultado es: %i\n\n", extraeDatoDeLaPila( &pila ) /*pila->valor*/ );
			break;

			default:
				// Se introduce un nuevo dato en la pila:
				insertaDatoEnLaPila( &pila, pasaCadenaAEntero(cad) );
			break;
		};

	} while( cad[0] != '=' );

};

/*
6x02-Lista_enlazadas_desordenadas
01/02/2012

Repite el ejercicio anterior usando una lista (no ordenada), que implemente una operación de ordenarLista.
Se almacenarán los números desordenados en la lista y luego se aplicará la operación implementada.
*/

// Estructuras de datos:
struct SORTEO
{
	int numero;		// Numero de boleto
	int cuantia;	// Importe del premio
};
struct NODO
{
	struct SORTEO elemento;	// Información contenida en cada nodo de la lista.
	struct NODO *puntero;	// Puntero al siguiente nodo de la lista.
};

// Constantes:
#define NUMEROS 10

// Librerias:
#include <stdio.h>
#include <stdlib.h>
#include <time.h>
//#include "listas.h"

// FUNCION QUE INSERTA NODOS AL FINAL DE LA LISTA:
void listaInsertAlFinal( struct NODO **lista, struct SORTEO *cupon )
{
	/*
	Precondición:
					Se ha de recibir un puntero de tipo struct NODO al primer nodo de la lista. Este podrá valer NULL la primera vez o la dirección de memoria que corresponda.
					  El puntero además es un "doble puntero" ya que es necesario poder modificarlo.
					También se ha de recibir un puntero a una estructura de tipo SORTEO con la información a insertar en la lista.
	Poscondición:
					Se inserta la información contenida en "cupon" en un Nodo nuevo perteneciente a "lista", la inserción se realiza siempre al final de la lista.
	*/

	struct NODO *temp 		= (struct NODO *)malloc(sizeof(struct NODO));	// Se define un puntero temporal de tipo NODO que apunta a la memoria solicitada al sistema.
	struct NODO *anterior 	= NULL;											// Se crea otro puntero de tipo NODO, este apuntando a NULL
	struct NODO *siguiente 	= *lista;										// Y un tercer puntero de tipo NODO que apunta al primer nodo de la lista.

	// En la primera inserción "lista" no apuntara a nada, por lo que se inserta el primer nodo y se hace que "lista" apunte a él.
	if( *lista == NULL )
	{
		temp->elemento	= *cupon;
		temp->puntero	= NULL;

		*lista = temp;
	}
	  // Cuando la lista ya tenga un elemento...
	else
	{

		// Se recorren todos los Nodos de la lista hasta llegar al final.
		while( siguiente != NULL )
		{
			anterior = siguiente;
			siguiente = siguiente->puntero;
		};

		// Se agrega el nuevo Nodo al final de la lista.
		if( siguiente == NULL )
		{
			temp->elemento	= *cupon;	// Se guarda la estructura de datos (cupon) en la estructura del nuevo Nodo.
			temp->puntero	= NULL;		// Como la inserción es al final de la lista el puntero del Nodo no a puntara a ningún otro Nodo.

			anterior->puntero = temp;	// Se modifica el puntero del Nodo anterior para que apunte al nuevo Nodo.
		};

	};

};

// FUNCION QUE ORDENA LOS NODOS DE UNA LISTA DE FORMA ASCENDENTE:
void listaOrdenarAscendente( struct NODO **lista )
{
	/*
	Precondición:
					Se ha de recibir un puntero de tipo struct NODO al primer nodo de la lista. Este podrá valer NULL la primera vez o la dirección de memoria que corresponda.
	Poscondición:
					La función se encarga de ordenar de forma ascendente cada Nodo de la lista según el numero de cupón que contengan dichos nodos.
					El método usado para ordenar los nodos es mediante el método de la burbuja, de modo que se necesitan dos bucles,
					  el segundo se encarga de ordenar el nodoA y el nodoB en la primera iteración, después el nodoB y el nodoC en la segunda iteración, luego el nodoC y el nodoD, etc.
					  de modo que se van arrastrando los números pequeños hacia el principio de la lista, una vez recorrida entera el segundo bucle se encarga de recorrerla de nuevo, así tantas veces como nodos tiene la lista.
					Finalmente la lista queda ordenada completamente.
					Esquema gráfico: http://goo.gl/I54uV
	*/

	struct NODO *p_nodoAnt2_nodoAnt1	= NULL;							// Es(sera) el puntero del puntero que apunta al nodoA (es necesario para modificar el puntero que apunta a A)
	struct NODO *p_nodoAnt1_nodoA		= *lista;						// Es el puntero que apunta al nodoA
	struct NODO *p_nodoA_nodoB			= p_nodoAnt1_nodoA->puntero;	// Es el puntero del nodoA y apunta al nodoB
	struct NODO *p_nodoB_sig			= p_nodoA_nodoB->puntero;		// Es el puntero del nodoB que apunta al siguiente nodo.

	struct NODO *temporal				= NULL;							// Puntero temporal de intercambio.
	struct NODO *iteracion				= *lista;						// Es el puntero que va avanzando en la lista en cada iteración del primer bucle, es necesario para saber cuando detener el bucle.

	int salirBucle1; // Variables "booleanas" para indicar cuando se ha de salir de los bucles.
	int salirBucle2;

	// Si la lista contiene Nodos se ordenan:
	if( *lista != NULL )
	{

		salirBucle1 = 0;

		// La lista se ha de recorrer tantas veces como Nodos tenga:
		while( !salirBucle1 )
		{

			// Si "iteracion" es NULL se cambia el estado de "salirBucle1" para salir del primer bucle una vez se haya hecho una ultima vez el bucle 2.
			// En caso contrario iteración avanza un nodo de la lista.
			if( iteracion == NULL )
				salirBucle1 = 1;
			else
				iteracion = iteracion->puntero;

			salirBucle2 = 0;

			// Cada vez que se recorre la lista se ordenan dos Nodos:
			while( !salirBucle2 )
			{

				// Si se va a ordenar el primer Nodo con el segundo...
				if( p_nodoAnt1_nodoA == *lista )
				{
					// Si el NodoA es mayor que el nodoB, se cambian de orden:
					if( p_nodoAnt1_nodoA->elemento.numero   >   p_nodoA_nodoB->elemento.numero )
					{
						// Se intercambia el NodoA con el NodoB:
						*lista						= p_nodoA_nodoB;
						temporal					= p_nodoB_sig;
						p_nodoA_nodoB->puntero		= p_nodoAnt1_nodoA;
						p_nodoAnt1_nodoA->puntero	= temporal;

						// Se actualizan los punteros para que cada uno apunte segun su nombre correspondiente:
						p_nodoAnt1_nodoA			= *lista;
						p_nodoA_nodoB				= p_nodoAnt1_nodoA->puntero;
						p_nodoB_sig					= p_nodoA_nodoB->puntero;
					};

				}
				  // Si se van a ordenar nodos intermedios de la lista...
				else if( p_nodoB_sig != NULL )
				{

					if( p_nodoAnt1_nodoA->elemento.numero   >   p_nodoA_nodoB->elemento.numero )
					{
						// Se intercambian los punteros:
						p_nodoAnt2_nodoAnt1->puntero	= p_nodoA_nodoB;
						temporal						= p_nodoB_sig;
						p_nodoA_nodoB->puntero			= p_nodoAnt1_nodoA;
						p_nodoAnt1_nodoA->puntero		= temporal;

						// Se actualizan los punteros para que cada uno apunte segun su nombre correspondiente:
						p_nodoAnt1_nodoA				= p_nodoAnt2_nodoAnt1->puntero;
						p_nodoA_nodoB					= p_nodoAnt1_nodoA->puntero;
						p_nodoB_sig						= p_nodoA_nodoB->puntero;
					};

				}
				  // Si se va a ordenar el penultimo y ultimo nodo...
				else if( p_nodoB_sig == NULL )
				{

					if( p_nodoAnt1_nodoA->elemento.numero   >   p_nodoA_nodoB->elemento.numero )
					{
						// Se intercambian los punteros:
						p_nodoAnt2_nodoAnt1->puntero	= p_nodoA_nodoB;
						p_nodoA_nodoB->puntero			= p_nodoAnt1_nodoA;
						p_nodoAnt1_nodoA->puntero		= NULL;

						// Se actualizan los punteros para que cada uno apunte segun su nombre correspondiente:
						p_nodoAnt1_nodoA				= p_nodoAnt2_nodoAnt1->puntero;
						p_nodoA_nodoB					= p_nodoAnt1_nodoA->puntero;
						p_nodoB_sig						= NULL;
					}

					// Ya se han ordenado los dos últimos Nodos y ahora se para el bucle2:
					salirBucle2 = 1;

				};

				// Mientras el nodoB siga apuntando a otro nodo, se modifican todos los punteros para que apunten al siguiente nodo:
				if( p_nodoB_sig != NULL )
				{
					p_nodoAnt2_nodoAnt1	= p_nodoAnt1_nodoA;
					p_nodoAnt1_nodoA	= p_nodoAnt1_nodoA->puntero;
					p_nodoA_nodoB		= p_nodoA_nodoB->puntero;
					p_nodoB_sig			= p_nodoB_sig->puntero;
				};

			}; // Fin primer bucle

			// Al parar el segundo bucle hay que resetear los punteros al valor original.
			p_nodoAnt2_nodoAnt1		= NULL;
			p_nodoAnt1_nodoA		= *lista;
			p_nodoA_nodoB			= p_nodoAnt1_nodoA->puntero;
			p_nodoB_sig				= p_nodoA_nodoB->puntero;

		}; // Fin segundo bucle

	};// Fin del if

}; // fin de la funcion

// FUNCION QUE LIBERA LA MEMORIA USADA POR UNA LISTA:
void listaLiberaRam( struct NODO **lista )
{
	/*
	Precondición:
					Se ha de recibir un puntero de tipo struct NODO al primer nodo de la lista.
	Poscondición:
					Se borran todos los nodos de esa lista hasta llegar a NULL.
	*/

	struct NODO *actual, *siguiente;
	actual = *lista;

	while(actual != NULL)
	{
		siguiente = actual->puntero;
		free(actual);
		actual = siguiente;
	};

	*lista = NULL;

};

// Función que genera números aleatorios con sus premios aleatorios respectivos y los guarda en "fichero.dat":
void generaDat()
{
	/*
	Poscondición:
					La función se encarga de generar estructuras con números aleatorios que son guardados en un fichero secuencial.
					  El numero de estructuras a guardar viene dado por la constante NUMEROS.
	*/

	FILE *ficheroBin = fopen( "sorteo.dat", "w" );
	struct SORTEO cupon;
	int i;

	srand((unsigned int)time(NULL));

	for( i=0; i < NUMEROS; i++ )
	{
		cupon.numero  = rand()%100000;
		cupon.cuantia = rand()%1000;

		fwrite( &cupon, sizeof(struct SORTEO), 1, ficheroBin );
	};

	fclose( ficheroBin );
};

// Funciona que pasa el contenido de "fichero.dat" a "fichero.txt":
void mostrarDat()
{
	/*
	Poscondición:
					Se pasa todo el contenido del fichero secuencial a un fichero de texto.
	*/

	FILE *ficheroBin = fopen( "sorteo.dat", "r" );
	FILE *ficheroText;
	struct SORTEO cupon;

	if( ficheroBin == NULL )
		printf( "Genere rimero el fichero \"sorteo.dat\"\n" );
	else
	{
		ficheroText = fopen( "sorteo.txt", "w" );

		fread( &cupon, sizeof(struct SORTEO), 1, ficheroBin );

		while( !feof(ficheroBin) )
		{
			fprintf( ficheroText, "%i\t%i\n", cupon.numero, cupon.cuantia );
			fread( &cupon, sizeof(struct SORTEO), 1, ficheroBin );
		};

		fclose( ficheroBin );
		fclose( ficheroText );

	};

};

main()
{
	struct NODO *lista = NULL;
	struct NODO *temp;
	struct SORTEO cupon;
	FILE *fichOriginal, *fichOrdenDat, *fichOrdenTxt;
	char opcion;

	printf( "Eliga una opcion:\n" );
	printf( "1. Ordenar el fichero \"sorteo.dat\" mediante listas\n" );
	printf( "2. Generar \"sorteo.dat\"\n" );
	printf( "3. Pasar fichero \"sorteo.dat\" a \"sorteo.txt\"\n" );
	do{
		scanf( "%c", &opcion );
	} while( opcion < '1'  ||  opcion > '3' );

	if( opcion == '2' )
		generaDat();
	else if( opcion == '3' )
		mostrarDat();
	else if( opcion == '1' )
	{

		fichOriginal = fopen("sorteo.dat", "r");

		// Se comprueba que el fichero secuencial con el que se ha de trabajar exista:
		if( fichOriginal == NULL )
			printf( "Necesita el fichero \"sorteo.dat\", generelo primero\n" );
		else
		{

			// Se recorre cada estructura del fichero secuencial y se inserta en una estructura de datos dinamica de tipo lista:
			fread( &cupon, sizeof(struct SORTEO), 1, fichOriginal );

			while( !feof(fichOriginal) )
			{
				listaInsertAlFinal( &lista, &cupon );						// Se crea un nuevo nodo para el estruct leido y se inserta en la lista.
				fread( &cupon, sizeof(struct SORTEO), 1, fichOriginal );	// Se lee la siguiente estructura de datos a guardar en la lista.
			};
			fclose(fichOriginal);

			// Se ordena la lista:
			listaOrdenarAscendente( &lista );

			// Se imprime el contenido de la lista en unos ficheros:
			fichOrdenDat = fopen("sorteoOrdenado.dat", "w");
			fichOrdenTxt = fopen("sorteoOrdenado.txt", "w");
			temp = lista;

			while( temp != NULL )
			{
				fwrite( &temp, sizeof(struct SORTEO), 1, fichOrdenDat );
				fprintf( fichOrdenTxt, "%i\t%i\n", temp->elemento.numero, temp->elemento.cuantia );
				temp = temp->puntero;
			};
			fclose(fichOrdenDat);
			fclose(fichOrdenTxt);

			// Ya se ha finalizado el programa, pero antes de terminar del todo hay que liberar toda la memoria RAM usada:
			listaLiberaRam( &lista );

		};

	};

	printf( "  Operación finalizada.\n" );

};

/*
6x01-Listas_ordenadas_al_instante
25/01/2012

Implementa una lista ordenada con las operaciones vistas en clase. Utilízala para almacenar en ella todos los datos que hay en un fichero (por ejemplo, uno de resultados de un sorteo de lotería de Navidad, que tenga números premiados y premio que corresponde, que esté desordenado, y usando como criterio de orden los números), y posteriormente guarda la lista ordenada
en otro fichero.
*/

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

#define NUMEROS 10

struct SORTEO
{
	int numero;		// Numero de boleto
	int cuantia;	// Importe del premio
};

struct NODO
{
	struct SORTEO elemento;	// Información contenida en cada nodo de la lista.
	struct NODO *puntero;	// Puntero al siguiente nodo de la lista.
};

void insertarEnListaOrdenada( struct NODO **lista, struct SORTEO *cupon )
{
	/*
	Precondición:
					Se ha de recibir un puntero de tipo struct NODO al primer nodo de la lista. Este podrá valer NULL la primera vez o la dirección de memoria que corresponda.
					  El puntero además es un "doble puntero" ya que es necesario poder modificarlo.
					También se ha de recibir un puntero a una estructura de tipo SORTEO con la información a insertar en la lista.
	Poscondición:
					Se inserta la información contenida en "cupon" en un Nodo nuevo perteneciente a "lista", la inserción se realiza con orden ascendente según el "numero" de la estructura "cupon"
	*/

	struct NODO *temp 		= (struct NODO *)malloc(sizeof(struct NODO));	// Se define un puntero temporal de tipo NODO que apunta a la memoria solicitada al sistema.
	struct NODO *anterior 	= NULL;											// Se crea otro puntero de tipo NODO, este apuntando a NULL
	struct NODO *siguiente 	= *lista;										// Y un tercer puntero de tipo NODO que apunta al primer nodo de la lista.

	// En la primera inserción "lista" no apuntara a nada, por lo que se inserta el primer nodo y se hace que "lista" apunte a él.
	if( *lista == NULL )
	{
		temp->elemento	= *cupon;
		temp->puntero	= NULL;

		*lista = temp;
	}
	  // Cuando la lista ya tenga al un elemento...
	else
	{

		// Se han de recorrer todos los nodos para comprobar que el orden es correcto, es decir, con orden ascendente:
		//  De modo que se compara el numero del nodo al cual apunta "siguiente" con el numero del cupón que se quiere insertar.
		//  Si se cumple la condición, se guarda en "anterior" el puntero actual, y en "siguiente" se guarda el puntero del nodo siguiente de la lista
		//  En caso de que termine la lista "siguiente" valdrá NULL y "anterior" valdrá N-1 (el ultimo puntero valido)
		while(  siguiente != NULL   &&   siguiente->elemento.numero < cupon->numero )
		{
			anterior = siguiente;
			siguiente = siguiente->puntero;
		};

		// Si durante la lectura de la lista se llega al final sin encontrar un numero mayor, entonces se inserta el nuevo nodo al final de la lista.
		if( siguiente == NULL )
		{
			temp->elemento	= *cupon;	// Se guarda la estructura de datos (cupón) en la estructura del nuevo Nodo.
			temp->puntero	= NULL;		// Como la inserción es al final de la lista el puntero del Nodo no a puntara a ningún otro Nodo.

			anterior->puntero = temp;	// Se modifica el puntero del Nodo anterior para que apunte al nuevo Nodo.
		}
		  // En cambio, si recorriendo la lista se encuentra un numero mayor, se deberá insertar el nuevo nodo antes.
		else
		{
			// Ahora pueden darse dos casos:

			// Que el nodo a insertar sea el primero de todos, por lo tanto hay que modificar el puntero de "lista" para que apunte al nuevo Nodo:
			if( *lista == siguiente )
			{
				temp->elemento	= *cupon;
				temp->puntero	= siguiente;

				*lista = temp;
			}
			  // O que este entre dos nodos, por lo que se modificara el puntero del anterior Nodo para que apunte al nuevo Nodo:
			else
			{
				temp->elemento = *cupon;
				temp->puntero = siguiente;

				anterior->puntero = temp;
			};

		};

	};

};

void borrarLista( struct NODO **lista )
{
	/*
	Precondición:
					Se ha de recibir un puntero de tipo struct NODO al primer nodo de la lista.
	Poscondición:
					Se borran todos los nodos de esa lista hasta llegar a NULL.
	*/

	struct NODO *actual, *siguiente;
	actual = *lista;

	while(actual != NULL)
	{
		siguiente = actual->puntero;
		free(actual);
		actual = siguiente;
	};

	*lista = NULL;

};

// Función que genera números aleatorios con sus premios aleatorios respectivos y los guarda en "fichero.dat":
void generaDat()
{
	/*
	Poscondición:
					La función se encarga de generar estructuras con números aleatorios que son guardados en un fichero secuencial.
					  El número de estructuras a guardar viene dado por la constante NUMEROS.
	*/

	FILE *ficheroBin = fopen( "sorteo.dat", "w" );
	struct SORTEO cupon;
	int i;

	srand((unsigned int)time(NULL));

	for( i=0; i < NUMEROS; i++ )
	{
		cupon.numero  = rand()%100000;
		cupon.cuantia = rand()%1000;

		fwrite( &cupon, sizeof(struct SORTEO), 1, ficheroBin );
	};

	fclose( ficheroBin );
};

// Funcion que pasa el contenido de "fichero.dat" a "fichero.txt":
void mostrarDat()
{
	/*
	Poscondición:
					Se pasa todo el contenido del fichero secuencial a un fichero de texto.
	*/

	FILE *ficheroBin = fopen( "sorteo.dat", "r" );
	FILE *ficheroText;
	struct SORTEO cupon;

	if( ficheroBin == NULL )
		printf( "Genere rimero el fichero \"sorteo.dat\"\n" );
	else
	{
		ficheroText = fopen( "sorteo.txt", "w" );

		fread( &cupon, sizeof(struct SORTEO), 1, ficheroBin );

		while( !feof(ficheroBin) )
		{
			fprintf( ficheroText, "%i\t%i\n", cupon.numero, cupon.cuantia );
			fread( &cupon, sizeof(struct SORTEO), 1, ficheroBin );
		};

		fclose( ficheroBin );
		fclose( ficheroText );

	};

};

main()
{
	struct NODO *lista = NULL;
	struct NODO *temp;
	struct SORTEO cupon;
	FILE *fichOriginal, *fichOrdenDat, *fichOrdenTxt;
	char opcion;

	printf( "Elija una opción:\n" );
	printf( "1. Ordenar el fichero \"sorteo.dat\" mediante listas\n" );
	printf( "2. Generar \"sorteo.dat\"\n" );
	printf( "3. Pasar fichero \"sorteo.dat\" a \"sorteo.txt\"\n" );
	do{
		scanf( "%c", &opcion );
	} while( opcion < '1'  ||  opcion > '3' );

	if( opcion == '2' )
		generaDat();
	else if( opcion == '3' )
		mostrarDat();
	else if( opcion == '1' )
	{

		fichOriginal = fopen("sorteo.dat", "r");

		// Se comprueba que el fichero secuencial con el que se ha de trabajar exista:
		if( fichOriginal == NULL )
			printf( "Necesita el fichero \"sorteo.dat\", genérelo primero\n" );
		else
		{

			// Se recorre todo el fichero, en cada iteración se lee una estructura y se pasa a la función que la guarda en un nuevo Nodo de la lista.
			  // Se lee la primera estructura del fichero y se guarda en la estructura "temporal" de tipo "SORTEO"
			  fread( &cupon, sizeof(struct SORTEO), 1, fichOriginal );

			while( !feof(fichOriginal) )
			{
				insertarEnListaOrdenada( &lista, &cupon );					// Se crea un nuevo nodo para el estruct leido y se inserta en la lista.
				fread( &cupon, sizeof(struct SORTEO), 1, fichOriginal );	// Se lee la siguiente estructura de datos a guardar en la lista.
			};
			fclose(fichOriginal);

			// Hasta aquí ya se ha leído todo el fichero y se han introducido sus estructuras en cada Nodo de la lista de forma ordenada, ahora hay que pasarlos al fichero de destino.

			fichOrdenDat = fopen("sorteoOrdenado.dat", "w");
			fichOrdenTxt = fopen("sorteoOrdenado.txt", "w");
			temp = lista;

			while( temp != NULL )
			{
				fwrite( &temp, sizeof(struct SORTEO), 1, fichOrdenDat );
				fprintf( fichOrdenTxt, "%i\t%i\n", temp->elemento.numero, temp->elemento.cuantia );
				temp = temp->puntero;
			};
			fclose(fichOrdenDat);

			// Ya se ha finalizado el programa, pero antes de terminar del todo hay que liberar toda la memoria RAM usada:
			borrarLista( &lista );

		};

	};

	printf( "  Operación finalizada.\n" );

};