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

(limited to 'rules/random_choice.pl')

diff --git a/rules/random_choice.pl b/rules/random_choice.pl
new file mode 100644
index 0000000..3bd4a91
--- /dev/null
+++ b/rules/random_choice.pl
@@ -0,0 +1,2 @@
+random_choice(_, Choice, _, _) :-
+	random(Number),	(Number < 0.5 -> Choice=c ; Choice=d).
-- 
cgit