blob: 76f9629c634ebd909a66ce85b84c8d2acc15fdab (
plain)
1
2
3
4
5
6
7
8
|
% Grudger, Spiteful:
% 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, _, _).
|
