
 /* Arbre genealogique, deuxieme maniere */

 arbgen2(X) :- ecrire(X, 0), genarb2(X, 10).

 genarb2(X, N) :- genp2(X, N), genm2(X, N).

 genp2(X, N) :- pere(Y, X), !, ecrire(Y, N), sgenarb2(Y, N).
/* genp2(X, N) :- name(C, "Pere inconnu"), ecrire(C, N). */
 genp2(X, N) :- C = 'Pere inconnu', ecrire(C, N).
 genm2(X, N) :- mere(Y, X), !, ecrire(Y, N), sgenarb2(Y, N).
 genm2(X, N) :- name(C, "Mere inconnue"), ecrire(C, N).

 sgenarb2(X, N) :- M is N + 10 ,  genarb2(X, M).
