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

(limited to 'rules/naive_prober.pl')

diff --git a/rules/naive_prober.pl b/rules/naive_prober.pl
new file mode 100644
index 0000000..df2bcf5
--- /dev/null
+++ b/rules/naive_prober.pl
@@ -0,0 +1,9 @@
+% Naive Prober:
+% Like Tit for Tat, but sometimes, after the opponent has cooperated, it
+% defects (e.g. at random, in one of ten rounds in average).
+
+naive_prober([d|_],d,_,_).
+% but only for for 90% if coorporated
+naive_prober([c|_],Choice,_,_):-random(Number), (Number < 0.1 -> Choice=d; Choice=c).
+% Fallback to coorporate if history is empty.
+naive_prober([],c,_,_).
-- 
cgit