diff options
-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,_,_). |