blob: 2fe0a8f73ea9a3b6f745b391f67f8b77a911e4a0 (
plain)
1
2
3
4
5
6
7
8
9
|
% 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).
% Use opponents last decision
tit4tat([Last|_],Last,_,_).
% Fallback to coorporate if history is empty.
tit4tat([],c,_,_).
|
