diff options
| author | Benjamin Franzke <benjaminfranzke@googlemail.com> | 2012-11-07 11:09:23 +0100 |
|---|---|---|
| committer | Benjamin Franzke <benjaminfranzke@googlemail.com> | 2012-11-07 11:09:23 +0100 |
| commit | 6dccb06aaac40c1c8003e6023063d19c028385e9 (patch) | |
| tree | fc669b47a3fd99a641f03341aa648042168d6a69 /pavlov.pl | |
| parent | acb757d2d55cdd13a7bd006c2b50785d4ba8400d (diff) | |
| download | wbs-6dccb06aaac40c1c8003e6023063d19c028385e9.tar.gz wbs-6dccb06aaac40c1c8003e6023063d19c028385e9.tar.bz2 wbs-6dccb06aaac40c1c8003e6023063d19c028385e9.zip | |
Prisoners Dilemma: Add not-yet-working pavlov
Diffstat (limited to 'pavlov.pl')
| -rw-r--r-- | pavlov.pl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/pavlov.pl b/pavlov.pl new file mode 100644 index 0000000..4ca359f --- /dev/null +++ b/pavlov.pl @@ -0,0 +1,5 @@ +% Cooperates if and only if both players opted for the +% same choice in the previous move, otherwise it defects. +pavlov([], c, _, c). +pavlov([Choice|_], c, Choice, c):-!. +pavlov([_], d, _, d). |