summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJan Klemkow <j.klemkow@wemelug.de>2012-11-11 09:51:55 +0100
committerJan Klemkow <j.klemkow@wemelug.de>2012-11-11 09:51:55 +0100
commitcefe0246166fd68ae0877a37717d0b18b3551750 (patch)
treeecda5fed93c22d89653602a55ec81ccdb38e1c76
parent22b189d3f9b07e0bd9d3fc2c852b16560980d8f6 (diff)
downloadwbs-cefe0246166fd68ae0877a37717d0b18b3551750.tar.gz
wbs-cefe0246166fd68ae0877a37717d0b18b3551750.tar.bz2
wbs-cefe0246166fd68ae0877a37717d0b18b3551750.zip
Add tit4tat prolog code example.
-rw-r--r--doc/presentation.asciidoc12
1 files changed, 1 insertions, 11 deletions
diff --git a/doc/presentation.asciidoc b/doc/presentation.asciidoc
index dc9ad65..38b565e 100644
--- a/doc/presentation.asciidoc
+++ b/doc/presentation.asciidoc
@@ -14,17 +14,7 @@ image::image/game_rules.svg[game rules]
[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,_,_).
+include::../rules/tit4tat.pl[]
----
== Netzwerkprotokoll