diff options
| -rw-r--r-- | challenge-095/adam-russell/prolog/ch-1.p | 6 |
1 files 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, |