blob: a2792a967a013134d68a066b3d5096ac201e11ec (
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([c|Tail], c) :- grudger(Tail, c),!.
grudger(_, d).
|