diff options
| author | Adam Russell <ac.russell@live.com> | 2021-01-18 15:27:56 -0500 |
|---|---|---|
| committer | Adam Russell <ac.russell@live.com> | 2021-01-18 15:27:56 -0500 |
| commit | 35a89c1da3ae59d13fa54c8302b3f9fad5f132dc (patch) | |
| tree | 0243afb46bb6f949f7e2230b74eaf8537ae1a89f | |
| parent | c0e0f2373644e88937f524514b7bc7efbf9d6caa (diff) | |
| download | perlweeklychallenge-club-35a89c1da3ae59d13fa54c8302b3f9fad5f132dc.tar.gz perlweeklychallenge-club-35a89c1da3ae59d13fa54c8302b3f9fad5f132dc.tar.bz2 perlweeklychallenge-club-35a89c1da3ae59d13fa54c8302b3f9fad5f132dc.zip | |
updated prolog code for part 1
| -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, |