Math::BigIntmódulo en Perl proporciona objetos que representan números enteros con precisión arbitraria y operadores aritméticos sobrecargados.
is_even()El método de Math::BigIntmódulo se utiliza para verificar si un número almacenado como BigIntobjeto es par o no.
Sintaxis: Math::BigInt->is_even()
Parámetro: Ninguno
Devuelve: verdadero si el número almacenado en el objeto BigInt es un número par; de lo contrario, devuelve falso.
Ejemplo 1: Uso del Math::BigInt->is_even()método
#!/usr/bin/perl
# Import Math::BigInt module
use Math::BigInt;
# Value of n
$n = '89132506319263974586';
# Create BigInt object
$x = Math::BigInt->new($n);
# Check if the number stored
# in BigInt object is even or not
$isEven = $x->is_even();
if ($isEven)
{
print "$n is an even number\n";
}
else
{
print "$n is not an even number\n";
}
# Value of n
$n = '98793270075788553683446589224555431';
# Create BigInt object
$x = Math::BigInt->new($n);
# Check if the number stored
# in BigInt object is even or not
$isEven = $x->is_even();
if ($isEven)
{
print "$x is an even number";
}
else
{
print "$x is not an even number";
}
Producción:
89132506319263974586 is an even number 98793270075788553683446589224555431 is not an even number
Ejemplo 2: Uso del Math::BigInt->is_even()método para verificar si un número hexadecimal es un número par en decimal o no.
#!/usr/bin/perl
# Import Math::BigInt module
use Math::BigInt;
# Hexadecimal string
$hexValue = '0x24CB016EA';
# value of '0x24CB016EA' in
# decimal number system is 9876543210
# Create BigInt object
$x = Math::BigInt->new($hexValue);
# Check whether the Hexadecimal
# number stored as BigInt object
# is an even number or not
# using Math::BigInt->is_even() method
$isEven = $x->is_even();
if($isEven)
{
print "$hexValue is an even number in decimal";
}
else
{
print "$hexValue is not an even number in decimal";
}
Producción:
0x24CB016EA is an even number in decimal
Ejemplo 3: Uso del Math::BigInt->is_even()método para verificar si un número binario es un número par en decimal o no.
#!/usr/bin/perl
# Import Math::BigInt module
use Math::BigInt;
# Binary string
$binary = '0b1001001100101100000001011011101010';
# 0b1001001100101100000001011011101010
# is 9876543210 in decimal
# Create BigInt object
$x = Math::BigInt->new($binary);
# Check whether the Binary
# number stored as BigInt object
# is an even number or not
# using Math::BigInt->is_even() method
$isEven = $x->is_even();
if($isEven)
{
print "$binary is an even Number in decimal";
}
else
{
print "$binary is not an even number in decimal";
}
Producción:
0b1001001100101100000001011011101010 is an even Number in decimal