diff options
Diffstat (limited to 'rules/naive_prober.pl')
| -rw-r--r-- | rules/naive_prober.pl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/rules/naive_prober.pl b/rules/naive_prober.pl index df2bcf5..72debd3 100644 --- a/rules/naive_prober.pl +++ b/rules/naive_prober.pl @@ -2,6 +2,8 @@ % Like Tit for Tat, but sometimes, after the opponent has cooperated, it % defects (e.g. at random, in one of ten rounds in average). +% Syntax: naive_prober(+history, -choice, +state_in, -state_out) + naive_prober([d|_],d,_,_). % but only for for 90% if coorporated naive_prober([c|_],Choice,_,_):-random(Number), (Number < 0.1 -> Choice=d; Choice=c). |