From 553e4655f2227783051d5ea7fba65d9135310ad4 Mon Sep 17 00:00:00 2001
From: Benjamin Franzke <benjaminfranzke@googlemail.com>
Date: Thu, 8 Nov 2012 13:17:20 +0100
Subject: Prisoners Dilemma: Move rules to subdirectory

---
 rules/tit4tat.pl | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 rules/tit4tat.pl

(limited to 'rules/tit4tat.pl')

diff --git a/rules/tit4tat.pl b/rules/tit4tat.pl
new file mode 100644
index 0000000..2cf520c
--- /dev/null
+++ b/rules/tit4tat.pl
@@ -0,0 +1,11 @@
+% 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).
+
+% Syntax: MODULE(UserDecisionHistry [in], ModuleDecision [out])
+
+% Use opponents last decision
+tit4tat([Last|_],Last,_,_).
+% Fallback to coorporate if history is empty.
+tit4tat([],c,_,_).
-- 
cgit