diff options
| author | Adam Russell <ac.russell@live.com> | 2021-10-17 12:47:12 -0400 |
|---|---|---|
| committer | Adam Russell <ac.russell@live.com> | 2021-10-17 12:47:12 -0400 |
| commit | 68577919721b2af39940da924aee12470866fcba (patch) | |
| tree | dc853f20e7b75025b811b2d52e1faea52a36a726 | |
| parent | e57039cd85bba6b5143955292f705d3d4bdbca7a (diff) | |
| download | perlweeklychallenge-club-68577919721b2af39940da924aee12470866fcba.tar.gz perlweeklychallenge-club-68577919721b2af39940da924aee12470866fcba.tar.bz2 perlweeklychallenge-club-68577919721b2af39940da924aee12470866fcba.zip | |
updated Prolog solution to part 1
| -rw-r--r-- | challenge-134/adam-russell/prolog/ch-1.p | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/challenge-134/adam-russell/prolog/ch-1.p b/challenge-134/adam-russell/prolog/ch-1.p index bc664eb953..62d13baa3c 100644 --- a/challenge-134/adam-russell/prolog/ch-1.p +++ b/challenge-134/adam-russell/prolog/ch-1.p @@ -10,6 +10,7 @@ pandigital(Pandigitals):- Pandigitals = [A, B, C, D, E, F, G, H, I, J], fd_domain([A, B, C, D, E, F, G, H, I, J], Digits), A #= 1, + B #= 0, all_unique([A, B, C, D, E, F, G, H, I, J], Digits), fd_labeling(Pandigitals). @@ -24,4 +25,4 @@ print_pandigitals([H|T]):- flatten(Codes, DigitCodes), number_codes(Number, DigitCodes), write(Number), nl, - print_pandigitals(T).
\ No newline at end of file + print_pandigitals(T).
\ No newline at end of file |