diff options
| -rw-r--r-- | rules/gradual_killer.pl | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/rules/gradual_killer.pl b/rules/gradual_killer.pl index c40eeb9..2fb15cb 100644 --- a/rules/gradual_killer.pl +++ b/rules/gradual_killer.pl @@ -14,8 +14,7 @@ gradual_killer(_, d, [4], [5]). gradual_killer(_, c, [5], [6]). gradual_killer(_, c, [6], [7]). -gradual_killer([d,d|_], d, [7], [d]):-!. -gradual_killer(_, c, [7], [c]). +gradual_killer([d,d|_], d, [7], [8,d]):-!. +gradual_killer(_, c, [7], [8,c]). -gradual_killer(_, c, [c], [c]). -gradual_killer(_, d, [d], [d]). +gradual_killer(_, Choice, [8,Choice], [8,Choice]). |