diff options
author | Benjamin Franzke <benjaminfranzke@googlemail.com> | 2012-11-07 12:55:10 +0100 |
---|---|---|
committer | Benjamin Franzke <benjaminfranzke@googlemail.com> | 2012-11-07 12:55:10 +0100 |
commit | a4981391e069f1705f928524a4ef2b2a36586a71 (patch) | |
tree | 9d49c53b4687415ea2a26a784573cc7f7aaec15e | |
parent | c70429d4abe325ff71c85b89fc6308117d0487fc (diff) | |
download | wbs-a4981391e069f1705f928524a4ef2b2a36586a71.tar.gz wbs-a4981391e069f1705f928524a4ef2b2a36586a71.tar.bz2 wbs-a4981391e069f1705f928524a4ef2b2a36586a71.zip |
grudger,mistrust_tit4tat: Add missing parameter
-rw-r--r-- | grudger.pl | 6 | ||||
-rw-r--r-- | mistrust_tit4tat.pl | 2 |
2 files changed, 4 insertions, 4 deletions
@@ -2,6 +2,6 @@ % that move defects forever (he does not forgive). % http://euler.fd.cvut.cz/predmety/game_theory/lecture_repeat.pdf -grudger([], c). -grudger([d|_], d). -grudger([c|Tail], Decision, _, _) :- grudger(Tail, Decision). +grudger([], c, _, _). +grudger([d|_], d, _, _). +grudger([c|Tail], Decision, _, _) :- grudger(Tail, Decision, _, _). diff --git a/mistrust_tit4tat.pl b/mistrust_tit4tat.pl index 5b95b9e..3c150c5 100644 --- a/mistrust_tit4tat.pl +++ b/mistrust_tit4tat.pl @@ -1,6 +1,6 @@ % Syntax: MODULE(UserDecisionHistry [in], ModuleDecision [out]) % Use opponents last decision -mistrust_tit4tat([Last|_],Last). +mistrust_tit4tat([Last|_],Last,_,_). % Fallback to defect if history is empty. mistrust_tit4tat([],d,_,_). |