diff options
| author | 2colours <polgar.marton@windowslive.com> | 2025-01-28 18:10:47 +0100 |
|---|---|---|
| committer | 2colours <polgar.marton@windowslive.com> | 2025-01-28 18:10:47 +0100 |
| commit | 90814ffa981bd46b25b7c3b191f57948d09d19f9 (patch) | |
| tree | ca5c3071b9d70f3cfd9acca209e3b028d1d08d4d | |
| parent | fb8c48b8871f0b7753040f2fe1db3a1e13b66f34 (diff) | |
| download | perlweeklychallenge-club-90814ffa981bd46b25b7c3b191f57948d09d19f9.tar.gz perlweeklychallenge-club-90814ffa981bd46b25b7c3b191f57948d09d19f9.tar.bz2 perlweeklychallenge-club-90814ffa981bd46b25b7c3b191f57948d09d19f9.zip | |
Improve determinism of part 2
| -rw-r--r-- | challenge-306/2colours/prolog/ch-2.p | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/challenge-306/2colours/prolog/ch-2.p b/challenge-306/2colours/prolog/ch-2.p index 0b2eba8ab0..465532d012 100644 --- a/challenge-306/2colours/prolog/ch-2.p +++ b/challenge-306/2colours/prolog/ch-2.p @@ -1,6 +1,7 @@ game([], 0). game([Last_Remaining], Last_Remaining). game(List, Result) :- + length(List, N), N > 1, max_list(List, Max1), once(select(Max1, List, Rest)), max_list(Rest, Max2), |