lib/Math/BigInt/t/bigfltpm.t

   1 #!/usr/bin/perl -w
   2
   3 use Test;
   4 use strict;
   5
   6 BEGIN
   7   {
   8   $| = 1;
   9   unshift @INC, '../lib'; # for running manually
  10   # chdir 't' if -d 't';
  11   plan tests => 514;
  12   }
  13
  14 use Math::BigFloat;
  15 use Math::BigInt;
  16
  17 my ($x,$y,$f,@args,$ans,$try,$ans1,$ans1_str,$setup);
  18 while (<DATA>)
  19   {
  20   chop;
  21   $_ =~ s/#.*$//;       # remove comments
  22   $_ =~ s/\s+$//;       # trailing spaces
  23   next if /^$/;         # skip empty lines & comments
  24   if (s/^&//)
  25     {
  26     $f = $_;
  27     }
  28   elsif (/^\$/)
  29     {
  30     $setup = $_; $setup =~ s/^\$/\$Math::BigFloat::/;   # rnd_mode, div_scale
  31     # print "$setup\n";
  32     }
  33   else
  34     {
  35     if (m|^(.*?):(/.+)$|)
  36       {
  37       $ans = $2;
  38       @args = split(/:/,$1,99);
  39       }
  40     else
  41       {
  42       @args = split(/:/,$_,99); $ans = pop(@args);
  43       }
  44     $try = "\$x = new Math::BigFloat \"$args[0]\";";
  45     if ($f eq "fnorm")
  46       {
  47         $try .= "\$x;";
  48       } elsif ($f eq "binf") {
  49         $try .= "\$x->binf('$args[1]');";
  50       } elsif ($f eq "bsstr") {
  51         $try .= "\$x->bsstr();";
  52       } elsif ($f eq "_set") {
  53         $try .= "\$x->_set('$args[1]'); \$x;";
  54       } elsif ($f eq "fneg") {
  55         $try .= "-\$x;";
  56       } elsif ($f eq "bfloor") {
  57         $try .= "\$x->bfloor();";
  58       } elsif ($f eq "bceil") {
  59         $try .= "\$x->bceil();";
  60       } elsif ($f eq "is_zero") {
  61         $try .= "\$x->is_zero()+0;";
  62       } elsif ($f eq "is_one") {
  63         $try .= "\$x->is_one()+0;";
  64       } elsif ($f eq "is_odd") {
  65         $try .= "\$x->is_odd()+0;";
  66       } elsif ($f eq "is_even") {
  67         $try .= "\$x->is_even()+0;";
  68       } elsif ($f eq "as_number") {
  69         $try .= "\$x->as_number();";
  70       } elsif ($f eq "fpow") {
  71         $try .= "\$x ** $args[1];";
  72       } elsif ($f eq "fabs") {
  73         $try .= "abs \$x;";
  74       }elsif ($f eq "fround") {
  75         $try .= "$setup; \$x->fround($args[1]);";
  76       } elsif ($f eq "ffround") {
  77         $try .= "$setup; \$x->ffround($args[1]);";
  78       } elsif ($f eq "fsqrt") {
  79         $try .= "$setup; \$x->fsqrt();";
  80       }
  81     else
  82       {
  83       $try .= "\$y = new Math::BigFloat \"$args[1]\";";
  84       if ($f eq "fcmp") {
  85         $try .= "\$x <=> \$y;";
  86       } elsif ($f eq "fadd") {
  87         $try .= "\$x + \$y;";
  88       } elsif ($f eq "fsub") {
  89         $try .= "\$x - \$y;";
  90       } elsif ($f eq "fmul") {
  91         $try .= "\$x * \$y;";
  92       } elsif ($f eq "fdiv") {
  93         $try .= "$setup; \$x / \$y;";
  94       } elsif ($f eq "fmod") {
  95         $try .= "\$x % \$y;";
  96       } else { warn "Unknown op '$f'"; }
  97     }
  98     $ans1 = eval $try;
  99     if ($ans =~ m|^/(.*)$|)
 100       {
 101       my $pat = $1;
 102       if ($ans1 =~ /$pat/)
 103         {
 104         ok (1,1);
 105         }
 106       else
 107         {
 108         print "# '$try' expected: /$pat/ got: '$ans1'\n" if !ok(1,0);
 109         }
 110       }
 111     else
 112       {
 113       if ($ans eq "")
 114         {
 115         ok_undef ($ans1);
 116         }
 117       else
 118         {
 119         print "# Tried: '$try'\n" if !ok ($ans1, $ans);
 120         }
 121       } # end pattern or string
 122     }
 123   } # end while
 124
 125 # all done
 126
 127 ###############################################################################
 128 # Perl 5.005 does not like ok ($x,undef)
 129
 130 sub ok_undef
 131   {
 132   my $x = shift;
 133
 134   ok (1,1) and return if !defined $x;
 135   ok ($x,'undef');
 136   }
 137
 138 __END__
 139 &as_number
 140 0:0
 141 1:1
 142 1.2:1
 143 2.345:2
 144 -2:-2
 145 -123.456:-123
 146 -200:-200
 147 &binf
 148 1:+:+inf
 149 2:-:-inf
 150 3:abc:+inf
 151 &bsstr
 152 +inf:+inf
 153 -inf:-inf
 154 abc:NaN
 155 &fnorm
 156 +inf:+inf
 157 -inf:-inf
 158 +infinity:NaN
 159 +-inf:NaN
 160 abc:NaN
 161    1 a:NaN
 162 1bcd2:NaN
 163 11111b:NaN
 164 +1z:NaN
 165 -1z:NaN
 166 0:0
 167 +0:0
 168 +00:0
 169 +0_0_0:0
 170 000000_0000000_00000:0
 171 -0:0
 172 -0000:0
 173 +1:1
 174 +01:1
 175 +001:1
 176 +00000100000:100000
 177 123456789:123456789
 178 -1:-1
 179 -01:-1
 180 -001:-1
 181 -123456789:-123456789
 182 -00000100000:-100000
 183 123.456a:NaN
 184 123.456:123.456
 185 0.01:0.01
 186 .002:0.002
 187 +.2:0.2
 188 -0.0003:-0.0003
 189 -.0000000004:-0.0000000004
 190 123456E2:12345600
 191 123456E-2:1234.56
 192 -123456E2:-12345600
 193 -123456E-2:-1234.56
 194 1e1:10
 195 2e-11:0.00000000002
 196 -3e111:-3000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
 197 -4e-1111:-0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000004
 198 &fpow
 199 2:2:4
 200 1:2:1
 201 1:3:1
 202 -1:2:1
 203 -1:3:-1
 204 123.456:2:15241.383936
 205 2:-2:0.25
 206 2:-3:0.125
 207 128:-2:0.00006103515625
 208 &fneg
 209 abc:NaN
 210 +0:0
 211 +1:-1
 212 -1:1
 213 +123456789:-123456789
 214 -123456789:123456789
 215 +123.456789:-123.456789
 216 -123456.789:123456.789
 217 &fabs
 218 abc:NaN
 219 +0:0
 220 +1:1
 221 -1:1
 222 +123456789:123456789
 223 -123456789:123456789
 224 +123.456789:123.456789
 225 -123456.789:123456.789
 226 &fround
 227 $rnd_mode = "trunc"
 228 +10123456789:5:10123000000
 229 -10123456789:5:-10123000000
 230 +10123456789.123:5:10123000000
 231 -10123456789.123:5:-10123000000
 232 +10123456789:9:10123456700
 233 -10123456789:9:-10123456700
 234 +101234500:6:101234000
 235 -101234500:6:-101234000
 236 $rnd_mode = "zero"
 237 +20123456789:5:20123000000
 238 -20123456789:5:-20123000000
 239 +20123456789.123:5:20123000000
 240 -20123456789.123:5:-20123000000
 241 +20123456789:9:20123456800
 242 -20123456789:9:-20123456800
 243 +201234500:6:201234000
 244 -201234500:6:-201234000
 245 $rnd_mode = "+inf"
 246 +30123456789:5:30123000000
 247 -30123456789:5:-30123000000
 248 +30123456789.123:5:30123000000
 249 -30123456789.123:5:-30123000000
 250 +30123456789:9:30123456800
 251 -30123456789:9:-30123456800
 252 +301234500:6:301235000
 253 -301234500:6:-301234000
 254 $rnd_mode = "-inf"
 255 +40123456789:5:40123000000
 256 -40123456789:5:-40123000000
 257 +40123456789.123:5:40123000000
 258 -40123456789.123:5:-40123000000
 259 +40123456789:9:40123456800
 260 -40123456789:9:-40123456800
 261 +401234500:6:401234000
 262 -401234500:6:-401235000
 263 $rnd_mode = "odd"
 264 +50123456789:5:50123000000
 265 -50123456789:5:-50123000000
 266 +50123456789.123:5:50123000000
 267 -50123456789.123:5:-50123000000
 268 +50123456789:9:50123456800
 269 -50123456789:9:-50123456800
 270 +501234500:6:501235000
 271 -501234500:6:-501235000
 272 $rnd_mode = "even"
 273 +60123456789:5:60123000000
 274 -60123456789:5:-60123000000
 275 +60123456789:9:60123456800
 276 -60123456789:9:-60123456800
 277 +601234500:6:601234000
 278 -601234500:6:-601234000
 279 +60123456789.0123:5:60123000000
 280 -60123456789.0123:5:-60123000000
 281 &ffround
 282 $rnd_mode = "trunc"
 283 +1.23:-1:1.2
 284 +1.234:-1:1.2
 285 +1.2345:-1:1.2
 286 +1.23:-2:1.23
 287 +1.234:-2:1.23
 288 +1.2345:-2:1.23
 289 +1.23:-3:1.23
 290 +1.234:-3:1.234
 291 +1.2345:-3:1.234
 292 -1.23:-1:-1.2
 293 +1.27:-1:1.2
 294 -1.27:-1:-1.2
 295 +1.25:-1:1.2
 296 -1.25:-1:-1.2
 297 +1.35:-1:1.3
 298 -1.35:-1:-1.3
 299 -0.0061234567890:-1:0
 300 -0.0061:-1:0
 301 -0.00612:-1:0
 302 -0.00612:-2:0
 303 -0.006:-1:0
 304 -0.006:-2:0
 305 -0.0006:-2:0
 306 -0.0006:-3:0
 307 -0.0065:-3:/-0\.006|-6e-03
 308 -0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 309 -0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 310 0.05:0:0
 311 0.5:0:0
 312 0.51:0:0
 313 0.41:0:0
 314 $rnd_mode = "zero"
 315 +2.23:-1:/2.2(?:0{5}\d+)?
 316 -2.23:-1:/-2.2(?:0{5}\d+)?
 317 +2.27:-1:/2.(?:3|29{5}\d+)
 318 -2.27:-1:/-2.(?:3|29{5}\d+)
 319 +2.25:-1:/2.2(?:0{5}\d+)?
 320 -2.25:-1:/-2.2(?:0{5}\d+)?
 321 +2.35:-1:/2.(?:3|29{5}\d+)
 322 -2.35:-1:/-2.(?:3|29{5}\d+)
 323 -0.0065:-1:0
 324 -0.0065:-2:/-0\.01|-1e-02
 325 -0.0065:-3:/-0\.006|-6e-03
 326 -0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 327 -0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 328 0.05:0:0
 329 0.5:0:0
 330 0.51:0:1
 331 0.41:0:0
 332 $rnd_mode = "+inf"
 333 +3.23:-1:/3.2(?:0{5}\d+)?
 334 -3.23:-1:/-3.2(?:0{5}\d+)?
 335 +3.27:-1:/3.(?:3|29{5}\d+)
 336 -3.27:-1:/-3.(?:3|29{5}\d+)
 337 +3.25:-1:/3.(?:3|29{5}\d+)
 338 -3.25:-1:/-3.2(?:0{5}\d+)?
 339 +3.35:-1:/3.(?:4|39{5}\d+)
 340 -3.35:-1:/-3.(?:3|29{5}\d+)
 341 -0.0065:-1:0
 342 -0.0065:-2:/-0\.01|-1e-02
 343 -0.0065:-3:/-0\.006|-6e-03
 344 -0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 345 -0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 346 0.05:0:0
 347 0.5:0:1
 348 0.51:0:1
 349 0.41:0:0
 350 $rnd_mode = "-inf"
 351 +4.23:-1:/4.2(?:0{5}\d+)?
 352 -4.23:-1:/-4.2(?:0{5}\d+)?
 353 +4.27:-1:/4.(?:3|29{5}\d+)
 354 -4.27:-1:/-4.(?:3|29{5}\d+)
 355 +4.25:-1:/4.2(?:0{5}\d+)?
 356 -4.25:-1:/-4.(?:3|29{5}\d+)
 357 +4.35:-1:/4.(?:3|29{5}\d+)
 358 -4.35:-1:/-4.(?:4|39{5}\d+)
 359 -0.0065:-1:0
 360 -0.0065:-2:/-0\.01|-1e-02
 361 -0.0065:-3:/-0\.007|-7e-03
 362 -0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 363 -0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 364 0.05:0:0
 365 0.5:0:0
 366 0.51:0:1
 367 0.41:0:0
 368 $rnd_mode = "odd"
 369 +5.23:-1:/5.2(?:0{5}\d+)?
 370 -5.23:-1:/-5.2(?:0{5}\d+)?
 371 +5.27:-1:/5.(?:3|29{5}\d+)
 372 -5.27:-1:/-5.(?:3|29{5}\d+)
 373 +5.25:-1:/5.(?:3|29{5}\d+)
 374 -5.25:-1:/-5.(?:3|29{5}\d+)
 375 +5.35:-1:/5.(?:3|29{5}\d+)
 376 -5.35:-1:/-5.(?:3|29{5}\d+)
 377 -0.0065:-1:0
 378 -0.0065:-2:/-0\.01|-1e-02
 379 -0.0065:-3:/-0\.007|-7e-03
 380 -0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 381 -0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 382 0.05:0:0
 383 0.5:0:1
 384 0.51:0:1
 385 0.41:0:0
 386 $rnd_mode = "even"
 387 +6.23:-1:/6.2(?:0{5}\d+)?
 388 -6.23:-1:/-6.2(?:0{5}\d+)?
 389 +6.27:-1:/6.(?:3|29{5}\d+)
 390 -6.27:-1:/-6.(?:3|29{5}\d+)
 391 +6.25:-1:/6.(?:2(?:0{5}\d+)?|29{5}\d+)
 392 -6.25:-1:/-6.(?:2(?:0{5}\d+)?|29{5}\d+)
 393 +6.35:-1:/6.(?:4|39{5}\d+|29{8}\d+)
 394 -6.35:-1:/-6.(?:4|39{5}\d+|29{8}\d+)
 395 -0.0065:-1:0
 396 -0.0065:-2:/-0\.01|-1e-02
 397 -0.0065:-3:/-0\.006|-7e-03
 398 -0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 399 -0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 400 0.05:0:0
 401 0.5:0:0
 402 0.51:0:1
 403 0.41:0:0
 404 0.01234567:-3:0.012
 405 0.01234567:-4:0.0123
 406 0.01234567:-5:0.01235
 407 0.01234567:-6:0.012346
 408 0.01234567:-7:0.0123457
 409 0.01234567:-8:0.01234567
 410 0.01234567:-9:0.01234567
 411 0.01234567:-12:0.01234567
 412 &fcmp
 413 abc:abc:
 414 abc:+0:
 415 +0:abc:
 416 +0:+0:0
 417 -1:+0:-1
 418 +0:-1:1
 419 +1:+0:1
 420 +0:+1:-1
 421 -1:+1:-1
 422 +1:-1:1
 423 -1:-1:0
 424 +1:+1:0
 425 -1.1:0:-1
 426 +0:-1.1:1
 427 +1.1:+0:1
 428 +0:+1.1:-1
 429 +123:+123:0
 430 +123:+12:1
 431 +12:+123:-1
 432 -123:-123:0
 433 -123:-12:-1
 434 -12:-123:1
 435 +123:+124:-1
 436 +124:+123:1
 437 -123:-124:1
 438 -124:-123:-1
 439 0:0.01:-1
 440 0:0.0001:-1
 441 0:-0.0001:1
 442 0:-0.1:1
 443 0.1:0:1
 444 0.00001:0:1
 445 -0.0001:0:-1
 446 -0.1:0:-1
 447 0:0.0001234:-1
 448 0:-0.0001234:1
 449 0.0001234:0:1
 450 -0.0001234:0:-1
 451 0.0001:0.0005:-1
 452 0.0005:0.0001:1
 453 0.005:0.0001:1
 454 0.001:0.0005:1
 455 0.000001:0.0005:-2      # <0, but can't test this
 456 0.00000123:0.0005:-2    # <0, but can't test this
 457 0.00512:0.0001:1
 458 0.005:0.000112:1
 459 0.00123:0.0005:1
 460 &fadd
 461 abc:abc:NaN
 462 abc:+0:NaN
 463 +0:abc:NaN
 464 +0:+0:0
 465 +1:+0:1
 466 +0:+1:1
 467 +1:+1:2
 468 -1:+0:-1
 469 +0:-1:-1
 470 -1:-1:-2
 471 -1:+1:0
 472 +1:-1:0
 473 +9:+1:10
 474 +99:+1:100
 475 +999:+1:1000
 476 +9999:+1:10000
 477 +99999:+1:100000
 478 +999999:+1:1000000
 479 +9999999:+1:10000000
 480 +99999999:+1:100000000
 481 +999999999:+1:1000000000
 482 +9999999999:+1:10000000000
 483 +99999999999:+1:100000000000
 484 +10:-1:9
 485 +100:-1:99
 486 +1000:-1:999
 487 +10000:-1:9999
 488 +100000:-1:99999
 489 +1000000:-1:999999
 490 +10000000:-1:9999999
 491 +100000000:-1:99999999
 492 +1000000000:-1:999999999
 493 +10000000000:-1:9999999999
 494 +123456789:+987654321:1111111110
 495 -123456789:+987654321:864197532
 496 -123456789:-987654321:-1111111110
 497 +123456789:-987654321:-864197532
 498 &fsub
 499 abc:abc:NaN
 500 abc:+0:NaN
 501 +0:abc:NaN
 502 +0:+0:0
 503 +1:+0:1
 504 +0:+1:-1
 505 +1:+1:0
 506 -1:+0:-1
 507 +0:-1:1
 508 -1:-1:0
 509 -1:+1:-2
 510 +1:-1:2
 511 +9:+1:8
 512 +99:+1:98
 513 +999:+1:998
 514 +9999:+1:9998
 515 +99999:+1:99998
 516 +999999:+1:999998
 517 +9999999:+1:9999998
 518 +99999999:+1:99999998
 519 +999999999:+1:999999998
 520 +9999999999:+1:9999999998
 521 +99999999999:+1:99999999998
 522 +10:-1:11
 523 +100:-1:101
 524 +1000:-1:1001
 525 +10000:-1:10001
 526 +100000:-1:100001
 527 +1000000:-1:1000001
 528 +10000000:-1:10000001
 529 +100000000:-1:100000001
 530 +1000000000:-1:1000000001
 531 +10000000000:-1:10000000001
 532 +123456789:+987654321:-864197532
 533 -123456789:+987654321:-1111111110
 534 -123456789:-987654321:864197532
 535 +123456789:-987654321:1111111110
 536 &fmul
 537 abc:abc:NaN
 538 abc:+0:NaN
 539 +0:abc:NaN
 540 +0:+0:0
 541 +0:+1:0
 542 +1:+0:0
 543 +0:-1:0
 544 -1:+0:0
 545 +123456789123456789:+0:0
 546 +0:+123456789123456789:0
 547 -1:-1:1
 548 -1:+1:-1
 549 +1:-1:-1
 550 +1:+1:1
 551 +2:+3:6
 552 -2:+3:-6
 553 +2:-3:-6
 554 -2:-3:6
 555 +111:+111:12321
 556 +10101:+10101:102030201
 557 +1001001:+1001001:1002003002001
 558 +100010001:+100010001:10002000300020001
 559 +10000100001:+10000100001:100002000030000200001
 560 +11111111111:+9:99999999999
 561 +22222222222:+9:199999999998
 562 +33333333333:+9:299999999997
 563 +44444444444:+9:399999999996
 564 +55555555555:+9:499999999995
 565 +66666666666:+9:599999999994
 566 +77777777777:+9:699999999993
 567 +88888888888:+9:799999999992
 568 +99999999999:+9:899999999991
 569 &fdiv
 570 $div_scale = 40; $Math::BigFloat::rnd_mode = 'even'
 571 abc:abc:NaN
 572 abc:+1:abc:NaN
 573 +1:abc:NaN
 574 +0:+0:NaN
 575 +0:+1:0
 576 +1:+0:NaN
 577 +0:-1:0
 578 -1:+0:NaN
 579 +1:+1:1
 580 -1:-1:1
 581 +1:-1:-1
 582 -1:+1:-1
 583 +1:+2:0.5
 584 +2:+1:2
 585 +10:+5:2
 586 +100:+4:25
 587 +1000:+8:125
 588 +10000:+16:625
 589 +10000:-16:-625
 590 +999999999999:+9:111111111111
 591 +999999999999:+99:10101010101
 592 +999999999999:+999:1001001001
 593 +999999999999:+9999:100010001
 594 +999999999999999:+99999:10000100001
 595 +1000000000:+9:111111111.1111111111111111111111111111111
 596 +2000000000:+9:222222222.2222222222222222222222222222222
 597 +3000000000:+9:333333333.3333333333333333333333333333333
 598 +4000000000:+9:444444444.4444444444444444444444444444444
 599 +5000000000:+9:555555555.5555555555555555555555555555556
 600 +6000000000:+9:666666666.6666666666666666666666666666667
 601 +7000000000:+9:777777777.7777777777777777777777777777778
 602 +8000000000:+9:888888888.8888888888888888888888888888889
 603 +9000000000:+9:1000000000
 604 +35500000:+113:314159.2920353982300884955752212389380531
 605 +71000000:+226:314159.2920353982300884955752212389380531
 606 +106500000:+339:314159.2920353982300884955752212389380531
 607 +1000000000:+3:333333333.3333333333333333333333333333333
 608 $div_scale = 20
 609 +1000000000:+9:111111111.11111111111
 610 +2000000000:+9:222222222.22222222222
 611 +3000000000:+9:333333333.33333333333
 612 +4000000000:+9:444444444.44444444444
 613 +5000000000:+9:555555555.55555555556
 614 +6000000000:+9:666666666.66666666667
 615 +7000000000:+9:777777777.77777777778
 616 +8000000000:+9:888888888.88888888889
 617 +9000000000:+9:1000000000
 618 # following two cases are the "old" behaviour, but are now (>v0.01) different
 619 #+35500000:+113:314159.292035398230088
 620 #+71000000:+226:314159.292035398230088
 621 +35500000:+113:314159.29203539823009
 622 +71000000:+226:314159.29203539823009
 623 +106500000:+339:314159.29203539823009
 624 +1000000000:+3:333333333.33333333333
 625 $div_scale = 1
 626 # div_scale will be 3 since $x has 3 digits
 627 +124:+3:41.3
 628 # reset scale for further tests
 629 $div_scale = 40
 630 &fmod
 631 +0:0:NaN
 632 +0:1:0
 633 +3:1:0
 634 #+5:2:1
 635 #+9:4:1
 636 #+9:5:4
 637 #+9000:56:40
 638 #+56:9000:56
 639 &fsqrt
 640 +0:0
 641 -1:NaN
 642 -2:NaN
 643 -16:NaN
 644 -123.45:NaN
 645 +1:1
 646 #+1.44:1.2
 647 #+2:1.41421356237309504880168872420969807857
 648 #+4:2
 649 #+16:4
 650 #+100:10
 651 #+123.456:11.11107555549866648462149404118219234119
 652 #+15241.38393:123.456
 653 &is_odd
 654 abc:0
 655 0:0
 656 -1:1
 657 -3:1
 658 1:1
 659 3:1
 660 1000001:1
 661 1000002:0
 662 2:0
 663 &is_even
 664 abc:0
 665 0:1
 666 -1:0
 667 -3:0
 668 1:0
 669 3:0
 670 1000001:0
 671 1000002:1
 672 2:1
 673 &is_zero
 674 NaNzero:0
 675 0:1
 676 -1:0
 677 1:0
 678 &is_one
 679 0:0
 680 2:0
 681 1:1
 682 -1:0
 683 -2:0
 684 &_set
 685 NaN:2:2
 686 2:abc:NaN
 687 1:-1:-1
 688 2:1:1
 689 -2:0:0
 690 128:-2:-2
 691 &bfloor
 692 0:0
 693 abc:NaN
 694 +inf:+inf
 695 -inf:-inf
 696 1:1
 697 -51:-51
 698 -51.2:-52
 699 12.2:12
 700 &bceil
 701 0:0
 702 abc:NaN
 703 +inf:+inf
 704 -inf:-inf
 705 1:1
 706 -51:-51
 707 -51.2:-51
 708 12.2:13