listati da Prolog2
listati da copiare e incollare su notes e salvare come file.PRO
richiamabili in ambiente Prolog
esci listaprolog.htm
/* dana4.pro */
nowarnings
include "ana4.pro"
domains
predicates
figlio(nome)
figlia(nome)
archivio(nome)
clauses
/* cerca padre di figli maschi */
figlio(N) if
dati(N,F,S) and
S=maschio.
/* cerca padre di figli femmine */
figlia(N) if
dati(N,F,S) and
S=femmina.
/* stampa archivio completo */
archivio(N) if
dati(N,F,S),
write("----------------------"),nl,
write(N,"\t",F,"\t",S),nl.
/* ana4.pro */
domains
nome = symbol
predicates
dati(nome,nome,nome)
clauses
dati(verdi,luigi,maschio).
dati(rossi,carlo,maschio).
dati(bassi,anna,femmina).
dati(grassi,sergio,maschio).
dati(basso,elisa,femmina).