summaryrefslogtreecommitdiff
path: root/grudger.pl
blob: 3a78513a99addf7f7938370b95e048ff8bcd8ce6 (plain)
1
2
3
4
5
6
7
% Cooperates until the second has defected, after
% that move defects forever (he does not forgive).
% http://euler.fd.cvut.cz/predmety/game_theory/lecture_repeat.pdf

grudger([], c).
grudger([d|_], d).
grudger([c|Tail], Decision, _, _) :- grudger(Tail, Decision).