From 68577919721b2af39940da924aee12470866fcba Mon Sep 17 00:00:00 2001 From: Adam Russell Date: Sun, 17 Oct 2021 12:47:12 -0400 Subject: updated Prolog solution to part 1 --- challenge-134/adam-russell/prolog/ch-1.p | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- cgit