From cefe0246166fd68ae0877a37717d0b18b3551750 Mon Sep 17 00:00:00 2001
From: Jan Klemkow <j.klemkow@wemelug.de>
Date: Sun, 11 Nov 2012 09:51:55 +0100
Subject: Add tit4tat prolog code example.

---
 doc/presentation.asciidoc | 12 +-----------
 1 file changed, 1 insertion(+), 11 deletions(-)

(limited to 'doc/presentation.asciidoc')

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
-- 
cgit