From 35a89c1da3ae59d13fa54c8302b3f9fad5f132dc Mon Sep 17 00:00:00 2001 From: Adam Russell Date: Mon, 18 Jan 2021 15:27:56 -0500 Subject: updated prolog code for part 1 --- challenge-095/adam-russell/prolog/ch-1.p | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/challenge-095/adam-russell/prolog/ch-1.p b/challenge-095/adam-russell/prolog/ch-1.p index d40e0ec417..198b8d5a1e 100644 --- a/challenge-095/adam-russell/prolog/ch-1.p +++ b/challenge-095/adam-russell/prolog/ch-1.p @@ -19,14 +19,16 @@ palindrome_odd([H|T]):- palindrome_odd(L). palindrome(N):- - N > 0, + current_prolog_flag(max_integer, MAX_INTEGER), + between(1, MAX_INTEGER, N), number_chars(N, C), length(C, Length), M is Length mod 2, M == 0, palindrome_even(C). palindrome(N):- - N > 0, + current_prolog_flag(max_integer, MAX_INTEGER), + between(1, MAX_INTEGER, N), number_chars(N, C), length(C, Length), M is Length mod 2, -- cgit