sub is_palindromic_number {
  my $n = 0 + shift;
  return $n == reverse $n;
}