From f22d7a9894d530fa2f8ceaeff3a8a52746ad7a1c Mon Sep 17 00:00:00 2001 From: Benjamin Franzke Date: Thu, 8 Nov 2012 11:04:25 +0100 Subject: Prisoners Dilemma: Add descriptions to non-trivial understandable modules --- hard_tit4tat.pl | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'hard_tit4tat.pl') diff --git a/hard_tit4tat.pl b/hard_tit4tat.pl index 5bff447..8efc124 100644 --- a/hard_tit4tat.pl +++ b/hard_tit4tat.pl @@ -1,2 +1,6 @@ +% Hard Tit for Tat: +% Cooperates unless the opponent has defected +% at least once in the last two rounds. + hard_tit4tat([A,B|_],d,_,_):-(A=d;B=d),!. hard_tit4tat(_,c,_,_). -- cgit