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/grudger.pl | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 rules/grudger.pl

(limited to 'rules/grudger.pl')

diff --git a/rules/grudger.pl b/rules/grudger.pl
new file mode 100644
index 0000000..76f9629
--- /dev/null
+++ b/rules/grudger.pl
@@ -0,0 +1,8 @@
+% Grudger, Spiteful:
+% Cooperates until the second has defected, after
+% that move defects forever (he does not forgive).
+% http://euler.fd.cvut.cz/predmety/game_theory/lecture_repeat.pdf
+
+grudger([], c, _, _).
+grudger([d|_], d, _, _).
+grudger([c|Tail], Decision, _, _) :- grudger(Tail, Decision, _, _).
-- 
cgit