blob: 281bc4d965d1220fc68ab005d5ca595e5ca4dd2a (
plain)
1
2
3
4
5
|
% Select distraction only if opponents both last decision were to distract.
% See: http://en.wikipedia.org/wiki/Tit_for_tat#Tit_for_two_tats
tit42tat([d,d|_],d,_,_):-!.
tit42tat(_,c,_,_).
|