From ff107aa87ef8dd4c6becb7574c3aa4311ceb89b8 Mon Sep 17 00:00:00 2001
From: Benjamin Franzke <benjaminfranzke@googlemail.com>
Date: Tue, 6 Nov 2012 17:27:24 +0100
Subject: Prisoners Dilemma: Add random decision module

---
 random_choice.pl | 4 ++++
 1 file changed, 4 insertions(+)
 create mode 100644 random_choice.pl

diff --git a/random_choice.pl b/random_choice.pl
new file mode 100644
index 0000000..3a2dfe3
--- /dev/null
+++ b/random_choice.pl
@@ -0,0 +1,4 @@
+random_choice_do(c,Number):-Number < 0.5,!.
+random_choice_do(d,_).
+
+random_choice(_, Choice) :- random(Number), random_choice_do(Choice, Number).
-- 
cgit