From a4981391e069f1705f928524a4ef2b2a36586a71 Mon Sep 17 00:00:00 2001 From: Benjamin Franzke Date: Wed, 7 Nov 2012 12:55:10 +0100 Subject: grudger,mistrust_tit4tat: Add missing parameter --- grudger.pl | 6 +++--- mistrust_tit4tat.pl | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/grudger.pl b/grudger.pl index 3a78513..b075a42 100644 --- a/grudger.pl +++ b/grudger.pl @@ -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,_,_). -- cgit