HACK: needed for MBI 1.999715 compatibility
Karel Miko
5 years ago
330 | 330 | 0 + $class -> _str($x); |
331 | 331 | } |
332 | 332 | |
333 | ### same as _fac() in Math::BigInt::Lib | |
333 | ### PATCHED _fac() from Math::BigInt::Lib | |
334 | 334 | sub _fac { |
335 | 335 | # factorial |
336 | 336 | my ($class, $x) = @_; |
338 | 338 | my $two = $class -> _two(); |
339 | 339 | |
340 | 340 | if ($class -> _acmp($x, $two) < 0) { |
341 | return $class -> _one(); | |
341 | ###HACK: needed for MBI 1.999715 compatibility | |
342 | ###return $class -> _one(); | |
343 | $class->_set($x, 1); return $x | |
342 | 344 | } |
343 | 345 | |
344 | 346 | my $i = $class -> _copy($x); |
350 | 352 | return $x; |
351 | 353 | } |
352 | 354 | |
353 | ### same as _dfac() in Math::BigInt::Lib | |
355 | ### PATCHED _dfac() from Math::BigInt::Lib | |
354 | 356 | sub _dfac { |
355 | 357 | # double factorial |
356 | 358 | my ($class, $x) = @_; |
358 | 360 | my $two = $class -> _two(); |
359 | 361 | |
360 | 362 | if ($class -> _acmp($x, $two) < 0) { |
361 | return $class -> _one(); | |
363 | ###HACK: needed for MBI 1.999715 compatibility | |
364 | ###return $class -> _one(); | |
365 | $class->_set($x, 1); return $x | |
362 | 366 | } |
363 | 367 | |
364 | 368 | my $i = $class -> _copy($x); |