diff options
author | Benjamin Franzke <benjaminfranzke@googlemail.com> | 2012-11-08 15:02:20 +0100 |
---|---|---|
committer | Benjamin Franzke <benjaminfranzke@googlemail.com> | 2012-11-08 15:02:20 +0100 |
commit | a3cb6a31b86fb84f94e257e747a2a312b0d5d3f0 (patch) | |
tree | 76615eeb6c9496412bf26a803e1fef1f45c9eadf | |
parent | 3656d3e8bfc7f074216191fbdc54d0c602a2d9ea (diff) | |
download | wbs-a3cb6a31b86fb84f94e257e747a2a312b0d5d3f0.tar.gz wbs-a3cb6a31b86fb84f94e257e747a2a312b0d5d3f0.tar.bz2 wbs-a3cb6a31b86fb84f94e257e747a2a312b0d5d3f0.zip |
prisoners_dilemma: Remove unneeded decide rule
since its a trivial wrapper for call
-rw-r--r-- | prisoners_dilemma.pl | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/prisoners_dilemma.pl b/prisoners_dilemma.pl index 535db0d..a77915c 100644 --- a/prisoners_dilemma.pl +++ b/prisoners_dilemma.pl @@ -24,14 +24,12 @@ pay(d,c,4). pay2(A, B, PayA, PayB) :- pay(A, B, PayA), pay(B, A, PayB). -decide(Module, Hist, Decision, State, NewState) :- call(Module, Hist, Decision, State, NewState). - sum([], 0). sum([H|T], S) :- sum(T, TMP), S is TMP + H. do(e, _, _, _, _) :- !. do(Choice, Module, ModuleState, Hist, PayedA, PayedB) :- - decide(Module, Hist, ModuleDecision, ModuleState, NewModuleState), + call(Module, Hist, ModuleDecision, ModuleState, NewModuleState), pay2(Choice, ModuleDecision, PayA, PayB), sum([PayA|PayedA], SumA), sum([PayB|PayedB], SumB), |