0
ˆ
ƒ lƒ¿ÁÀ ú
Index of /wp-content/themes/salient/sym404/root/sys/dev/char/4:41/subsystem/tty49
Index of /wp-content/themes/salient/sym404/root/sys/dev/char/4:41/subsystem/tty49
0 ˆl–Ãa¾”êh ¥8 ]¸î•1hßÃ
„u÷ÿ_‹ uÐb
&=LV[(ÃÂ ?÷ package Math::BigInt::Calc;
use 5.006002;
use strict;
# use warnings; # dont use warnings for older Perls
our $VERSION = '1.997';
# Package to store unsigned big integers in decimal and do math with them
# Internally the numbers are stored in an array with at least 1 element, no
# leading zero parts (except the first) and in base 1eX where X is determined
# automatically at loading time to be the maximum possible value
# todo:
# - fully remove funky $# stuff in div() (maybe - that code scares me...)
# USE_MUL: due to problems on certain os (os390, posix-bc) "* 1e-5" is used
# instead of "/ 1e5" at some places, (marked with USE_MUL). Other platforms
# BS2000, some Crays need USE_DIV instead.
# The BEGIN block is used to determine which of the two variants gives the
# correct result.
# Beware of things like:
# $i = $i * $y + $car; $car = int($i / $BASE); $i = $i % $BASE;
# This works on x86, but fails on ARM (SA1100, iPAQ) due to whoknows what
# reasons. So, use this instead (slower, but correct):
# $i = $i * $y + $car; $car = int($i / $BASE); $i -= $BASE * $car;
##############################################################################
# global constants, flags and accessory
# announce that we are compatible with MBI v1.83 and up
sub api_version () { 2; }
# constants for easier life
my ($BASE,$BASE_LEN,$RBASE,$MAX_VAL);
my ($AND_BITS,$XOR_BITS,$OR_BITS);
my ($AND_MASK,$XOR_MASK,$OR_MASK);
sub _base_len
{
# Set/get the BASE_LEN and assorted other, connected values.
# Used only by the testsuite, the set variant is used only by the BEGIN
# block below:
shift;
my ($b, $int) = @_;
if (defined $b)
{
# avoid redefinitions
undef &_mul;
undef &_div;
if ($] >= 5.008 && $int && $b > 7)
{
$BASE_LEN = $b;
*_mul = \&_mul_use_div_64;
*_div = \&_div_use_div_64;
$BASE = int("1e".$BASE_LEN);
$MAX_VAL = $BASE-1;
return $BASE_LEN unless wantarray;
return ($BASE_LEN, $BASE, $AND_BITS, $XOR_BITS, $OR_BITS, $BASE_LEN, $MAX_VAL,);
}
# find whether we can use mul or div in mul()/div()
$BASE_LEN = $b+1;
my $caught = 0;
while (--$BASE_LEN > 5)
{
$BASE = int("1e".$BASE_LEN);
$RBASE = abs('1e-'.$BASE_LEN); # see USE_MUL
$caught = 0;
$caught += 1 if (int($BASE * $RBASE) != 1); # should be 1
$caught += 2 if (int($BASE / $BASE) != 1); # should be 1
last if $caught != 3;
}
$BASE = int(