Perl | Math::BigInt->is_odd() method

Last Updated : 3 Oct, 2019
Math::BigInt module in Perl provides objects that represent integers with arbitrary precision and overloaded arithmetical operators. is_odd() method of Math::BigInt module is used to check whether a number stored as BigInt object is an odd number or not.
Syntax: Math::BigInt->is_odd() Parameter: None Returns: true if the number stored in BigInt object is an odd number, otherwise returns false.
Example 1: Use of Math::BigInt->is_odd() method perl
#!/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";
}
Output:
89123751682746 is not an odd number
6348762649837957979685908708650797587783 is an odd number
Example 2: Use of Math::BigInt->is_odd() method to check whether Octal number is an odd number in decimal or not. perl
#!/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";
}
Output:
726746425 (in octal) is an odd number in decimal
Example 3: Use of Math::BigInt->is_odd() method to check whether a hexadecimal is an odd number in decimal or not. perl
#!/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";
}
Output:
Ox112210F4B16C1CB1 (in hexadecimal) is an odd number in decimal
Comment

Explore