diff options
| author | Benjamin Franzke <benjaminfranzke@googlemail.com> | 2012-11-07 12:48:17 +0100 |
|---|---|---|
| committer | Benjamin Franzke <benjaminfranzke@googlemail.com> | 2012-11-07 12:48:17 +0100 |
| commit | c70429d4abe325ff71c85b89fc6308117d0487fc (patch) | |
| tree | 9f92e130cf22852a88bab3fa9947333057e6960a | |
| parent | 1c97abe546122de35286a14e535723212976fa3b (diff) | |
| download | wbs-c70429d4abe325ff71c85b89fc6308117d0487fc.tar.gz wbs-c70429d4abe325ff71c85b89fc6308117d0487fc.tar.bz2 wbs-c70429d4abe325ff71c85b89fc6308117d0487fc.zip | |
tit42tat: Fix incorrect second solution if thre are two defacts in history
| -rw-r--r-- | tit42tat.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tit42tat.pl b/tit42tat.pl index 72a6e6a..281bc4d 100644 --- a/tit42tat.pl +++ b/tit42tat.pl @@ -1,5 +1,5 @@ % Select distraction only if opponents both last decision were to distract. % See: http://en.wikipedia.org/wiki/Tit_for_tat#Tit_for_two_tats -tit42tat([d,d|_],d,_,_). +tit42tat([d,d|_],d,_,_):-!. tit42tat(_,c,_,_). |