summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBenjamin Franzke <benjaminfranzke@googlemail.com>2012-11-07 10:50:52 +0100
committerBenjamin Franzke <benjaminfranzke@googlemail.com>2012-11-07 10:51:54 +0100
commitacb757d2d55cdd13a7bd006c2b50785d4ba8400d (patch)
tree02bcf2a05995c73f0349b3f607b5622ab0e53baf
parent1c86bdd6b2f717bb722983377d144a9b2863fc68 (diff)
downloadwbs-acb757d2d55cdd13a7bd006c2b50785d4ba8400d.tar.gz
wbs-acb757d2d55cdd13a7bd006c2b50785d4ba8400d.tar.bz2
wbs-acb757d2d55cdd13a7bd006c2b50785d4ba8400d.zip
Prisoners Dilemma: Add periodically DDC and SSZ algorithm
-rw-r--r--periodically_ddc.pl4
-rw-r--r--periodically_ssz.pl4
2 files changed, 8 insertions, 0 deletions
diff --git a/periodically_ddc.pl b/periodically_ddc.pl
new file mode 100644
index 0000000..897986d
--- /dev/null
+++ b/periodically_ddc.pl
@@ -0,0 +1,4 @@
+% Plays periodically: Defect–Defect–Coop.
+periodically_ddc(_, d, [], [1]).
+periodically_ddc(_, d, [1], [2]).
+periodically_ddc(_, c, [2], []).
diff --git a/periodically_ssz.pl b/periodically_ssz.pl
new file mode 100644
index 0000000..21cb017
--- /dev/null
+++ b/periodically_ssz.pl
@@ -0,0 +1,4 @@
+% Plays periodically: Coop-Coop-Defect
+periodically_ssz(_, c, [], [1]).
+periodically_ssz(_, c, [1], [2]).
+periodically_ssz(_, d, [2], []).