Initiation à la Programmation Logique avec le langage Prolog.
🔗 PDF pour l'accès aux vidéos de la rubrique : Prolog
vache(ada). vache(tara). vache(sveiney). taureau(gunnar). taureau(erik). taureau(olaf). parent(ada,tara). parent(gunnar,tara). parent(sveiney,olaf). parent(erik,olaf).
% D est-il le double de N ? double(D, N) :- D =:= N * 2.
vache(ada). vache(tara). vache(sveiney). taureau(gunnar). taureau(erik). taureau(olaf). parent(ada,tara). parent(gunnar,tara). parent(sveiney,olaf). parent(erik,olaf). bovin(B) :- vache(B) ; taureau(B).
vache(ada). vache(tara). vache(sveiney). taureau(gunnar). taureau(erik). taureau(olaf). parent(ada,tara). parent(gunnar,tara). parent(sveiney,olaf). parent(erik,olaf). mere(M) :- vache(M) , parent(M, _).
vache(ada). vache(tara). vache(ona). taureau(gunnar). taureau(bjork). taureau(erik). taureau(olaf). parent(ada, tara). parent(gunnar, tara). parent(ona, olaf). parent(erik, olaf). parent(ona, bjork). mere(M) :- vache(M), parent(M,_).
Fichier : kb.bovins.pl
vache(ada). vache(tara). vache(sveiney). parent(ada,tara). parent(gunnar,tara). parent(sveiney,olaf). parent(erik,olaf). parent(ada, gustav). parent(erik, gustav).
somme([E],E):- number(E). somme([E|L],S):- number(E), somme(L,S1), S is E + S1.