diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2021-01-19 09:02:15 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-01-19 09:02:15 +0000 |
| commit | bcce0eeb74339b26c8785b078c99adef69f8cb25 (patch) | |
| tree | 6b3d615a0970dd638d5bd6c7b910ba05dc8856d8 /challenge-095 | |
| parent | 228d571ca435fd4a11d0886f7ffad37a831952ca (diff) | |
| parent | 35a89c1da3ae59d13fa54c8302b3f9fad5f132dc (diff) | |
| download | perlweeklychallenge-club-bcce0eeb74339b26c8785b078c99adef69f8cb25.tar.gz perlweeklychallenge-club-bcce0eeb74339b26c8785b078c99adef69f8cb25.tar.bz2 perlweeklychallenge-club-bcce0eeb74339b26c8785b078c99adef69f8cb25.zip | |
Merge pull request #3319 from adamcrussell/challenge-095
updated prolog code for part 1
Diffstat (limited to 'challenge-095')
| -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, |