tit4tat.pl


1
2
3
4
5
6
7
8
9

%
% Use opponents last decision
tit4tat_select(H,[H|_]).
% Fallback to coorporate at beginning
tit4tat_select(c,[]).

tit4tat(A, Hist, PayA, PayB) :-
	tit4tat_select(Old, Hist),
	pay2(A, Old, PayA, PayB).