summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tit42tat.pl5
1 files changed, 5 insertions, 0 deletions
diff --git a/tit42tat.pl b/tit42tat.pl
new file mode 100644
index 0000000..4ec519d
--- /dev/null
+++ b/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).