From 22b189d3f9b07e0bd9d3fc2c852b16560980d8f6 Mon Sep 17 00:00:00 2001 From: Jan Klemkow Date: Sat, 10 Nov 2012 16:24:13 +0100 Subject: Add prolog code for tit3tat rules. --- doc/presentation.asciidoc | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) 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! -- cgit