珀尔 | Math::BigInt->is_odd() 方法

珀尔 | Math::BigInt->is_odd() 方法

Perl 中的Math::BigInt模块提供了表示具有任意精度和重载算术运算运算符的整数的对象。

Math::BigInt模块的is_odd()方法用于检查存储为BigInt对象的数字是否为奇数。

Syntax: Math::BigInt->is_odd()

Parameter: None

Returns: true if the number stored in BigInt object is an odd number, otherwise returns false.

示例 1：使用Math::BigInt->is_odd()方法

#!/usr/bin/perl 
  
# Import Math::BigInt module
use Math::BigInt;
  
# Value of n
$n = '89123751682746';
  
# Create BigInt object
$x = Math::BigInt->new($n);
  
# Check if the number stored
# in BigInt object is 
# an odd number or not
$isOdd = $x->is_odd();
  
if ($isOdd)
{
    print "$n is an odd number\n";
}
  
else
{
    print "$n is not an odd number\n";
}
  
# Value of n
$n = '6348762649837957979685908708650797587783';
  
# Create BigInt object
$x = Math::BigInt->new($n);
  
# Check if the number stored
# in BigInt object is
# an odd number or not
$isOdd = $x->is_odd();
  
if ($isOdd)
{
    print "$n is an odd number\n";
}
  
else
{
    print "$n is not an odd number\n";
}

输出：

89123751682746 is not an odd number
6348762649837957979685908708650797587783 is an odd number

示例 2：使用Math::BigInt->is_odd()方法检查八进制数是否为十进制奇数。

#!/usr/bin/perl 
  
# Import Math::BigInt module
use Math::BigInt;
  
# Octal number represented as string
$octal = 726746425;
  
# value of octal '726746425'  is
# 123456789 in decimal number system 
  
  
# Create BigInt object
$x = Math::BigInt->from_oct($octal);
  
# Check whether the Octal 
# number stored in BigInt object
# is an odd number or not 
# using Math::BigInt->is_odd() method
$isOdd = $x->is_odd();
  
if($isOdd)
{
    print "$octal (in octal) is an odd number in decimal";
}
  
else
{
    print "$octal (in octal) is not an odd number in decimal";
}

输出：

726746425 (in octal) is an odd number in decimal

示例 3：使用Math::BigInt->is_odd()方法检查十六进制是否为十进制奇数。

#!/usr/bin/perl 
  
# Import Math::BigInt module
use Math::BigInt;
  
# Hexadecimal number represented as string
$hex = 'Ox112210F4B16C1CB1';
  
# Hexadecimal value '0x112210F4B16C1CB1'  is
# 1234567890987654321 in decimal number system 
  
  
# Create BigInt object
$x = Math::BigInt->new($hex);
  
# Check whether the hexadecimal
# number stored in BigInt object
# is an odd number or not 
# using Math::BigInt->is_odd() method
$isOdd = $x->is_odd();
  
if($isOdd)
{
    print "$hex (in hexadecimal) is an odd number in decimal";
}
  
else
{
    print "$hex (in hexadecimal) is not an odd number in decimal";
}

输出：

Ox112210F4B16C1CB1 (in hexadecimal) is an odd number in decimal