summaryrefslogtreecommitdiff
path: root/rules/tit42tat.pl
diff options
context:
space:
mode:
Diffstat (limited to 'rules/tit42tat.pl')
-rw-r--r--rules/tit42tat.pl5
1 files changed, 5 insertions, 0 deletions
diff --git a/rules/tit42tat.pl b/rules/tit42tat.pl
new file mode 100644
index 0000000..281bc4d
--- /dev/null
+++ b/rules/tit42tat.pl
@@ -0,0 +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(_,c,_,_).