diff options
Diffstat (limited to 'naive_prober.pl')
| -rw-r--r-- | naive_prober.pl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/naive_prober.pl b/naive_prober.pl index dde376d..df2bcf5 100644 --- a/naive_prober.pl +++ b/naive_prober.pl @@ -1,6 +1,7 @@ -% 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: +% 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). |