ext/Math-BigRat/t/bigfltpm.inc

   1 #include this file into another test for subclass testing...
   2
   3 ok ($class->config()->{lib},$CL);
   4
   5 use strict;
   6
   7 my $z;
   8
   9 while (<DATA>)
  10   {
  11   chomp;
  12   $_ =~ s/#.*$//;       # remove comments
  13   $_ =~ s/\s+$//;       # trailing spaces
  14   next if /^$/;         # skip empty lines & comments
  15   if (s/^&//)
  16     {
  17     $f = $_;
  18     }
  19   elsif (/^\$/)
  20     {
  21     $setup = $_; $setup =~ s/\$/\$${class}::/g; # round_mode, div_scale
  22     #print "\$setup== $setup\n";
  23     }
  24   else
  25     {
  26     if (m|^(.*?):(/.+)$|)
  27       {
  28       $ans = $2;
  29       @args = split(/:/,$1,99);
  30       }
  31     else
  32       {
  33       @args = split(/:/,$_,99); $ans = pop(@args);
  34       }
  35     $try = "\$x = $class->new(\"$args[0]\");";
  36     if ($f eq "fnorm")
  37       {
  38         $try .= "\$x;";
  39       } elsif ($f eq "finf") {
  40         $try .= "\$x->finf('$args[1]');";
  41       } elsif ($f eq "is_inf") {
  42         $try .= "\$x->is_inf('$args[1]');";
  43       } elsif ($f eq "fone") {
  44         $try .= "\$x->bone('$args[1]');";
  45       } elsif ($f eq "fstr") {
  46         $try .= "\$x->accuracy($args[1]); \$x->precision($args[2]);";
  47         $try .= '$x->fstr();';
  48       } elsif ($f eq "parts") {
  49         # ->bstr() to see if an object is returned
  50         $try .= '($a,$b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr();';
  51         $try .= '"$a $b";';
  52       } elsif ($f eq "exponent") {
  53         # ->bstr() to see if an object is returned
  54         $try .= '$x->exponent()->bstr();';
  55       } elsif ($f eq "mantissa") {
  56         # ->bstr() to see if an object is returned
  57         $try .= '$x->mantissa()->bstr();';
  58       } elsif ($f =~ /^(numify|length|as_number|as_hex|as_bin)$/) {
  59         $try .= "\$x->$f();";
  60       # some unary ops (test the fxxx form, since that is done by AUTOLOAD)
  61       } elsif ($f =~ /^f(nan|sstr|neg|floor|ceil|abs)$/) {
  62         $try .= "\$x->f$1();";
  63       # some is_xxx test function
  64       } elsif ($f =~ /^is_(zero|one|negative|positive|odd|even|nan|int)$/) {
  65         $try .= "\$x->$f();";
  66       } elsif ($f eq "finc") {
  67         $try .= '++$x;';
  68       } elsif ($f eq "fdec") {
  69         $try .= '--$x;';
  70       }elsif ($f eq "fround") {
  71         $try .= "$setup; \$x->fround($args[1]);";
  72       } elsif ($f eq "ffround") {
  73         $try .= "$setup; \$x->ffround($args[1]);";
  74       } elsif ($f eq "fsqrt") {
  75         $try .= "$setup; \$x->fsqrt();";
  76       } elsif ($f eq "ffac") {
  77         $try .= "$setup; \$x->ffac();";
  78       } elsif ($f eq "flog") {
  79         if (defined $args[1] && $args[1] ne '')
  80           {
  81           $try .= "\$y = $class->new($args[1]);";
  82           $try .= "$setup; \$x->flog(\$y);";
  83           }
  84         else
  85           {
  86           $try .= "$setup; \$x->flog();";
  87           }
  88       }
  89     else
  90       {
  91       $try .= "\$y = $class->new(\"$args[1]\");";
  92
  93       if ($f eq "bgcd")
  94         {
  95         if (defined $args[2])
  96           {
  97           $try .= " \$z = $class->new(\"$args[2]\"); ";
  98           }
  99         $try .= "$class\::bgcd(\$x, \$y";
 100         $try .= ", \$z" if (defined $args[2]);
 101         $try .= " );";
 102         }
 103       elsif ($f eq "blcm")
 104         {
 105         if (defined $args[2])
 106           {
 107           $try .= " \$z = $class->new(\"$args[2]\"); ";
 108           }
 109         $try .= "$class\::blcm(\$x, \$y";
 110         $try .= ", \$z" if (defined $args[2]);
 111         $try .= " );";
 112       } elsif ($f eq "fcmp") {
 113         $try .= '$x->fcmp($y);';
 114       } elsif ($f eq "facmp") {
 115         $try .= '$x->facmp($y);';
 116       } elsif ($f eq "fpow") {
 117         $try .= '$x ** $y;';
 118       } elsif ($f eq "bnok") {
 119         $try .= '$x->bnok($y);';
 120       } elsif ($f eq "froot") {
 121         $try .= "$setup; \$x->froot(\$y);";
 122       } elsif ($f eq "fadd") {
 123         $try .= '$x + $y;';
 124       } elsif ($f eq "fsub") {
 125         $try .= '$x - $y;';
 126       } elsif ($f eq "fmul") {
 127         $try .= '$x * $y;';
 128       } elsif ($f eq "fdiv") {
 129         $try .= "$setup; \$x / \$y;";
 130       } elsif ($f eq "fdiv-list") {
 131         $try .= "$setup; join(',',\$x->fdiv(\$y));";
 132       } elsif ($f eq "frsft") {
 133         $try .= '$x >> $y;';
 134       } elsif ($f eq "flsft") {
 135         $try .= '$x << $y;';
 136       } elsif ($f eq "fmod") {
 137         $try .= '$x % $y;';
 138       } else { warn "Unknown op '$f'"; }
 139     }
 140     # print "# Trying: '$try'\n";
 141     $ans1 = eval $try;
 142     print "# Error: $@\n" if $@;
 143     if ($ans =~ m|^/(.*)$|)
 144       {
 145       my $pat = $1;
 146       if ($ans1 =~ /$pat/)
 147         {
 148         ok (1,1);
 149         }
 150       else
 151         {
 152         print "# '$try' expected: /$pat/ got: '$ans1'\n" if !ok(1,0);
 153         }
 154       }
 155     else
 156       {
 157       if ($ans eq "")
 158         {
 159         ok_undef ($ans1);
 160         }
 161       else
 162         {
 163         print "# Tried: '$try'\n" if !ok ($ans1, $ans);
 164         if (ref($ans1) eq "$class")
 165           {
 166           # float numbers are normalized (for now), so mantissa shouldn't have
 167           # trailing zeros
 168           #print $ans1->_trailing_zeros(),"\n";
 169           print "# Has trailing zeros after '$try'\n"
 170            if !ok ($CL->_zeros( $ans1->{_m}), 0);
 171           }
 172         }
 173       } # end pattern or string
 174     }
 175   } # end while
 176
 177 # check whether $class->new( Math::BigInt->new()) destroys it
 178 # ($y == 12 in this case)
 179 $x = Math::BigInt->new(1200); $y = $class->new($x);
 180 ok ($y,1200); ok ($x,1200);
 181
 182 ###############################################################################
 183 # Really huge, big, ultra-mega-biggy-monster exponents
 184 # Technically, the exponents should not be limited (they are BigInts), but
 185 # practically there are a few places were they are limited to a Perl scalar.
 186 # This is sometimes for speed, sometimes because otherwise the number wouldn't
 187 # fit into your memory (just think of 1e123456789012345678901234567890 + 1!)
 188 # anyway. We don't test everything here, but let's make sure it just basically
 189 # works.
 190
 191 my $monster = '1e1234567890123456789012345678901234567890';
 192
 193 # new and exponent
 194 ok ($class->new($monster)->bsstr(),
 195                 '1e+1234567890123456789012345678901234567890');
 196 ok ($class->new($monster)->exponent(),
 197                 '1234567890123456789012345678901234567890');
 198 # cmp
 199 ok ($class->new($monster) > 0,1);
 200
 201 # sub/mul
 202 ok ($class->new($monster)->bsub( $monster),0);
 203 ok ($class->new($monster)->bmul(2)->bsstr(),
 204                 '2e+1234567890123456789012345678901234567890');
 205
 206 # mantissa
 207 $monster = '1234567890123456789012345678901234567890e2';
 208 ok ($class->new($monster)->mantissa(),
 209                 '123456789012345678901234567890123456789');
 210
 211 ###############################################################################
 212 # zero,inf,one,nan
 213
 214 $x = $class->new(2); $x->fzero(); ok_undef ($x->{_a}); ok_undef ($x->{_p});
 215 $x = $class->new(2); $x->finf();  ok_undef ($x->{_a}); ok_undef ($x->{_p});
 216 $x = $class->new(2); $x->fone();  ok_undef ($x->{_a}); ok_undef ($x->{_p});
 217 $x = $class->new(2); $x->fnan();  ok_undef ($x->{_a}); ok_undef ($x->{_p});
 218
 219 ###############################################################################
 220 # bone/binf etc as plain calls (Lite failed them)
 221
 222 ok ($class->fzero(),0);
 223 ok ($class->fone(),1);
 224 ok ($class->fone('+'),1);
 225 ok ($class->fone('-'),-1);
 226 ok ($class->fnan(),'NaN');
 227 ok ($class->finf(),'inf');
 228 ok ($class->finf('+'),'inf');
 229 ok ($class->finf('-'),'-inf');
 230 ok ($class->finf('-inf'),'-inf');
 231
 232 $class->accuracy(undef); $class->precision(undef);      # reset
 233
 234 ###############################################################################
 235 # bug in bsstr()/numify() showed up in after-rounding in bdiv()
 236
 237 $x = $class->new('0.008'); $y = $class->new(2);
 238 $x->bdiv(3,$y);
 239 ok ($x,'0.0027');
 240
 241 ###############################################################################
 242 # fsqrt() with set global A/P or A/P enabled on $x, also a test whether fsqrt()
 243 # correctly modifies $x
 244
 245
 246 $x = $class->new(12); $class->precision(-2); $x->fsqrt(); ok ($x,'3.46');
 247
 248 $class->precision(undef);
 249 $x = $class->new(12); $class->precision(0); $x->fsqrt(); ok ($x,'3');
 250
 251 $class->precision(-3); $x = $class->new(12); $x->fsqrt(); ok ($x,'3.464');
 252
 253 {
 254   no strict 'refs';
 255   # A and P set => NaN
 256   ${${class}.'::accuracy'} = 4; $x = $class->new(12);
 257   $x->fsqrt(3); ok ($x,'NaN');
 258   # supplied arg overrides set global
 259   $class->precision(undef); $x = $class->new(12); $x->fsqrt(3); ok ($x,'3.46');
 260   $class->accuracy(undef); $class->precision(undef); # reset for further tests
 261 }
 262
 263 #############################################################################
 264 # can we call objectify (broken until v1.52)
 265
 266 {
 267   no strict;
 268   $try =
 269     '@args' . " = $class" . "::objectify(2,$class,4,5);".'join(" ",@args);';
 270   $ans = eval $try;
 271   ok ($ans,"$class 4 5");
 272 }
 273
 274 #############################################################################
 275 # is_one('-') (broken until v1.64)
 276
 277 ok ($class->new(-1)->is_one(),0);
 278 ok ($class->new(-1)->is_one('-'),1);
 279
 280 #############################################################################
 281 # bug 1/0.5 leaving 2e-0 instead of 2e0
 282
 283 ok ($class->new(1)->fdiv('0.5')->bsstr(),'2e+0');
 284
 285 ###############################################################################
 286 # [perl #30609] bug with $x -= $x not being 0, but 2*$x
 287
 288 $x = $class->new(3);  $x -= $x; ok ($x, 0);
 289 $x = $class->new(-3); $x -= $x; ok ($x, 0);
 290 $x = $class->new(3);  $x += $x; ok ($x, 6);
 291 $x = $class->new(-3); $x += $x; ok ($x, -6);
 292
 293 $x = $class->new('NaN'); $x -= $x; ok ($x->is_nan(), 1);
 294 $x = $class->new('inf'); $x -= $x; ok ($x->is_nan(), 1);
 295 $x = $class->new('-inf'); $x -= $x; ok ($x->is_nan(), 1);
 296
 297 $x = $class->new('NaN'); $x += $x; ok ($x->is_nan(), 1);
 298 $x = $class->new('inf'); $x += $x; ok ($x->is_inf(), 1);
 299 $x = $class->new('-inf'); $x += $x; ok ($x->is_inf('-'), 1);
 300
 301 $x = $class->new('3.14');  $x -= $x; ok ($x, 0);
 302 $x = $class->new('-3.14'); $x -= $x; ok ($x, 0);
 303 $x = $class->new('3.14');  $x += $x; ok ($x, '6.28');
 304 $x = $class->new('-3.14'); $x += $x; ok ($x, '-6.28');
 305
 306 $x = $class->new('3.14');  $x *= $x; ok ($x, '9.8596');
 307 $x = $class->new('-3.14'); $x *= $x; ok ($x, '9.8596');
 308 $x = $class->new('3.14');  $x /= $x; ok ($x, '1');
 309 $x = $class->new('-3.14'); $x /= $x; ok ($x, '1');
 310 $x = $class->new('3.14');  $x %= $x; ok ($x, '0');
 311 $x = $class->new('-3.14'); $x %= $x; ok ($x, '0');
 312
 313 ###############################################################################
 314 # the following two were reported by "kenny" via hotmail.com:
 315
 316 #perl -MMath::BigFloat -wle 'print Math::BigFloat->new(0)->bpow(".1")'
 317 #Use of uninitialized value in numeric le (<=) at BigFloat.pm line 1851.
 318
 319 $x = $class->new(0); $y = $class->new('0.1');
 320 ok ($x ** $y, 0, 'no warnings and zero result');
 321
 322 #perl -MMath::BigFloat -lwe 'print Math::BigFloat->new(".222222222222222222222222222222222222222222")->bceil()'
 323 #Use of uninitialized value in numeric le (<=) at BigFloat.pm line 1851.
 324
 325 $x = $class->new(".222222222222222222222222222222222222222222");
 326 ok ($x->bceil(), 1, 'no warnings and one as result');
 327
 328 ###############################################################################
 329 # test **=, <<=, >>=
 330
 331 # ((2^148)-1)/17
 332 $x = $class->new(2); $x **= 148; $x++; $x->bdiv(17, 60)->bfloor(); $x->accuracy(undef);
 333 ok ($x,"20988936657440586486151264256610222593863921");
 334 ok ($x->length(),length "20988936657440586486151264256610222593863921");
 335
 336 $x = $class->new('2');
 337 my $y = $class->new('18');
 338 ok ($x <<= $y, 2 << 18);
 339 ok ($x, 2 << 18);
 340 ok ($x >>= $y, 2);
 341 ok ($x, 2);
 342
 343 $x = $class->new('2');
 344 $y = $class->new('18.2');
 345 $x <<= $y;              # 2 * (2 ** 18.2);
 346
 347 ok ($x->copy()->bfround(-9), '602248.763144685');
 348 ok ($x >>= $y, 2);      # 2 * (2 ** 18.2) / (2 ** 18.2) => 2
 349 ok ($x, 2);
 350
 351 1; # all done
 352
 353 ###############################################################################
 354 # Perl 5.005 does not like ok ($x,undef)
 355
 356 sub ok_undef
 357   {
 358   my $x = shift;
 359
 360   ok (1,1) and return if !defined $x;
 361   ok ($x,'undef');
 362   }
 363
 364 __DATA__
 365 &bgcd
 366 inf:12:NaN
 367 -inf:12:NaN
 368 12:inf:NaN
 369 12:-inf:NaN
 370 inf:inf:NaN
 371 inf:-inf:NaN
 372 -inf:-inf:NaN
 373 abc:abc:NaN
 374 abc:+0:NaN
 375 +0:abc:NaN
 376 +0:+0:0
 377 +0:+1:1
 378 +1:+0:1
 379 +1:+1:1
 380 +2:+3:1
 381 +3:+2:1
 382 -3:+2:1
 383 -3:-2:1
 384 -144:-60:12
 385 144:-60:12
 386 144:60:12
 387 100:625:25
 388 4096:81:1
 389 1034:804:2
 390 27:90:56:1
 391 27:90:54:9
 392 &blcm
 393 abc:abc:NaN
 394 abc:+0:NaN
 395 +0:abc:NaN
 396 +0:+0:NaN
 397 +1:+0:0
 398 +0:+1:0
 399 +27:+90:270
 400 +1034:+804:415668
 401 $div_scale = 40;
 402 &bnok
 403 +inf:10:inf
 404 NaN:NaN:NaN
 405 NaN:1:NaN
 406 1:NaN:NaN
 407 1:1:1
 408 # k > n
 409 1:2:0
 410 2:3:0
 411 # k < 0
 412 1:-2:0
 413 # 7 over 3 = 35
 414 7:3:35
 415 7:6:1
 416 100:90:17310309456440
 417 &flog
 418 0::NaN
 419 -1::NaN
 420 -2::NaN
 421 # base > 0, base != 1
 422 2:-1:NaN
 423 2:0:NaN
 424 2:1:NaN
 425 # log(1) is always 1, regardless of $base
 426 1::0
 427 1:1:0
 428 1:2:0
 429 2::0.6931471805599453094172321214581765680755
 430 2.718281828::0.9999999998311266953289851340574956564911
 431 $div_scale = 20;
 432 2.718281828::0.99999999983112669533
 433 $div_scale = 15;
 434 123::4.81218435537242
 435 10::2.30258509299405
 436 1000::6.90775527898214
 437 100::4.60517018598809
 438 2::0.693147180559945
 439 3.1415::1.14470039286086
 440 12345::9.42100640177928
 441 0.001::-6.90775527898214
 442 # bug until v1.71:
 443 10:10:1
 444 100:100:1
 445 # reset for further tests
 446 $div_scale = 40;
 447 1::0
 448 &frsft
 449 NaNfrsft:2:NaN
 450 0:2:0
 451 1:1:0.5
 452 2:1:1
 453 4:1:2
 454 123:1:61.5
 455 32:3:4
 456 &flsft
 457 NaNflsft:0:NaN
 458 2:1:4
 459 4:3:32
 460 5:3:40
 461 1:2:4
 462 0:5:0
 463 &fnorm
 464 1:1
 465 -0:0
 466 fnormNaN:NaN
 467 +inf:inf
 468 -inf:-inf
 469 123:123
 470 -123.4567:-123.4567
 471 # invalid inputs
 472 1__2:NaN
 473 1E1__2:NaN
 474 11__2E2:NaN
 475 .2E-3.:NaN
 476 1e3e4:NaN
 477 # strange, but valid
 478 .2E2:20
 479 1.E3:1000
 480 # some inputs that result in zero
 481 0e0:0
 482 +0e0:0
 483 +0e+0:0
 484 -0e+0:0
 485 0e-0:0
 486 -0e-0:0
 487 +0e-0:0
 488 000:0
 489 00e2:0
 490 00e02:0
 491 000e002:0
 492 000e1230:0
 493 00e-3:0
 494 00e+3:0
 495 00e-03:0
 496 00e+03:0
 497 -000:0
 498 -00e2:0
 499 -00e02:0
 500 -000e002:0
 501 -000e1230:0
 502 -00e-3:0
 503 -00e+3:0
 504 -00e-03:0
 505 -00e+03:0
 506 &as_number
 507 0:0
 508 1:1
 509 1.2:1
 510 2.345:2
 511 -2:-2
 512 -123.456:-123
 513 -200:-200
 514 # test for bug in brsft() not handling cases that return 0
 515 0.000641:0
 516 0.0006412:0
 517 0.00064123:0
 518 0.000641234:0
 519 0.0006412345:0
 520 0.00064123456:0
 521 0.000641234567:0
 522 0.0006412345678:0
 523 0.00064123456789:0
 524 0.1:0
 525 0.01:0
 526 0.001:0
 527 0.0001:0
 528 0.00001:0
 529 0.000001:0
 530 0.0000001:0
 531 0.00000001:0
 532 0.000000001:0
 533 0.0000000001:0
 534 0.00000000001:0
 535 0.12345:0
 536 0.123456:0
 537 0.1234567:0
 538 0.12345678:0
 539 0.123456789:0
 540 &finf
 541 1:+:inf
 542 2:-:-inf
 543 3:abc:inf
 544 &as_hex
 545 +inf:inf
 546 -inf:-inf
 547 hexNaN:NaN
 548 0:0x0
 549 5:0x5
 550 -5:-0x5
 551 &as_bin
 552 +inf:inf
 553 -inf:-inf
 554 hexNaN:NaN
 555 0:0b0
 556 5:0b101
 557 -5:-0b101
 558 &numify
 559 # uses bsstr() so 5 => 5e+0 to be compatible w/ Perls output
 560 0:0e+1
 561 +1:1e+0
 562 1234:1234e+0
 563 NaN:NaN
 564 +inf:inf
 565 -inf:-inf
 566 -5:-5e+0
 567 100:1e+2
 568 -100:-1e+2
 569 &fnan
 570 abc:NaN
 571 2:NaN
 572 -2:NaN
 573 0:NaN
 574 &fone
 575 2:+:1
 576 -2:-:-1
 577 -2:+:1
 578 2:-:-1
 579 0::1
 580 -2::1
 581 abc::1
 582 2:abc:1
 583 &fsstr
 584 +inf:inf
 585 -inf:-inf
 586 abcfsstr:NaN
 587 -abcfsstr:NaN
 588 1234.567:1234567e-3
 589 123:123e+0
 590 -5:-5e+0
 591 -100:-1e+2
 592 &fstr
 593 +inf:::inf
 594 -inf:::-inf
 595 abcfstr:::NaN
 596 1234.567:9::1234.56700
 597 1234.567::-6:1234.567000
 598 12345:5::12345
 599 0.001234:6::0.00123400
 600 0.001234::-8:0.00123400
 601 0:4::0
 602 0::-4:0.0000
 603 &fnorm
 604 inf:inf
 605 +inf:inf
 606 -inf:-inf
 607 +infinity:NaN
 608 +-inf:NaN
 609 abc:NaN
 610    1 a:NaN
 611 1bcd2:NaN
 612 11111b:NaN
 613 +1z:NaN
 614 -1z:NaN
 615 0e999:0
 616 0e-999:0
 617 -0e999:0
 618 -0e-999:0
 619 0:0
 620 +0:0
 621 +00:0
 622 +0_0_0:0
 623 000000_0000000_00000:0
 624 -0:0
 625 -0000:0
 626 +1:1
 627 +01:1
 628 +001:1
 629 +00000100000:100000
 630 123456789:123456789
 631 -1:-1
 632 -01:-1
 633 -001:-1
 634 -123456789:-123456789
 635 -00000100000:-100000
 636 123.456a:NaN
 637 123.456:123.456
 638 0.01:0.01
 639 .002:0.002
 640 +.2:0.2
 641 -0.0003:-0.0003
 642 -.0000000004:-0.0000000004
 643 123456E2:12345600
 644 123456E-2:1234.56
 645 -123456E2:-12345600
 646 -123456E-2:-1234.56
 647 1e1:10
 648 2e-11:0.00000000002
 649 # excercise _split
 650   .02e-1:0.002
 651    000001:1
 652    -00001:-1
 653    -1:-1
 654   000.01:0.01
 655    -000.0023:-0.0023
 656   1.1e1:11
 657 -3e111:-3000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
 658 -4e-1111:-0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000004
 659 &fpow
 660 NaN:1:NaN
 661 1:NaN:NaN
 662 NaN:-1:NaN
 663 -1:NaN:NaN
 664 NaN:-21:NaN
 665 -21:NaN:NaN
 666 NaN:21:NaN
 667 21:NaN:NaN
 668 0:0:1
 669 0:1:0
 670 0:9:0
 671 0:-2:inf
 672 2:2:4
 673 1:2:1
 674 1:3:1
 675 -1:2:1
 676 -1:3:-1
 677 123.456:2:15241.383936
 678 2:-2:0.25
 679 2:-3:0.125
 680 128:-2:0.00006103515625
 681 abc:123.456:NaN
 682 123.456:abc:NaN
 683 +inf:123.45:inf
 684 -inf:123.45:-inf
 685 +inf:-123.45:inf
 686 -inf:-123.45:-inf
 687 -2:2:4
 688 -2:3:-8
 689 -2:4:16
 690 -2:5:-32
 691 -3:2:9
 692 -3:3:-27
 693 -3:4:81
 694 -3:5:-243
 695 # 2 ** 0.5 == sqrt(2)
 696 #     1.41..7 and not 1.4170 since fallback (bsqrt(9) is '3', not 3.0...0)
 697 2:0.5:1.41421356237309504880168872420969807857
 698 #2:0.2:1.148698354997035006798626946777927589444
 699 #6:1.5:14.6969384566990685891837044482353483518
 700 $div_scale = 20;
 701 #62.5:12.5:26447206647554886213592.3959144
 702 $div_scale = 40;
 703 &fneg
 704 fnegNaN:NaN
 705 +inf:-inf
 706 -inf:inf
 707 +0:0
 708 +1:-1
 709 -1:1
 710 +123456789:-123456789
 711 -123456789:123456789
 712 +123.456789:-123.456789
 713 -123456.789:123456.789
 714 &fabs
 715 fabsNaN:NaN
 716 +inf:inf
 717 -inf:inf
 718 +0:0
 719 +1:1
 720 -1:1
 721 +123456789:123456789
 722 -123456789:123456789
 723 +123.456789:123.456789
 724 -123456.789:123456.789
 725 &fround
 726 $round_mode = "trunc"
 727 +inf:5:inf
 728 -inf:5:-inf
 729 0:5:0
 730 NaNfround:5:NaN
 731 +10123456789:5:10123000000
 732 -10123456789:5:-10123000000
 733 +10123456789.123:5:10123000000
 734 -10123456789.123:5:-10123000000
 735 +10123456789:9:10123456700
 736 -10123456789:9:-10123456700
 737 +101234500:6:101234000
 738 -101234500:6:-101234000
 739 $round_mode = "zero"
 740 +20123456789:5:20123000000
 741 -20123456789:5:-20123000000
 742 +20123456789.123:5:20123000000
 743 -20123456789.123:5:-20123000000
 744 +20123456789:9:20123456800
 745 -20123456789:9:-20123456800
 746 +201234500:6:201234000
 747 -201234500:6:-201234000
 748 $round_mode = "+inf"
 749 +30123456789:5:30123000000
 750 -30123456789:5:-30123000000
 751 +30123456789.123:5:30123000000
 752 -30123456789.123:5:-30123000000
 753 +30123456789:9:30123456800
 754 -30123456789:9:-30123456800
 755 +301234500:6:301235000
 756 -301234500:6:-301234000
 757 $round_mode = "-inf"
 758 +40123456789:5:40123000000
 759 -40123456789:5:-40123000000
 760 +40123456789.123:5:40123000000
 761 -40123456789.123:5:-40123000000
 762 +40123456789:9:40123456800
 763 -40123456789:9:-40123456800
 764 +401234500:6:401234000
 765 -401234500:6:-401235000
 766 $round_mode = "odd"
 767 +50123456789:5:50123000000
 768 -50123456789:5:-50123000000
 769 +50123456789.123:5:50123000000
 770 -50123456789.123:5:-50123000000
 771 +50123456789:9:50123456800
 772 -50123456789:9:-50123456800
 773 +501234500:6:501235000
 774 -501234500:6:-501235000
 775 $round_mode = "even"
 776 +60123456789:5:60123000000
 777 -60123456789:5:-60123000000
 778 +60123456789:9:60123456800
 779 -60123456789:9:-60123456800
 780 +601234500:6:601234000
 781 -601234500:6:-601234000
 782 +60123456789.0123:5:60123000000
 783 -60123456789.0123:5:-60123000000
 784 $round_mode = "common"
 785 +60123456789:5:60123000000
 786 -60123456789:5:-60123000000
 787 +60123456789:6:60123500000
 788 -60123456789:6:-60123500000
 789 +60123456789:9:60123456800
 790 -60123456789:9:-60123456800
 791 +601234500:6:601235000
 792 -601234500:6:-601235000
 793 +601234400:6:601234000
 794 -601234400:6:-601234000
 795 +601234600:6:601235000
 796 -601234600:6:-601235000
 797 +601234300:6:601234000
 798 +60123456789.0123:5:60123000000
 799 -60123456789.0123:5:-60123000000
 800 &ffround
 801 $round_mode = "trunc"
 802 +inf:5:inf
 803 -inf:5:-inf
 804 0:5:0
 805 NaNffround:5:NaN
 806 +1.23:-1:1.2
 807 +1.234:-1:1.2
 808 +1.2345:-1:1.2
 809 +1.23:-2:1.23
 810 +1.234:-2:1.23
 811 +1.2345:-2:1.23
 812 +1.23:-3:1.230
 813 +1.234:-3:1.234
 814 +1.2345:-3:1.234
 815 -1.23:-1:-1.2
 816 +1.27:-1:1.2
 817 -1.27:-1:-1.2
 818 +1.25:-1:1.2
 819 -1.25:-1:-1.2
 820 +1.35:-1:1.3
 821 -1.35:-1:-1.3
 822 -0.0061234567890:-1:0.0
 823 -0.0061:-1:0.0
 824 -0.00612:-1:0.0
 825 -0.00612:-2:0.00
 826 -0.006:-1:0.0
 827 -0.006:-2:0.00
 828 -0.0006:-2:0.00
 829 -0.0006:-3:0.000
 830 -0.0065:-3:/-0\.006|-6e-03
 831 -0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 832 -0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 833 0.05:0:0
 834 0.5:0:0
 835 0.51:0:0
 836 0.41:0:0
 837 $round_mode = "zero"
 838 +2.23:-1:/2.2(?:0{5}\d+)?
 839 -2.23:-1:/-2.2(?:0{5}\d+)?
 840 +2.27:-1:/2.(?:3|29{5}\d+)
 841 -2.27:-1:/-2.(?:3|29{5}\d+)
 842 +2.25:-1:/2.2(?:0{5}\d+)?
 843 -2.25:-1:/-2.2(?:0{5}\d+)?
 844 +2.35:-1:/2.(?:3|29{5}\d+)
 845 -2.35:-1:/-2.(?:3|29{5}\d+)
 846 -0.0065:-1:0.0
 847 -0.0065:-2:/-0\.01|-1e-02
 848 -0.0065:-3:/-0\.006|-6e-03
 849 -0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 850 -0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 851 0.05:0:0
 852 0.5:0:0
 853 0.51:0:1
 854 0.41:0:0
 855 $round_mode = "+inf"
 856 +3.23:-1:/3.2(?:0{5}\d+)?
 857 -3.23:-1:/-3.2(?:0{5}\d+)?
 858 +3.27:-1:/3.(?:3|29{5}\d+)
 859 -3.27:-1:/-3.(?:3|29{5}\d+)
 860 +3.25:-1:/3.(?:3|29{5}\d+)
 861 -3.25:-1:/-3.2(?:0{5}\d+)?
 862 +3.35:-1:/3.(?:4|39{5}\d+)
 863 -3.35:-1:/-3.(?:3|29{5}\d+)
 864 -0.0065:-1:0.0
 865 -0.0065:-2:/-0\.01|-1e-02
 866 -0.0065:-3:/-0\.006|-6e-03
 867 -0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 868 -0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 869 0.05:0:0
 870 0.5:0:1
 871 0.51:0:1
 872 0.41:0:0
 873 $round_mode = "-inf"
 874 +4.23:-1:/4.2(?:0{5}\d+)?
 875 -4.23:-1:/-4.2(?:0{5}\d+)?
 876 +4.27:-1:/4.(?:3|29{5}\d+)
 877 -4.27:-1:/-4.(?:3|29{5}\d+)
 878 +4.25:-1:/4.2(?:0{5}\d+)?
 879 -4.25:-1:/-4.(?:3|29{5}\d+)
 880 +4.35:-1:/4.(?:3|29{5}\d+)
 881 -4.35:-1:/-4.(?:4|39{5}\d+)
 882 -0.0065:-1:0.0
 883 -0.0065:-2:/-0\.01|-1e-02
 884 -0.0065:-3:/-0\.007|-7e-03
 885 -0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 886 -0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 887 0.05:0:0
 888 0.5:0:0
 889 0.51:0:1
 890 0.41:0:0
 891 $round_mode = "odd"
 892 +5.23:-1:/5.2(?:0{5}\d+)?
 893 -5.23:-1:/-5.2(?:0{5}\d+)?
 894 +5.27:-1:/5.(?:3|29{5}\d+)
 895 -5.27:-1:/-5.(?:3|29{5}\d+)
 896 +5.25:-1:/5.(?:3|29{5}\d+)
 897 -5.25:-1:/-5.(?:3|29{5}\d+)
 898 +5.35:-1:/5.(?:3|29{5}\d+)
 899 -5.35:-1:/-5.(?:3|29{5}\d+)
 900 -0.0065:-1:0.0
 901 -0.0065:-2:/-0\.01|-1e-02
 902 -0.0065:-3:/-0\.007|-7e-03
 903 -0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 904 -0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 905 0.05:0:0
 906 0.5:0:1
 907 0.51:0:1
 908 0.41:0:0
 909 $round_mode = "even"
 910 +6.23:-1:/6.2(?:0{5}\d+)?
 911 -6.23:-1:/-6.2(?:0{5}\d+)?
 912 +6.27:-1:/6.(?:3|29{5}\d+)
 913 -6.27:-1:/-6.(?:3|29{5}\d+)
 914 +6.25:-1:/6.(?:2(?:0{5}\d+)?|29{5}\d+)
 915 -6.25:-1:/-6.(?:2(?:0{5}\d+)?|29{5}\d+)
 916 +6.35:-1:/6.(?:4|39{5}\d+|29{8}\d+)
 917 -6.35:-1:/-6.(?:4|39{5}\d+|29{8}\d+)
 918 -0.0065:-1:0.0
 919 -0.0065:-2:/-0\.01|-1e-02
 920 -0.0065:-3:/-0\.006|-7e-03
 921 -0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 922 -0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 923 0.05:0:0
 924 0.5:0:0
 925 0.51:0:1
 926 0.41:0:0
 927 0.01234567:-3:0.012
 928 0.01234567:-4:0.0123
 929 0.01234567:-5:0.01235
 930 0.01234567:-6:0.012346
 931 0.01234567:-7:0.0123457
 932 0.01234567:-8:0.01234567
 933 0.01234567:-9:0.012345670
 934 0.01234567:-12:0.012345670000
 935 &fcmp
 936 fcmpNaN:fcmpNaN:
 937 fcmpNaN:+0:
 938 +0:fcmpNaN:
 939 +0:+0:0
 940 -1:+0:-1
 941 +0:-1:1
 942 +1:+0:1
 943 +0:+1:-1
 944 -1:+1:-1
 945 +1:-1:1
 946 -1:-1:0
 947 +1:+1:0
 948 -1.1:0:-1
 949 +0:-1.1:1
 950 +1.1:+0:1
 951 +0:+1.1:-1
 952 +123:+123:0
 953 +123:+12:1
 954 +12:+123:-1
 955 -123:-123:0
 956 -123:-12:-1
 957 -12:-123:1
 958 +123:+124:-1
 959 +124:+123:1
 960 -123:-124:1
 961 -124:-123:-1
 962 0:0.01:-1
 963 0:0.0001:-1
 964 0:-0.0001:1
 965 0:-0.1:1
 966 0.1:0:1
 967 0.00001:0:1
 968 -0.0001:0:-1
 969 -0.1:0:-1
 970 0:0.0001234:-1
 971 0:-0.0001234:1
 972 0.0001234:0:1
 973 -0.0001234:0:-1
 974 0.0001:0.0005:-1
 975 0.0005:0.0001:1
 976 0.005:0.0001:1
 977 0.001:0.0005:1
 978 0.000001:0.0005:-1
 979 0.00000123:0.0005:-1
 980 0.00512:0.0001:1
 981 0.005:0.000112:1
 982 0.00123:0.0005:1
 983 1.5:2:-1
 984 2:1.5:1
 985 1.54321:234:-1
 986 234:1.54321:1
 987 # infinity
 988 -inf:5432112345:-1
 989 +inf:5432112345:1
 990 -inf:-5432112345:-1
 991 +inf:-5432112345:1
 992 -inf:54321.12345:-1
 993 +inf:54321.12345:1
 994 -inf:-54321.12345:-1
 995 +inf:-54321.12345:1
 996 +inf:+inf:0
 997 -inf:-inf:0
 998 +inf:-inf:1
 999 -inf:+inf:-1
1000 # return undef
1001 +inf:NaN:
1002 NaN:inf:
1003 -inf:NaN:
1004 NaN:-inf:
1005 &facmp
1006 fcmpNaN:fcmpNaN:
1007 fcmpNaN:+0:
1008 +0:fcmpNaN:
1009 +0:+0:0
1010 -1:+0:1
1011 +0:-1:-1
1012 +1:+0:1
1013 +0:+1:-1
1014 -1:+1:0
1015 +1:-1:0
1016 -1:-1:0
1017 +1:+1:0
1018 -1.1:0:1
1019 +0:-1.1:-1
1020 +1.1:+0:1
1021 +0:+1.1:-1
1022 +123:+123:0
1023 +123:+12:1
1024 +12:+123:-1
1025 -123:-123:0
1026 -123:-12:1
1027 -12:-123:-1
1028 +123:+124:-1
1029 +124:+123:1
1030 -123:-124:-1
1031 -124:-123:1
1032 0:0.01:-1
1033 0:0.0001:-1
1034 0:-0.0001:-1
1035 0:-0.1:-1
1036 0.1:0:1
1037 0.00001:0:1
1038 -0.0001:0:1
1039 -0.1:0:1
1040 0:0.0001234:-1
1041 0:-0.0001234:-1
1042 0.0001234:0:1
1043 -0.0001234:0:1
1044 0.0001:0.0005:-1
1045 0.0005:0.0001:1
1046 0.005:0.0001:1
1047 0.001:0.0005:1
1048 0.000001:0.0005:-1
1049 0.00000123:0.0005:-1
1050 0.00512:0.0001:1
1051 0.005:0.000112:1
1052 0.00123:0.0005:1
1053 1.5:2:-1
1054 2:1.5:1
1055 1.54321:234:-1
1056 234:1.54321:1
1057 # infinity
1058 -inf:5432112345:1
1059 +inf:5432112345:1
1060 -inf:-5432112345:1
1061 +inf:-5432112345:1
1062 -inf:54321.12345:1
1063 +inf:54321.12345:1
1064 -inf:-54321.12345:1
1065 +inf:-54321.12345:1
1066 +inf:+inf:0
1067 -inf:-inf:0
1068 +inf:-inf:0
1069 -inf:+inf:0
1070 5:inf:-1
1071 -1:inf:-1
1072 5:-inf:-1
1073 -1:-inf:-1
1074 # return undef
1075 +inf:facmpNaN:
1076 facmpNaN:inf:
1077 -inf:facmpNaN:
1078 facmpNaN:-inf:
1079 &fdec
1080 fdecNaN:NaN
1081 +inf:inf
1082 -inf:-inf
1083 +0:-1
1084 +1:0
1085 -1:-2
1086 1.23:0.23
1087 -1.23:-2.23
1088 100:99
1089 101:100
1090 -100:-101
1091 -99:-100
1092 -98:-99
1093 99:98
1094 &finc
1095 fincNaN:NaN
1096 +inf:inf
1097 -inf:-inf
1098 +0:1
1099 +1:2
1100 -1:0
1101 1.23:2.23
1102 -1.23:-0.23
1103 100:101
1104 -100:-99
1105 -99:-98
1106 -101:-100
1107 99:100
1108 &fadd
1109 abc:abc:NaN
1110 abc:+0:NaN
1111 +0:abc:NaN
1112 +inf:-inf:NaN
1113 -inf:+inf:NaN
1114 +inf:+inf:inf
1115 -inf:-inf:-inf
1116 baddNaN:+inf:NaN
1117 baddNaN:+inf:NaN
1118 +inf:baddNaN:NaN
1119 -inf:baddNaN:NaN
1120 +0:+0:0
1121 +1:+0:1
1122 +0:+1:1
1123 +1:+1:2
1124 -1:+0:-1
1125 +0:-1:-1
1126 -1:-1:-2
1127 -1:+1:0
1128 +1:-1:0
1129 +9:+1:10
1130 +99:+1:100
1131 +999:+1:1000
1132 +9999:+1:10000
1133 +99999:+1:100000
1134 +999999:+1:1000000
1135 +9999999:+1:10000000
1136 +99999999:+1:100000000
1137 +999999999:+1:1000000000
1138 +9999999999:+1:10000000000
1139 +99999999999:+1:100000000000
1140 +10:-1:9
1141 +100:-1:99
1142 +1000:-1:999
1143 +10000:-1:9999
1144 +100000:-1:99999
1145 +1000000:-1:999999
1146 +10000000:-1:9999999
1147 +100000000:-1:99999999
1148 +1000000000:-1:999999999
1149 +10000000000:-1:9999999999
1150 +123456789:+987654321:1111111110
1151 -123456789:+987654321:864197532
1152 -123456789:-987654321:-1111111110
1153 +123456789:-987654321:-864197532
1154 0.001234:0.0001234:0.0013574
1155 &fsub
1156 abc:abc:NaN
1157 abc:+0:NaN
1158 +0:abc:NaN
1159 +inf:-inf:inf
1160 -inf:+inf:-inf
1161 +inf:+inf:NaN
1162 -inf:-inf:NaN
1163 baddNaN:+inf:NaN
1164 baddNaN:+inf:NaN
1165 +inf:baddNaN:NaN
1166 -inf:baddNaN:NaN
1167 +0:+0:0
1168 +1:+0:1
1169 +0:+1:-1
1170 +1:+1:0
1171 -1:+0:-1
1172 +0:-1:1
1173 -1:-1:0
1174 -1:+1:-2
1175 +1:-1:2
1176 +9:+1:8
1177 +99:+1:98
1178 +999:+1:998
1179 +9999:+1:9998
1180 +99999:+1:99998
1181 +999999:+1:999998
1182 +9999999:+1:9999998
1183 +99999999:+1:99999998
1184 +999999999:+1:999999998
1185 +9999999999:+1:9999999998
1186 +99999999999:+1:99999999998
1187 +10:-1:11
1188 +100:-1:101
1189 +1000:-1:1001
1190 +10000:-1:10001
1191 +100000:-1:100001
1192 +1000000:-1:1000001
1193 +10000000:-1:10000001
1194 +100000000:-1:100000001
1195 +1000000000:-1:1000000001
1196 +10000000000:-1:10000000001
1197 +123456789:+987654321:-864197532
1198 -123456789:+987654321:-1111111110
1199 -123456789:-987654321:864197532
1200 +123456789:-987654321:1111111110
1201 &fmul
1202 abc:abc:NaN
1203 abc:+0:NaN
1204 +0:abc:NaN
1205 +inf:NaNmul:NaN
1206 +inf:NaNmul:NaN
1207 NaNmul:+inf:NaN
1208 NaNmul:-inf:NaN
1209 +inf:+inf:inf
1210 +inf:-inf:-inf
1211 +inf:-inf:-inf
1212 +inf:+inf:inf
1213 +inf:123.34:inf
1214 +inf:-123.34:-inf
1215 -inf:123.34:-inf
1216 -inf:-123.34:inf
1217 123.34:+inf:inf
1218 -123.34:+inf:-inf
1219 123.34:-inf:-inf
1220 -123.34:-inf:inf
1221 +0:+0:0
1222 +0:+1:0
1223 +1:+0:0
1224 +0:-1:0
1225 -1:+0:0
1226 +123456789123456789:+0:0
1227 +0:+123456789123456789:0
1228 -1:-1:1
1229 -1:+1:-1
1230 +1:-1:-1
1231 +1:+1:1
1232 +2:+3:6
1233 -2:+3:-6
1234 +2:-3:-6
1235 -2:-3:6
1236 +111:+111:12321
1237 +10101:+10101:102030201
1238 +1001001:+1001001:1002003002001
1239 +100010001:+100010001:10002000300020001
1240 +10000100001:+10000100001:100002000030000200001
1241 +11111111111:+9:99999999999
1242 +22222222222:+9:199999999998
1243 +33333333333:+9:299999999997
1244 +44444444444:+9:399999999996
1245 +55555555555:+9:499999999995
1246 +66666666666:+9:599999999994
1247 +77777777777:+9:699999999993
1248 +88888888888:+9:799999999992
1249 +99999999999:+9:899999999991
1250 6:120:720
1251 10:10000:100000
1252 &fdiv-list
1253 0:0:NaN,NaN
1254 0:1:0,0
1255 9:4:2.25,1
1256 9:5:1.8,4
1257 # bug in v1.74 with bdiv in list context, when $y is 1 or -1
1258 2.1:-1:-2.1,0
1259 2.1:1:2.1,0
1260 -2.1:-1:2.1,0
1261 -2.1:1:-2.1,0
1262 &fdiv
1263 $div_scale = 40; $round_mode = 'even'
1264 abc:abc:NaN
1265 abc:+1:abc:NaN
1266 +1:abc:NaN
1267 -1:abc:NaN
1268 0:abc:NaN
1269 +0:+0:NaN
1270 +0:+1:0
1271 +1:+0:inf
1272 +3214:+0:inf
1273 +0:-1:0
1274 -1:+0:-inf
1275 -3214:+0:-inf
1276 +1:+1:1
1277 -1:-1:1
1278 +1:-1:-1
1279 -1:+1:-1
1280 +1:+2:0.5
1281 +2:+1:2
1282 123:+inf:0
1283 123:-inf:0
1284 +10:+5:2
1285 +100:+4:25
1286 +1000:+8:125
1287 +10000:+16:625
1288 +10000:-16:-625
1289 +999999999999:+9:111111111111
1290 +999999999999:+99:10101010101
1291 +999999999999:+999:1001001001
1292 +999999999999:+9999:100010001
1293 +999999999999999:+99999:10000100001
1294 +1000000000:+9:111111111.1111111111111111111111111111111
1295 +2000000000:+9:222222222.2222222222222222222222222222222
1296 +3000000000:+9:333333333.3333333333333333333333333333333
1297 +4000000000:+9:444444444.4444444444444444444444444444444
1298 +5000000000:+9:555555555.5555555555555555555555555555556
1299 +6000000000:+9:666666666.6666666666666666666666666666667
1300 +7000000000:+9:777777777.7777777777777777777777777777778
1301 +8000000000:+9:888888888.8888888888888888888888888888889
1302 +9000000000:+9:1000000000
1303 +35500000:+113:314159.2920353982300884955752212389380531
1304 +71000000:+226:314159.2920353982300884955752212389380531
1305 +106500000:+339:314159.2920353982300884955752212389380531
1306 +1000000000:+3:333333333.3333333333333333333333333333333
1307 2:25.024996000799840031993601279744051189762:0.07992009269196593320152084692285869265447
1308 123456:1:123456
1309 $div_scale = 20
1310 +1000000000:+9:111111111.11111111111
1311 +2000000000:+9:222222222.22222222222
1312 +3000000000:+9:333333333.33333333333
1313 +4000000000:+9:444444444.44444444444
1314 +5000000000:+9:555555555.55555555556
1315 +6000000000:+9:666666666.66666666667
1316 +7000000000:+9:777777777.77777777778
1317 +8000000000:+9:888888888.88888888889
1318 +9000000000:+9:1000000000
1319 1:10:0.1
1320 1:100:0.01
1321 1:1000:0.001
1322 1:10000:0.0001
1323 1:504:0.001984126984126984127
1324 2:1.987654321:1.0062111801179738436
1325 123456789.123456789123456789123456789:1:123456789.12345678912
1326 # the next two cases are the "old" behaviour, but are now (>v0.01) different
1327 #+35500000:+113:314159.292035398230088
1328 #+71000000:+226:314159.292035398230088
1329 +35500000:+113:314159.29203539823009
1330 +71000000:+226:314159.29203539823009
1331 +106500000:+339:314159.29203539823009
1332 +1000000000:+3:333333333.33333333333
1333 $div_scale = 1
1334 # round to accuracy 1 after bdiv
1335 +124:+3:40
1336 123456789.1234:1:100000000
1337 # reset scale for further tests
1338 $div_scale = 40
1339 &fmod
1340 +9:4:1
1341 +9:5:4
1342 +9000:56:40
1343 +56:9000:56
1344 # inf handling, see table in doc
1345 0:inf:0
1346 0:-inf:0
1347 5:inf:5
1348 5:-inf:5
1349 -5:inf:-5
1350 -5:-inf:-5
1351 inf:5:0
1352 -inf:5:0
1353 inf:-5:0
1354 -inf:-5:0
1355 5:5:0
1356 -5:-5:0
1357 inf:inf:NaN
1358 -inf:-inf:NaN
1359 -inf:inf:NaN
1360 inf:-inf:NaN
1361 8:0:8
1362 inf:0:inf
1363 # exceptions to reminder rule
1364 -inf:0:-inf
1365 -8:0:-8
1366 0:0:NaN
1367 abc:abc:NaN
1368 abc:1:abc:NaN
1369 1:abc:NaN
1370 0:0:NaN
1371 0:1:0
1372 1:0:1
1373 0:-1:0
1374 -1:0:-1
1375 1:1:0
1376 -1:-1:0
1377 1:-1:0
1378 -1:1:0
1379 1:2:1
1380 2:1:0
1381 1000000000:9:1
1382 2000000000:9:2
1383 3000000000:9:3
1384 4000000000:9:4
1385 5000000000:9:5
1386 6000000000:9:6
1387 7000000000:9:7
1388 8000000000:9:8
1389 9000000000:9:0
1390 35500000:113:33
1391 71000000:226:66
1392 106500000:339:99
1393 1000000000:3:1
1394 10:5:0
1395 100:4:0
1396 1000:8:0
1397 10000:16:0
1398 999999999999:9:0
1399 999999999999:99:0
1400 999999999999:999:0
1401 999999999999:9999:0
1402 999999999999999:99999:0
1403 -9:+5:1
1404 +9:-5:-1
1405 -9:-5:-4
1406 -5:3:1
1407 -2:3:1
1408 4:3:1
1409 1:3:1
1410 -5:-3:-2
1411 -2:-3:-2
1412 4:-3:-2
1413 1:-3:-2
1414 4095:4095:0
1415 100041000510123:3:0
1416 152403346:12345:4321
1417 87654321:87654321:0
1418 # now some floating point tests
1419 123:2.5:0.5
1420 1230:2.5:0
1421 123.4:2.5:0.9
1422 123e1:25:5
1423 -2.1:1:0.9
1424 2.1:1:0.1
1425 -2.1:-1:-0.1
1426 2.1:-1:-0.9
1427 -3:1:0
1428 3:1:0
1429 -3:-1:0
1430 3:-1:0
1431 &ffac
1432 Nanfac:NaN
1433 -1:NaN
1434 +inf:inf
1435 -inf:NaN
1436 0:1
1437 1:1
1438 2:2
1439 3:6
1440 4:24
1441 5:120
1442 6:720
1443 10:3628800
1444 11:39916800
1445 12:479001600
1446 &froot
1447 # sqrt()
1448 +0:2:0
1449 +1:2:1
1450 -1:2:NaN
1451 # -$x ** (1/2) => -$y, but not in froot()
1452 -123.456:2:NaN
1453 +inf:2:inf
1454 -inf:2:NaN
1455 2:2:1.41421356237309504880168872420969807857
1456 -2:2:NaN
1457 4:2:2
1458 9:2:3
1459 16:2:4
1460 100:2:10
1461 123.456:2:11.11107555549866648462149404118219234119
1462 15241.38393:2:123.4559999756998444766131352122991626468
1463 1.44:2:1.2
1464 12:2:3.464101615137754587054892683011744733886
1465 0.49:2:0.7
1466 0.0049:2:0.07
1467 # invalid ones
1468 1:NaN:NaN
1469 -1:NaN:NaN
1470 0:NaN:NaN
1471 -inf:NaN:NaN
1472 +inf:NaN:NaN
1473 NaN:0:NaN
1474 NaN:2:NaN
1475 NaN:inf:NaN
1476 NaN:inf:NaN
1477 12:-inf:NaN
1478 12:inf:NaN
1479 +0:0:NaN
1480 +1:0:NaN
1481 -1:0:NaN
1482 -2:0:NaN
1483 -123.45:0:NaN
1484 +inf:0:NaN
1485 12:1:12
1486 -12:1:NaN
1487 8:-1:NaN
1488 -8:-1:NaN
1489 # cubic root
1490 8:3:2
1491 -8:3:NaN
1492 # fourths root
1493 16:4:2
1494 81:4:3
1495 # see t/bigroot() for more tests
1496 &fsqrt
1497 +0:0
1498 -1:NaN
1499 -2:NaN
1500 -16:NaN
1501 -123.45:NaN
1502 nanfsqrt:NaN
1503 +inf:inf
1504 -inf:NaN
1505 1:1
1506 2:1.41421356237309504880168872420969807857
1507 4:2
1508 9:3
1509 16:4
1510 100:10
1511 123.456:11.11107555549866648462149404118219234119
1512 15241.38393:123.4559999756998444766131352122991626468
1513 1.44:1.2
1514 # sqrt(1.44) = 1.2, sqrt(e10) = e5 => 12e4
1515 1.44E10:120000
1516 2e10:141421.356237309504880168872420969807857
1517 144e20:120000000000
1518 # proved to be an endless loop under 7-9
1519 12:3.464101615137754587054892683011744733886
1520 0.49:0.7
1521 0.0049:0.07
1522 &is_nan
1523 123:0
1524 abc:1
1525 NaN:1
1526 -123:0
1527 &is_inf
1528 +inf::1
1529 -inf::1
1530 abc::0
1531 1::0
1532 NaN::0
1533 -1::0
1534 +inf:-:0
1535 +inf:+:1
1536 -inf:-:1
1537 -inf:+:0
1538 # it must be exactly /^[+-]inf$/
1539 +infinity::0
1540 -infinity::0
1541 &is_odd
1542 abc:0
1543 0:0
1544 -1:1
1545 -3:1
1546 1:1
1547 3:1
1548 1000001:1
1549 1000002:0
1550 +inf:0
1551 -inf:0
1552 123.45:0
1553 -123.45:0
1554 2:0
1555 &is_int
1556 NaNis_int:0
1557 0:1
1558 1:1
1559 2:1
1560 -2:1
1561 -1:1
1562 -inf:0
1563 +inf:0
1564 123.4567:0
1565 -0.1:0
1566 -0.002:0
1567 &is_even
1568 abc:0
1569 0:1
1570 -1:0
1571 -3:0
1572 1:0
1573 3:0
1574 1000001:0
1575 1000002:1
1576 2:1
1577 +inf:0
1578 -inf:0
1579 123.456:0
1580 -123.456:0
1581 0.01:0
1582 -0.01:0
1583 120:1
1584 1200:1
1585 -1200:1
1586 &is_positive
1587 0:0
1588 1:1
1589 -1:0
1590 -123:0
1591 NaN:0
1592 -inf:0
1593 +inf:1
1594 &is_negative
1595 0:0
1596 1:0
1597 -1:1
1598 -123:1
1599 NaN:0
1600 -inf:1
1601 +inf:0
1602 &parts
1603 0:0 1
1604 1:1 0
1605 123:123 0
1606 -123:-123 0
1607 -1200:-12 2
1608 NaNparts:NaN NaN
1609 +inf:inf inf
1610 -inf:-inf inf
1611 &exponent
1612 0:1
1613 1:0
1614 123:0
1615 -123:0
1616 -1200:2
1617 +inf:inf
1618 -inf:inf
1619 NaNexponent:NaN
1620 &mantissa
1621 0:0
1622 1:1
1623 123:123
1624 -123:-123
1625 -1200:-12
1626 +inf:inf
1627 -inf:-inf
1628 NaNmantissa:NaN
1629 &length
1630 123:3
1631 -123:3
1632 0:1
1633 1:1
1634 12345678901234567890:20
1635 &is_zero
1636 NaNzero:0
1637 +inf:0
1638 -inf:0
1639 0:1
1640 -1:0
1641 1:0
1642 &is_one
1643 NaNone:0
1644 +inf:0
1645 -inf:0
1646 0:0
1647 2:0
1648 1:1
1649 -1:0
1650 -2:0
1651 &ffloor
1652 0:0
1653 abc:NaN
1654 +inf:inf
1655 -inf:-inf
1656 1:1
1657 -51:-51
1658 -51.2:-52
1659 12.2:12
1660 0.12345:0
1661 0.123456:0
1662 0.1234567:0
1663 0.12345678:0
1664 0.123456789:0
1665 &fceil
1666 0:0
1667 abc:NaN
1668 +inf:inf
1669 -inf:-inf
1670 1:1
1671 -51:-51
1672 -51.2:-51
1673 12.2:13