From 4affb8a63a09aacae4fe2c2c4bda8b9459eb5ef9 Mon Sep 17 00:00:00 2001
From: Benjamin Franzke <benjaminfranzke@googlemail.com>
Date: Wed, 7 Nov 2012 13:47:50 +0100
Subject: Prisoners Dilemma: Add hard_tit4tat algorithm

---
 hard_tit4tat.pl | 2 ++
 1 file changed, 2 insertions(+)
 create mode 100644 hard_tit4tat.pl

diff --git a/hard_tit4tat.pl b/hard_tit4tat.pl
new file mode 100644
index 0000000..5bff447
--- /dev/null
+++ b/hard_tit4tat.pl
@@ -0,0 +1,2 @@
+hard_tit4tat([A,B|_],d,_,_):-(A=d;B=d),!.
+hard_tit4tat(_,c,_,_).
-- 
cgit