bigfltpm.t

UNIX下perl实现代码

#!./perl

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
}

use Math::BigFloat;

$test = 0;
$| = 1;
print "1..370\n";
while (<DATA>) {
       chop;
       if (s/^&//) {
               $f = $_;
	} elsif (/^\$.*/) {
		eval "$_;";
       } else {
               ++$test;
	       if (m|^(.*?):(/.+)$|) {
	           $ans = $2;
                   @args = split(/:/,$1,99);
	       }
	       else {
                   @args = split(/:/,$_,99);
                   $ans = pop(@args);
	       }
               $try = "\$x = new Math::BigFloat \"$args[0]\";";
               if ($f eq "fnorm"){
                   $try .= "\$x+0;";
               } elsif ($f eq "fneg") {
                   $try .= "-\$x;";
               } elsif ($f eq "fabs") {
                   $try .= "abs \$x;";
               } elsif ($f eq "fround") {
                   $try .= "0+\$x->fround($args[1]);";
               } elsif ($f eq "ffround") {
                   $try .= "0+\$x->ffround($args[1]);";
               } elsif ($f eq "fsqrt") {
                   $try .= "0+\$x->fsqrt;";
               } else {
                   $try .= "\$y = new Math::BigFloat \"$args[1]\";";
                   if ($f eq "fcmp") {
                       $try .= "\$x <=> \$y;";
                   } elsif ($f eq "fadd") {
                       $try .= "\$x + \$y;";
                   } elsif ($f eq "fsub") {
                       $try .= "\$x - \$y;";
                   } elsif ($f eq "fmul") {
                       $try .= "\$x * \$y;";
                   } elsif ($f eq "fdiv") {
                       $try .= "\$x / \$y;";
                   } elsif ($f eq "fmod") {
                       $try .= "\$x % \$y;";
                   } else { warn "Unknown op"; }
               }
               #print ">>>",$try,"<<<\n";
               $ans1 = eval $try;
	       if ($ans =~ m|^/(.*)$|) {
	           my $pat = $1;
		   if ($ans1 =~ /$pat/) {
                       print "ok $test\n";
		   }
		   else {
                       print "not ok $test\n";
                       print "# '$try' expected: /$pat/ got: '$ans1'\n";
		   }
	       }
                else {

 			$ans1_str = defined $ans1? "$ans1" : "";
 			if ($ans1_str eq $ans) { #bug!
 	                       print "ok $test\n";
 	               } else {
 	                       print "not ok $test\n";
 	                       print "# '$try' expected: '$ans' got: '$ans1'\n";
 	               }
 	       }
       }
}
__END__
&fnorm
abc:NaN
   1 a:NaN
1bcd2:NaN
11111b:NaN
+1z:NaN
-1z:NaN
0:0.
+0:0.
+00:0.
+0 0 0:0.
000000  0000000   00000:0.
-0:0.
-0000:0.
+1:1.
+01:1.
+001:1.
+00000100000:100000.
123456789:123456789.
-1:-1.
-01:-1.
-001:-1.
-123456789:-123456789.
-00000100000:-100000.
123.456a:NaN
123.456:123.456
0.01:.01
.002:.002
-0.0003:-.0003
-.0000000004:-.0000000004
123456E2:12345600.
123456E-2:1234.56
-123456E2:-12345600.
-123456E-2:-1234.56
1e1:10.
2e-11:.00000000002
-3e111:-3000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000.
-4e-1111:-.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000004
&fneg
abc:NaN
+0:0.
+1:-1.
-1:1.
[phone]:-123456789.
-123456789:123456789.
+123.456789:-123.456789
-123456.789:123456.789
&fabs
abc:NaN
+0:0.
+1:1.
-1:1.
[phone]:123456789.
-123456789:123456789.
+123.456789:123.456789
-123456.789:123456.789
&fround
$Math::BigFloat::rnd_mode = 'trunc'
[phone]:5:10123000000
-10123456789:5:-10123000000
[phone]:9:10123456700
-10123456789:9:-10123456700
[phone]:6:101234000
-101234500:6:-101234000
$Math::BigFloat::rnd_mode = 'zero'
[phone]:5:20123000000
-20123456789:5:-20123000000
[phone]:9:20123456800
-20123456789:9:-20123456800
[phone]:6:201234000
-201234500:6:-201234000
$Math::BigFloat::rnd_mode = '+inf'
[phone]:5:30123000000
-30123456789:5:-30123000000
[phone]:9:30123456800
-30123456789:9:-30123456800
[phone]:6:301235000
-301234500:6:-301234000
$Math::BigFloat::rnd_mode = '-inf'
[phone]:5:40123000000
-40123456789:5:-40123000000
[phone]:9:40123456800
-40123456789:9:-40123456800
[phone]:6:401234000
-401234500:6:-401235000
$Math::BigFloat::rnd_mode = 'odd'
[phone]:5:50123000000
-50123456789:5:-50123000000
[phone]:9:50123456800
-50123456789:9:-50123456800
[phone]:6:501235000
-501234500:6:-501235000
$Math::BigFloat::rnd_mode = 'even'
[phone]:5:60123000000
-60123456789:5:-60123000000
[phone]:9:60123456800
-60123456789:9:-60123456800
[phone]:6:601234000
-601234500:6:-601234000
&ffround
$Math::BigFloat::rnd_mode = 'trunc'
+1.23:-1:1.2
-1.23:-1:-1.2
+1.27:-1:1.2
-1.27:-1:-1.2
+1.25:-1:1.2
-1.25:-1:-1.2
+1.35:-1:1.3
-1.35:-1:-1.3
-0.006:-1:0
-0.006:-2:0
-0.0065:-3:/-0\.006|-6e-03
-0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
-0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
$Math::BigFloat::rnd_mode = 'zero'
+2.23:-1:/2.2(?:0{5}\d+)?
-2.23:-1:/-2.2(?:0{5}\d+)?
+2.27:-1:/2.(?:3|29{5}\d+)
-2.27:-1:/-2.(?:3|29{5}\d+)
+2.25:-1:/2.2(?:0{5}\d+)?
-2.25:-1:/-2.2(?:0{5}\d+)?
+2.35:-1:/2.(?:3|29{5}\d+)
-2.35:-1:/-2.(?:3|29{5}\d+)
-0.0065:-1:0
-0.0065:-2:/-0\.01|-1e-02
-0.0065:-3:/-0\.006|-6e-03
-0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
-0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
$Math::BigFloat::rnd_mode = '+inf'
+3.23:-1:/3.2(?:0{5}\d+)?
-3.23:-1:/-3.2(?:0{5}\d+)?
+3.27:-1:/3.(?:3|29{5}\d+)
-3.27:-1:/-3.(?:3|29{5}\d+)
+3.25:-1:/3.(?:3|29{5}\d+)
-3.25:-1:/-3.2(?:0{5}\d+)?
+3.35:-1:/3.(?:4|39{5}\d+)
-3.35:-1:/-3.(?:3|29{5}\d+)
-0.0065:-1:0
-0.0065:-2:/-0\.01|-1e-02
-0.0065:-3:/-0\.006|-6e-03
-0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
-0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
$Math::BigFloat::rnd_mode = '-inf'
+4.23:-1:/4.2(?:0{5}\d+)?
-4.23:-1:/-4.2(?:0{5}\d+)?
+4.27:-1:/4.(?:3|29{5}\d+)
-4.27:-1:/-4.(?:3|29{5}\d+)
+4.25:-1:/4.2(?:0{5}\d+)?
-4.25:-1:/-4.(?:3|29{5}\d+)
+4.35:-1:/4.(?:3|29{5}\d+)
-4.35:-1:/-4.(?:4|39{5}\d+)
-0.0065:-1:0
-0.0065:-2:/-0\.01|-1e-02
-0.0065:-3:/-0\.007|-7e-03
-0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
-0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
$Math::BigFloat::rnd_mode = 'odd'
+5.23:-1:/5.2(?:0{5}\d+)?
-5.23:-1:/-5.2(?:0{5}\d+)?
+5.27:-1:/5.(?:3|29{5}\d+)
-5.27:-1:/-5.(?:3|29{5}\d+)
+5.25:-1:/5.(?:3|29{5}\d+)
-5.25:-1:/-5.(?:3|29{5}\d+)
+5.35:-1:/5.(?:3|29{5}\d+)
-5.35:-1:/-5.(?:3|29{5}\d+)
-0.0065:-1:0
-0.0065:-2:/-0\.01|-1e-02
-0.0065:-3:/-0\.007|-7e-03
-0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
-0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
$Math::BigFloat::rnd_mode = 'even'
+6.23:-1:/6.2(?:0{5}\d+)?
-6.23:-1:/-6.2(?:0{5}\d+)?
+6.27:-1:/6.(?:3|29{5}\d+)
-6.27:-1:/-6.(?:3|29{5}\d+)
+6.25:-1:/6.(?:2(?:0{5}\d+)?|29{5}\d+)
-6.25:-1:/-6.(?:2(?:0{5}\d+)?|29{5}\d+)
+6.35:-1:/6.(?:4|39{5}\d+|29{8}\d+)
-6.35:-1:/-6.(?:4|39{5}\d+|29{8}\d+)
-0.0065:-1:0
-0.0065:-2:/-0\.01|-1e-02
-0.0065:-3:/-0\.006|-7e-03
-0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
-0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
&fcmp
abc:abc:
abc:+0:
+0:abc:
+0:+0:0
-1:+0:-1
+0:-1:1
+1:+0:1
+0:+1:-1
-1:+1:-1
+1:-1:1
-1:-1:0
+1:+1:0
-1.1:0:-1
+0:-1.1:1
+1.1:+0:1
+0:+1.1:-1
+123:+123:0
+123:+12:1
+12:+123:-1
-123:-123:0
-123:-12:-1
-12:-123:1
+123:+124:-1
+124:+123:1
-123:-124:1
-124:-123:-1
&fadd
abc:abc:NaN
abc:+0:NaN
+0:abc:NaN
+0:+0:0.
+1:+0:1.
+0:+1:1.
+1:+1:2.
-1:+0:-1.
+0:-1:-1.
-1:-1:-2.
-1:+1:0.
+1:-1:0.
+9:+1:10.
+99:+1:100.
+999:+1:1000.
+9999:+1:10000.
+99999:+1:100000.
+999999:+1:1000000.
+9999999:+1:10000000.
[phone]:+1:100000000.
[phone]:+1:1000000000.
[phone]:+1:10000000000.
[phone]:+1:100000000000.
+10:-1:9.
+100:-1:99.
+1000:-1:999.
+10000:-1:9999.
+100000:-1:99999.
+1000000:-1:999999.
[phone]:-1:9999999.
[phone]:-1:99999999.
[phone]:-1:999999999.
[phone]:-1:9999999999.
[phone]:[phone]:1111111110.
-123456789:[phone]:864197532.
-123456789:-987654321:-1111111110.
[phone]:-987654321:-864197532.
&fsub
abc:abc:NaN
abc:+0:NaN
+0:abc:NaN
+0:+0:0.
+1:+0:1.
+0:+1:-1.
+1:+1:0.
-1:+0:-1.
+0:-1:1.
-1:-1:0.
-1:+1:-2.
+1:-1:2.
+9:+1:8.
+99:+1:98.
+999:+1:998.
+9999:+1:9998.
+99999:+1:99998.
+999999:+1:999998.
+9999999:+1:9999998.
[phone]:+1:99999998.
[phone]:+1:999999998.
[phone]:+1:9999999998.
[phone]:+1:99999999998.
+10:-1:11.
+100:-1:101.
+1000:-1:1001.
+10000:-1:10001.
+100000:-1:100001.
+1000000:-1:1000001.
[phone]:-1:10000001.
[phone]:-1:100000001.
[phone]:-1:1000000001.
[phone]:-1:10000000001.
[phone]:[phone]:-864197532.
-123456789:[phone]:-1111111110.
-123456789:-987654321:864197532.
[phone]:-987654321:1111111110.
&fmul
abc:abc:NaN
abc:+0:NaN
+0:abc:NaN
+0:+0:0.
+0:+1:0.
+1:+0:0.
+0:-1:0.
-1:+0:0.
+123456789123456789:+0:0.
+0:+123456789123456789:0.
-1:-1:1.
-1:+1:-1.
+1:-1:-1.
+1:+1:1.
+2:+3:6.
-2:+3:-6.
+2:-3:-6.
-2:-3:6.
+111:+111:12321.
+10101:+10101:102030201.
+1001001:+1001001:1002003002001.
[phone]:[phone]:10002000300020001.
[phone]:[phone]:100002000030000200001.
[phone]:+9:99999999999.
[phone]:+9:199999999998.
[phone]:+9:299999999997.
[phone]:+9:399999999996.
[phone]:+9:499999999995.
[phone]:+9:599999999994.
[phone]:+9:699999999993.
[phone]:+9:799999999992.
[phone]:+9:899999999991.
&fdiv
abc:abc:NaN
abc:+1:abc:NaN
+1:abc:NaN
+0:+0:NaN
+0:+1:0.
+1:+0:NaN
+0:-1:0.
-1:+0:NaN
+1:+1:1.
-1:-1:1.
+1:-1:-1.
-1:+1:-1.
+1:+2:.5
+2:+1:2.
+10:+5:2.
+100:+4:25.
+1000:+8:125.
+10000:+16:625.
+10000:-16:-625.
[phone]:+9:111111111111.
[phone]:+99:10101010101.
[phone]:+999:1001001001.
[phone]:+9999:100010001.
[phone]:+99999:10000100001.
[phone]:+9:111111111.1111111111111111111111111111111
[phone]:+9:222222222.2222222222222222222222222222222
[phone]:+9:333333333.3333333333333333333333333333333
[phone]:+9:444444444.4444444444444444444444444444444
[phone]:+9:555555555.5555555555555555555555555555556
[phone]:+9:666666666.6666666666666666666666666666667
[phone]:+9:777777777.7777777777777777777777777777778
[phone]:+9:888888888.8888888888888888888888888888889
[phone]:+9:1000000000.
[phone]:+113:314159.2920353982300884955752212389380531
[phone]:+226:314159.2920353982300884955752212389380531
[phone]:+339:314159.2920353982300884955752212389380531
[phone]:+3:333333333.3333333333333333333333333333333
$Math::BigFloat::div_scale = 20
[phone]:+9:111111111.11111111111
[phone]:+9:222222222.22222222222
[phone]:+9:333333333.33333333333
[phone]:+9:444444444.44444444444
[phone]:+9:555555555.55555555556
[phone]:+9:666666666.66666666667
[phone]:+9:777777777.77777777778
[phone]:+9:888888888.88888888889
[phone]:+9:1000000000.
[phone]:+113:314159.292035398230088
[phone]:+226:314159.292035398230088
[phone]:+339:314159.29203539823009
[phone]:+3:333333333.33333333333
$Math::BigFloat::div_scale = 40
&fsqrt
+0:0
-1:/^(?i:0|\?|NaNQ?)$
-2:/^(?i:0|\?|NaNQ?)$
-16:/^(?i:0|\?|NaNQ?)$
-123.456:/^(?i:0|\?|NaNQ?)$
+1:1.
+1.44:1.2
+2:1.41421356237309504880168872420969807857
+4:2.
+16:4.
+100:10.
+123.456:11.11107555549866648462149404118219234119
+15241.383936:123.456
&fmod
+0:0:NaN
+0:1:0.
+3:1:0.
+5:2:1.
+9:4:1.
+9:5:4.
+9000:56:40.
+56:9000:56.