Math::BigIntmódulo en Perl proporciona objetos que representan números enteros con precisión arbitraria y operadores aritméticos sobrecargados.
digit()El método del Math::BigIntmódulo se usa para obtener el dígito n del número dado contando desde la derecha. Para obtener el dígito del lado izquierdo, necesitamos especificar n como negativo.
Sintaxis: Math::BigInt->digit($n)
Parámetro:
$n: un valor entero que indica el dígito que se va a extraer.Devuelve: un valor entero que representa el enésimo dígito del número dado contando desde el lado derecho.
Ejemplo 1: uso del Math::BigInt->digit()método
#!/usr/bin/perl
# Import Math::BigInt module
use Math::BigInt;
$num = 7821593604;
# Create a BigInt object
$x = Math::BigInt->new($num);
# Initialize n
$n = 4;
# Get the nth digit
# counting from right side
$nth_digit = $x->digit($n);
print "${n}th digit in $num is $nth_digit.\n";
# Assign new value to n
$n = 6;
# Get the nth digit
# counting from right side
$nth_digit = $x->digit($n);
print "${n}th digit in $num is $nth_digit.\n";
4th digit in 7821593604 is 9. 6th digit in 7821593604 is 1.
Ejemplo 2: uso del Math::BigInt->digit()método para obtener el n- ésimo dígito desde la izquierda
#!/usr/bin/perl
# Import Math::BigInt module
use Math::BigInt;
$num = 7821593604;
# Create a BigInt object
$x = Math::BigInt->new($num);
# To get nth digit form
# left side of the number
# we need to specify n
# as a negative number
# If n is negative then
# then method will return
# nth digit from left side
# but counting will start from 1.
# Initialize n
$n = 4;
# Get the nth digit
# from left side
$nth_digit = $x->digit(-$n);
print "${n}th digit from left in $num is $nth_digit.\n";
# Assign new value to n
$n = 6;
# Get the nth digit
# counting from left side
$nth_digit = $x->digit(-$n);
print "${n}th digit from left in $num is $nth_digit.\n";
4th digit from left in 7821593604 is 1. 6th digit from left in 7821593604 is 9.
Ejemplo 3: uso del Math::BigInt->digit()método para calcular la suma de los dígitos de un número
#!/usr/bin/perl
# Import Math::BigInt module
use Math::BigInt;
$num = 7821593604;
# Create a BigInt object
$x = Math::BigInt->new($num);
# Get the length of the number
$length = $x->length();
# Variable to store sum
$sum = 0;
# for loop to calculate
# sum of digits in given number
for($i = 0; $i < $length; $i++)
{
# Get the ith digit from the
# right side of the number
$sum = $sum + $x->digit($i);
}
# Print sum
print "Sum of digits in $num is $sum.";
Sum of digits in 7821593604 is 45.