blob: 2cf520c5741a3e1d8c7d53b2dcd549224133707e (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
% Tit for Tat:
% Begins with cooperation and then plays what its opponent played in the last
% move (if the opponent defects in some round, Tit for Tat will defect in the
% following one; to cooperation it responds with cooperation).
% Syntax: MODULE(UserDecisionHistry [in], ModuleDecision [out])
% Use opponents last decision
tit4tat([Last|_],Last,_,_).
% Fallback to coorporate if history is empty.
tit4tat([],c,_,_).
|
