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).