Math::BigIntmódulo en Perl proporciona objetos que representan números enteros con precisión arbitraria y operadores aritméticos sobrecargados.
El método bone() del Math::BigIntmódulo se usa para crear un nuevo objeto con valor uno y, si se usa en un objeto existente, lo establece en uno.
Sintaxis: Math::BigInt->hueso()
Parámetro:
más o menos: para establecer el signo de uno como ‘+’ o ‘-‘Devoluciones: objeto con valor uno
Ejemplo 1:
#!/usr/bin/perl
# Import Math::BigInt module
use Math::BigInt;
# Create a BigInt object
$x = Math::BigInt->bone();
# Object created with bone()
print("$x\n");
# Create a BigInt object
$x = Math::BigInt->bone('-');
# Object created with bone()
print("$x");
Producción:
1 -1
Ejemplo 2:
#!/usr/bin/perl
# Import Math::BigInt module
use Math::BigInt;
# Specify number
$num = 78215936043546;
# Create BigInt object
$x = Math::BigInt->new($num);
# Object before function call
print("Before function call: $x\n");
# Calling the function
$x->bone();
# Object after function call
print("After function call: $x");
Producción:
Before function call: 78215936043546 After function call: 1
Ejemplo 3:
#!/usr/bin/perl
# Import Math::BigInt module
use Math::BigInt;
# Specify number
$num = 78215936043546;
# Create BigInt object
$x = Math::BigInt->new($num);
# Object before function call
print("Before function call: $x\n");
# Calling the function with '-' sign
$x->bone('-');
# Object after function call
print("After function call: $x");
Producción:
Before function call: 78215936043546 After function call: -1