summaryrefslogtreecommitdiff
path: root/hard_tit4tat.pl
diff options
context:
space:
mode:
authorBenjamin Franzke <benjaminfranzke@googlemail.com>2012-11-08 13:17:20 +0100
committerBenjamin Franzke <benjaminfranzke@googlemail.com>2012-11-08 13:17:20 +0100
commit553e4655f2227783051d5ea7fba65d9135310ad4 (patch)
treedf7ddbc67de4cef8c0eda917c76233ddc63d3feb /hard_tit4tat.pl
parentf22d7a9894d530fa2f8ceaeff3a8a52746ad7a1c (diff)
downloadwbs-553e4655f2227783051d5ea7fba65d9135310ad4.tar.gz
wbs-553e4655f2227783051d5ea7fba65d9135310ad4.tar.bz2
wbs-553e4655f2227783051d5ea7fba65d9135310ad4.zip
Prisoners Dilemma: Move rules to subdirectory
Diffstat (limited to 'hard_tit4tat.pl')
-rw-r--r--hard_tit4tat.pl6
1 files changed, 0 insertions, 6 deletions
diff --git a/hard_tit4tat.pl b/hard_tit4tat.pl
deleted file mode 100644
index 8efc124..0000000
--- a/hard_tit4tat.pl
+++ /dev/null
@@ -1,6 +0,0 @@
-% Hard Tit for Tat:
-% Cooperates unless the opponent has defected
-% at least once in the last two rounds.
-
-hard_tit4tat([A,B|_],d,_,_):-(A=d;B=d),!.
-hard_tit4tat(_,c,_,_).