diff options
author | Benjamin Franzke <benjaminfranzke@googlemail.com> | 2012-11-08 10:57:43 +0100 |
---|---|---|
committer | Benjamin Franzke <benjaminfranzke@googlemail.com> | 2012-11-08 10:57:43 +0100 |
commit | 60f1dc0764ba6c9a138fbd8976a2a2961564196c (patch) | |
tree | 29c5bfa13c70b3fe068feeffaf7c321d1a123177 | |
parent | c7fc05f446b4d801038dab1220b5e6173a2c72fc (diff) | |
download | wbs-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.pl | 8 |
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,_,_). |