diff options
Diffstat (limited to 'rules/pavlov.pl')
| -rw-r--r-- | rules/pavlov.pl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/rules/pavlov.pl b/rules/pavlov.pl index 0da8011..5fe3702 100644 --- a/rules/pavlov.pl +++ b/rules/pavlov.pl @@ -1,6 +1,9 @@ % Pavlov: % Cooperates if and only if both players opted for the % same choice in the previous move, otherwise it defects. + +% Syntax: pavlov(+history, -choice, +state_in, -state_out) + pavlov([], c, _, c):-!. pavlov([Choice|_], c, Choice, c):-!. pavlov(_, d, _, d). |