Math::BigInt
módulo en Perl proporciona objetos que representan números enteros con precisión arbitraria y operadores aritméticos sobrecargados.
is_odd()
El método de Math::BigInt
módulo se utiliza para verificar si un número almacenado como BigInt
objeto es un número impar o no.
Sintaxis: Math::BigInt->is_odd()
Parámetro: Ninguno
Devuelve: verdadero si el número almacenado en el objeto BigInt es un número impar; de lo contrario, devuelve falso.
Ejemplo 1: Uso del Math::BigInt->is_odd()
método
#!/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"; }
Producción:
89123751682746 is not an odd number 6348762649837957979685908708650797587783 is an odd number
Ejemplo 2: uso del Math::BigInt->is_odd()
método para verificar si el número octal es un número impar en decimal o no.
#!/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"; }
Producción:
726746425 (in octal) is an odd number in decimal
Ejemplo 3: Uso del Math::BigInt->is_odd()
método para verificar si un hexadecimal es un número impar en decimal o no.
#!/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"; }
Producción:
Ox112210F4B16C1CB1 (in hexadecimal) is an odd number in decimal