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

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

leerFichero(FlujoEntrada,[]):-
	at_end_of_stream(FlujoEntrada),
	!.

leerFichero(FlujoEntrada,[N|Lista]):- 
    read(FlujoEntrada,N), 
	N \= end_of_file, 
    !,
    leerFichero(FlujoEntrada,Lista). 

leerFichero(FlujoEntrada,Lista):- 
    read(FlujoEntrada,_), 
    leerFichero(FlujoEntrada,Lista). 

