main3.pl

ejercicio3:-
    open('lista_numeros.txt', read, Valores),

    llenar_lista(Valores, L),
    close(Valores),

    conteo(L, P, N),

    open('total_cont.txt', write, Total),

    write(Total, P),
    write(Total, '\n'),
    write(Total, N),

    close(Total),
    nl.

llenar_lista(Valores, L):-
    read(Valores, X),
    (
        \==(X, end_of_file),
        llenar_lista(Valores, L2),
        
        =(L, [X|L2])
        ;

        ==(X, end_of_file),
        =(L, [])
    ),
!.

conteo([], 0, 0).

conteo([X|L], P, N):-
    conteo(L, P2, N2),
    (
        >(X, 0) ->
        P is P2 + 1,
        N is N2
        ;

        <(X, 0) ->
        P is P2,
        N is N2 + 1
        ;
        P is P2,
        N is N2
    ).