bigint.t

UNIX下perl实现代码

#!./perl

BEGIN { @INC = '../lib' }
require "bigint.pl";

$test = 0;
$| = 1;
print "1..246\n";
while (<DATA>) {
	chop;
	if (/^&/) {
		$f = $_;
	} else {
		++$test;
		@args = split(/:/,$_,99);
		$ans = pop(@args);
		$try = "$f('" . join("','", @args) . "');";
		if (($ans1 = eval($try)) eq $ans) {
			print "ok $test\n";
		} else {
			print "not ok $test\n";
			print "# '$try' expected: '$ans' got: '$ans1'\n";
		}
	}
} 
__END__
&bnorm
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:[phone]
-1:-1
-01:-1
-001:-1
-123456789:-123456789
-00000100000:-100000
&bneg
abd:NaN
+0:+0
+1:-1
-1:+1
[phone]:-123456789
-123456789:[phone]
&babs
abc:NaN
+0:+0
+1:+1
-1:+1
[phone]:[phone]
-123456789:[phone]
&bcmp
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
+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
&badd
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:[phone]
[phone]:+1:[phone]
[phone]:+1:[phone]
[phone]:+1:[phone]
[phone]:+1:[phone]
+10:-1:+9
+100:-1:+99
+1000:-1:+999
+10000:-1:+9999
+100000:-1:+99999
+1000000:-1:+999999
[phone]:-1:+9999999
[phone]:-1:[phone]
[phone]:-1:[phone]
[phone]:-1:[phone]
[phone]:[phone]:[phone]
-123456789:[phone]:[phone]
-123456789:-987654321:-1111111110
[phone]:-987654321:-864197532
&bsub
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:[phone]
[phone]:+1:[phone]
[phone]:+1:[phone]
[phone]:+1:[phone]
+10:-1:+11
+100:-1:+101
+1000:-1:+1001
+10000:-1:+10001
+100000:-1:+100001
+1000000:-1:+1000001
[phone]:-1:[phone]
[phone]:-1:[phone]
[phone]:-1:[phone]
[phone]:-1:[phone]
[phone]:[phone]:-864197532
-123456789:[phone]:-1111111110
-123456789:-987654321:[phone]
[phone]:-987654321:[phone]
&bmul
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:[phone]
+1001001:+1001001:[phone]
[phone]:[phone]:+10002000300020001
[phone]:[phone]:+100002000030000200001
[phone]:+9:[phone]
[phone]:+9:[phone]
[phone]:+9:[phone]
[phone]:+9:[phone]
[phone]:+9:[phone]
[phone]:+9:[phone]
[phone]:+9:[phone]
[phone]:+9:[phone]
[phone]:+9:[phone]
&bdiv
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:+0
+2:+1:+2
[phone]:+9:[phone]
[phone]:+9:[phone]
[phone]:+9:[phone]
[phone]:+9:[phone]
[phone]:+9:[phone]
[phone]:+9:[phone]
[phone]:+9:[phone]
[phone]:+9:[phone]
[phone]:+9:[phone]
[phone]:+113:+314159
[phone]:+226:+314159
[phone]:+339:+314159
[phone]:+3:[phone]
+10:+5:+2
+100:+4:+25
+1000:+8:+125
+10000:+16:+625
[phone]:+9:[phone]
[phone]:+99:[phone]
[phone]:+999:[phone]
[phone]:+9999:[phone]
[phone]:+99999:[phone]
&bmod
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:+0
-1:-1:+0
+1:-1:+0
-1:+1:+0
+1:+2:+1
+2:+1:+0
[phone]:+9:+1
[phone]:+9:+2
[phone]:+9:+3
[phone]:+9:+4
[phone]:+9:+5
[phone]:+9:+6
[phone]:+9:+7
[phone]:+9:+8
[phone]:+9:+0
[phone]:+113:+33
[phone]:+226:+66
[phone]:+339:+99
[phone]:+3:+1
+10:+5:+0
+100:+4:+0
+1000:+8:+0
+10000:+16:+0
[phone]:+9:+0
[phone]:+99:+0
[phone]:+999:+0
[phone]:+9999:+0
[phone]:+99999:+0
&bgcd
abc:abc:NaN
abc:+0:NaN
+0:abc:NaN
+0:+0:+0
+0:+1:+1
+1:+0:+1
+1:+1:+1
+2:+3:+1
+3:+2:+1
+100:+625:+25
+4096:+81:+1