[Resolvido] Contagem do número de linhas de um ficheiro. - PROLOG

[Machi 0]

Boa tarde,

como o título do tópico diz, ando à procura de uma forma de criar um predicado em prolog com o qual possa fazer a contagem do número de linhas de um ficheiro.

 

Já fiz variadas pesquisas na internet, no entanto, sem qualquer resultado prático.

 

Caso seja possível, gostaria que me dessem uma ajuda sobre como desenvolver o dito predicado.

 

Cumprimentos.

[Machi 0]

Para quem quiser a solução a este problema, aqui está ela:

 

contar_agendamentos:-see('agendamento.pl'),Total is 0,ler(Total),seen.
ler(Total):-read(X),conta(X,Total).
conta(end_of_file,ValorFinal):-!,write('Total: '),write(ValorFinal).
conta(_,Total):- N1 is Total+ 1,ler(N1).