Prolog video 5

:- dynamic maschio/1.
:- dynamic femmina/1.
:- dynamic scarta/3.

maschio(nicola).
maschio(michele).
maschio(giorgio).
maschio(luca).
maschio(fabrizio).
maschio(tonino).
maschio(nonno).
maschio(attilio).
maschio(enrico).
femmina(nonna).
femmina(mirvana).
femmina(silvana).
femmina(maria).
femmina(roberta).
femmina(sandra).
femmina(gina).
femmina(irene).
padre(michele, nicola).
padre(giorgio, nicola).
padre(maria, nicola).
padre(luca,michele).
padre(sandra, michele).
padre(fabrizio, attilio).
padre(attilio, nonno).
padre(tonino, nonno).
padre(mirvana, enrico).
padre(gina, enrico).
madre(michele, silvana).
madre(giorgio, silvana).
madre(maria, silvana).
madre(luca, roberta).
madre(sandra, roberta).
madre(fabrizio, mirvana).
madre(attilio, nonna).
madre(tonino, nonna).
madre(mirvana, irene).
madre(gina, irene).

aggiungi_maschio(Nome) :-  maschio(Nome), !.
aggiungi_maschio(Nome) :- asserta(maschio(Nome)).

stampa_tutte :-
    femmina(X),
    write(X),  nl, fail.

membro(X, [X | _]).
membro(X, [_ | T]) :- membro(X, T).

concatena([], L, L).
concatena([X | T1], L2, [X | T3]) :- concatena(T1, L2, T3).

lunghezza([], 0).
lunghezza([_ | T], N) :- lunghezza(T, N1), N is N1 + 1.

crea_lista(X, Y, Lista) :- Lista = [X, Y | _].