diff options
| author | Benjamin Franzke <benjaminfranzke@googlemail.com> | 2012-11-08 11:04:25 +0100 |
|---|---|---|
| committer | Benjamin Franzke <benjaminfranzke@googlemail.com> | 2012-11-08 11:04:25 +0100 |
| commit | f22d7a9894d530fa2f8ceaeff3a8a52746ad7a1c (patch) | |
| tree | c295f5d80c5c69aa26cf198e073e855c60879a89 /hard_tit4tat.pl | |
| parent | 60f1dc0764ba6c9a138fbd8976a2a2961564196c (diff) | |
| download | wbs-f22d7a9894d530fa2f8ceaeff3a8a52746ad7a1c.tar.gz wbs-f22d7a9894d530fa2f8ceaeff3a8a52746ad7a1c.tar.bz2 wbs-f22d7a9894d530fa2f8ceaeff3a8a52746ad7a1c.zip | |
Prisoners Dilemma: Add descriptions to non-trivial understandable modules
Diffstat (limited to 'hard_tit4tat.pl')
| -rw-r--r-- | hard_tit4tat.pl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/hard_tit4tat.pl b/hard_tit4tat.pl index 5bff447..8efc124 100644 --- a/hard_tit4tat.pl +++ b/hard_tit4tat.pl @@ -1,2 +1,6 @@ +% Hard Tit for Tat: +% Cooperates unless the opponent has defected +% at least once in the last two rounds. + hard_tit4tat([A,B|_],d,_,_):-(A=d;B=d),!. hard_tit4tat(_,c,_,_). |