summaryrefslogtreecommitdiff
path: root/mistrust_tit4tat.pl
blob: 5e80c02a60378bd0d4dcbee9c9e9b38f730150fa (plain)
1
2
3
4
5
6
7
% Mistrust Tit for Tat:
% In the first round it defects, than it plays opponent’s move.

% Use opponents last decision
mistrust_tit4tat([Last|_],Last,_,_).
% Fallback to defect if history is empty.
mistrust_tit4tat([],d,_,_).