Math::BigInt module in Perl provides objects that represent integers with arbitrary precision and overloaded arithmetical operators.
bone() method of Math::BigInt module is used to create a new object with value one and if used on an existing object, it sets it to one.
Syntax: Math::BigInt->bone()
Parameter:
plus or minus: to set the sign of one as ‘+’ or ‘-‘Returns: object with value one
Example 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");
|
Output:
1 -1
Example 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");
|
Output:
Before function call: 78215936043546 After function call: 1
Example 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");
|
Output:
Before function call: 78215936043546 After function call: -1