summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJan Klemkow <j.klemkow@wemelug.de>2012-11-10 16:24:13 +0100
committerJan Klemkow <j.klemkow@wemelug.de>2012-11-10 16:24:13 +0100
commit22b189d3f9b07e0bd9d3fc2c852b16560980d8f6 (patch)
tree7bfa6f7ea733d9046623762740f2ddea5d8835c5
parent1cc3cc85fdb8a187593584aac2db365cf0ec29f9 (diff)
downloadwbs-22b189d3f9b07e0bd9d3fc2c852b16560980d8f6.tar.gz
wbs-22b189d3f9b07e0bd9d3fc2c852b16560980d8f6.tar.bz2
wbs-22b189d3f9b07e0bd9d3fc2c852b16560980d8f6.zip
Add prolog code for tit3tat rules.
-rw-r--r--doc/presentation.asciidoc17
1 files changed, 17 insertions, 0 deletions
diff --git a/doc/presentation.asciidoc b/doc/presentation.asciidoc
index ebd2091..dc9ad65 100644
--- a/doc/presentation.asciidoc
+++ b/doc/presentation.asciidoc
@@ -10,6 +10,23 @@ Gefangenendilemma in Prolog
== Spielregeln
image::image/game_rules.svg[game rules]
+== Computerspielerregeln
+
+[source,prolog]
+----
+% Tit for Tat:
+% Begins with cooperation and then plays what its opponent played in the last
+% move (if the opponent defects in some round, Tit for Tat will defect in the
+% following one; to cooperation it responds with cooperation).
+
+% Syntax: MODULE(UserDecisionHistry [in], ModuleDecision [out])
+
+% Use opponents last decision
+tit4tat([Last|_],Last,_,_).
+% Fallback to coorporate if history is empty.
+tit4tat([],c,_,_).
+----
+
== Netzwerkprotokoll
* TCP Port 8068
* Uebertragung von einem Byte!