- Handle negative n in is_palindrome(n) and next_palindrome(n).

Negative numbers are not considered palindromic, therefore `is_palindrome(n)` will always return false when n < 0. Additionally, `next_palindrome(n)` will now return NaN when n < 0.
trizen · Jul 19, 2021 · 1bab26c · 1bab26c
1 parent 10cad12
commit 1bab26c
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/lib/Sidef/Types/Number/Number.pm b/lib/Sidef/Types/Number/Number.pm
@@ -18664,6 +18664,9 @@ package Sidef::Types::Number::Number {
             $k = _any2mpz($$k) // return Sidef::Types::Bool::Bool::FALSE;
         }
 
+        Math::GMPz::Rmpz_sgn($n) >= 0
+            or return Sidef::Types::Bool::Bool::FALSE;
+
         # Optimization for bases <= 62
         if (!defined($k) or Math::GMPz::Rmpz_cmp_ui($k, 62) <= 0) {
 
@@ -18700,6 +18703,9 @@ package Sidef::Types::Number::Number {
 
         $n = _any2mpz($$n) // goto &nan;
 
+        Math::GMPz::Rmpz_sgn($n) >= 0
+            or goto &nan;
+
         my @d;
 
         if ($base <= 10) {