summaryrefslogtreecommitdiff
path: root/tit42tat.pl
blob: 4ec519d91057c1fe0b0346d4fd895c7e6c93bae1 (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).