Select Code to Download

# x is 2 to the 128th
my $x = Math::BigFloat->new(q(2.0));
...
# $product starts as x!
  $product = $x->copy();
  $product->bfac();

Can't use an undefined value as an ARRAY reference at
    /System/Library/Perl/5.8.6/Math/BigInt/Calc.pm line 899 (#1)
...
    Math::BigInt::Calc::_acmp('ARRAY(0x18690a0)', 'ARRAY(0x18690d0)') 
+called at /System/Library/Perl/5.8.6/Math/BigInt/Calc.pm line 1304
    Math::BigInt::Calc::_fac('Math::BigInt::Calc', 'ARRAY(0x1868fc8)')
+ called at /System/Library/Perl/5.8.6/Math/BigFloat.pm line 1789
    Math::BigFloat::bfac('Math::BigFloat=HASH(0x1868f5c)') called at r
+epeat.pl line 19