% MÉTODO 1
% Carga los átomos de un fichero en una lista

cargar(FicheroEntrada,Lista) :-
	open(FicheroEntrada,read,FlujoEntrada),
	leerFichero(FlujoEntrada,Lista),
	close(FlujoEntrada),
	!.

leerFichero(FlujoEntrada,Resultado):- 
    read(FlujoEntrada,N), 
	(
	  N \= end_of_file -> leerFichero(FlujoEntrada,Lista), Resultado = [N|Lista];
   	  true -> Resultado = []
	).
