tit4tat.pl


1
2
3
4
5
6

% Syntax: MODULE(UserDecisionHistry [in], ModuleDecision [out])

% Use opponents last decision
tit4tat([Last|_],Last,_,_).
% Fallback to coorporate if history is empty.
tit4tat([],c,_,_).