summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBenjamin Franzke <benjaminfranzke@googlemail.com>2012-11-08 10:57:43 +0100
committerBenjamin Franzke <benjaminfranzke@googlemail.com>2012-11-08 10:57:43 +0100
commit60f1dc0764ba6c9a138fbd8976a2a2961564196c (patch)
tree29c5bfa13c70b3fe068feeffaf7c321d1a123177
parentc7fc05f446b4d801038dab1220b5e6173a2c72fc (diff)
downloadwbs-60f1dc0764ba6c9a138fbd8976a2a2961564196c.tar.gz
wbs-60f1dc0764ba6c9a138fbd8976a2a2961564196c.tar.bz2
wbs-60f1dc0764ba6c9a138fbd8976a2a2961564196c.zip
naive_prober: Use if-then-else for random decision too
-rw-r--r--naive_prober.pl8
1 files changed, 1 insertions, 7 deletions
diff --git a/naive_prober.pl b/naive_prober.pl
index 946dd0d..dde376d 100644
--- a/naive_prober.pl
+++ b/naive_prober.pl
@@ -1,14 +1,8 @@
% 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_random(Number, d):-Number < 0.1,!.
-naive_prober_random(_, c).
-
-% Use opponents last decision
naive_prober([d|_],d,_,_).
% but only for for 90% if coorporated
-naive_prober([c|_],Choice,_,_):-
- random(Number), naive_prober_random(Number, Choice).
+naive_prober([c|_],Choice,_,_):-random(Number), (Number < 0.1 -> Choice=d; Choice=c).
% Fallback to coorporate if history is empty.
naive_prober([],c,_,_).