projects / p5sagit/p5-mst-13.2.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | history | HEAD
Remove now-irrelevant comment
[p5sagit/p5-mst-13.2.git] / lib / Math / BigInt / t / bigfltpm.inc
CommitLineData
ee15d750 1#include this file into another test for subclass testing...
b3abae2a 2
3ok ($class->config()->{lib},$CL);
4
56d9de68 5use strict;
6
b68b7ab1 7my $z;
8
ee15d750 9while (<DATA>)
10 {
d614cd8b 11 chomp;
ee15d750 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 }
9b924220 35 $try = "\$x = $class->new(\"$args[0]\");";
ee15d750 36 if ($f eq "fnorm")
37 {
38 $try .= "\$x;";
39 } elsif ($f eq "finf") {
40 $try .= "\$x->finf('$args[1]');";
027dc388 41 } elsif ($f eq "is_inf") {
42 $try .= "\$x->is_inf('$args[1]');";
ee15d750 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();';
ee15d750 48 } elsif ($f eq "parts") {
48b581a2 49 # ->bstr() to see if an object is returned
ee15d750 50 $try .= '($a,$b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr();';
51 $try .= '"$a $b";';
ee15d750 52 } elsif ($f eq "exponent") {
48b581a2 53 # ->bstr() to see if an object is returned
ee15d750 54 $try .= '$x->exponent()->bstr();';
55 } elsif ($f eq "mantissa") {
48b581a2 56 # ->bstr() to see if an object is returned
ee15d750 57 $try .= '$x->mantissa()->bstr();';
56d9de68 58 } elsif ($f =~ /^(numify|length|as_number|as_hex|as_bin)$/) {
59 $try .= "\$x->$f();";
b3abae2a 60 # some unary ops (test the fxxx form, since that is done by AUTOLOAD)
027dc388 61 } elsif ($f =~ /^f(nan|sstr|neg|floor|ceil|abs)$/) {
394e6ffb 62 $try .= "\$x->f$1();";
027dc388 63 # some is_xxx test function
b3abae2a 64 } elsif ($f =~ /^is_(zero|one|negative|positive|odd|even|nan|int)$/) {
027dc388 65 $try .= "\$x->$f();";
fdb4b05f 66 } elsif ($f eq "bpi") {
67 $try .= '$class->bpi($x);';
ee15d750 68 } elsif ($f eq "finc") {
69 $try .= '++$x;';
70 } elsif ($f eq "fdec") {
71 $try .= '--$x;';
72 }elsif ($f eq "fround") {
73 $try .= "$setup; \$x->fround($args[1]);";
74 } elsif ($f eq "ffround") {
75 $try .= "$setup; \$x->ffround($args[1]);";
76 } elsif ($f eq "fsqrt") {
77 $try .= "$setup; \$x->fsqrt();";
b3abae2a 78 } elsif ($f eq "ffac") {
79 $try .= "$setup; \$x->ffac();";
990fb837 80 } elsif ($f eq "flog") {
90d1b129 81 if (defined $args[1] && $args[1] ne '')
990fb837 82 {
83 $try .= "\$y = $class->new($args[1]);";
84 $try .= "$setup; \$x->flog(\$y);";
85 }
86 else
87 {
88 $try .= "$setup; \$x->flog();";
89 }
ee15d750 90 }
91 else
92 {
990fb837 93 $try .= "\$y = $class->new(\"$args[1]\");";
b68b7ab1 94
95 if ($f eq "bgcd")
96 {
97 if (defined $args[2])
98 {
99 $try .= " \$z = $class->new(\"$args[2]\"); ";
100 }
101 $try .= "$class\::bgcd(\$x, \$y";
102 $try .= ", \$z" if (defined $args[2]);
103 $try .= " );";
104 }
105 elsif ($f eq "blcm")
106 {
107 if (defined $args[2])
108 {
109 $try .= " \$z = $class->new(\"$args[2]\"); ";
110 }
111 $try .= "$class\::blcm(\$x, \$y";
112 $try .= ", \$z" if (defined $args[2]);
113 $try .= " );";
114 } elsif ($f eq "fcmp") {
a0ac753d 115 $try .= '$x->fcmp($y);';
ee15d750 116 } elsif ($f eq "facmp") {
117 $try .= '$x->facmp($y);';
118 } elsif ($f eq "fpow") {
119 $try .= '$x ** $y;';
50109ad0 120 } elsif ($f eq "bnok") {
121 $try .= '$x->bnok($y);';
60a1aa19 122 } elsif ($f eq "bcos") {
123 $try .= '$x->bcos($y);';
124 } elsif ($f eq "bsin") {
125 $try .= '$x->bsin($y);';
126 } elsif ($f eq "batan") {
127 $try .= '$x->batan($y);';
990fb837 128 } elsif ($f eq "froot") {
129 $try .= "$setup; \$x->froot(\$y);";
ee15d750 130 } elsif ($f eq "fadd") {
131 $try .= '$x + $y;';
132 } elsif ($f eq "fsub") {
133 $try .= '$x - $y;';
134 } elsif ($f eq "fmul") {
135 $try .= '$x * $y;';
136 } elsif ($f eq "fdiv") {
137 $try .= "$setup; \$x / \$y;";
b3abae2a 138 } elsif ($f eq "fdiv-list") {
139 $try .= "$setup; join(',',\$x->fdiv(\$y));";
394e6ffb 140 } elsif ($f eq "frsft") {
141 $try .= '$x >> $y;';
142 } elsif ($f eq "flsft") {
143 $try .= '$x << $y;';
ee15d750 144 } elsif ($f eq "fmod") {
145 $try .= '$x % $y;';
80365507 146 } else {
147 # Functions with three arguments
148 $try .= "\$z = $class->new(\"$args[2]\");";
149
150 if( $f eq "bmodpow") {
60a1aa19 151 $try .= '$x->bmodpow($y,$z);';
80365507 152 } elsif ($f eq "bmuladd"){
60a1aa19 153 $try .= '$x->bmuladd($y,$z);';
80365507 154 } else { warn "Unknown op '$f'"; }
155 }
ee15d750 156 }
e745a66c 157 # print "# Trying: '$try'\n";
ee15d750 158 $ans1 = eval $try;
b68b7ab1 159 print "# Error: $@\n" if $@;
ee15d750 160 if ($ans =~ m|^/(.*)$|)
161 {
162 my $pat = $1;
163 if ($ans1 =~ /$pat/)
164 {
165 ok (1,1);
166 }
167 else
168 {
169 print "# '$try' expected: /$pat/ got: '$ans1'\n" if !ok(1,0);
170 }
171 }
172 else
173 {
174 if ($ans eq "")
175 {
176 ok_undef ($ans1);
177 }
178 else
179 {
180 print "# Tried: '$try'\n" if !ok ($ans1, $ans);
181 if (ref($ans1) eq "$class")
182 {
027dc388 183 # float numbers are normalized (for now), so mantissa shouldn't have
184 # trailing zeros
ee15d750 185 #print $ans1->_trailing_zeros(),"\n";
186 print "# Has trailing zeros after '$try'\n"
9b924220 187 if !ok ($CL->_zeros( $ans1->{_m}), 0);
ee15d750 188 }
189 }
190 } # end pattern or string
191 }
192 } # end while
193
394e6ffb 194# check whether $class->new( Math::BigInt->new()) destroys it
195# ($y == 12 in this case)
ee15d750 196$x = Math::BigInt->new(1200); $y = $class->new($x);
197ok ($y,1200); ok ($x,1200);
198
199###############################################################################
f9a08e12 200# Really huge, big, ultra-mega-biggy-monster exponents
201# Technically, the exponents should not be limited (they are BigInts), but
202# practically there are a few places were they are limited to a Perl scalar.
203# This is sometimes for speed, sometimes because otherwise the number wouldn't
204# fit into your memory (just think of 1e123456789012345678901234567890 + 1!)
205# anyway. We don't test everything here, but let's make sure it just basically
206# works.
207
208my $monster = '1e1234567890123456789012345678901234567890';
209
9b924220 210# new and exponent
56d9de68 211ok ($class->new($monster)->bsstr(),
212 '1e+1234567890123456789012345678901234567890');
9b924220 213ok ($class->new($monster)->exponent(),
214 '1234567890123456789012345678901234567890');
f9a08e12 215# cmp
216ok ($class->new($monster) > 0,1);
217
218# sub/mul
219ok ($class->new($monster)->bsub( $monster),0);
220ok ($class->new($monster)->bmul(2)->bsstr(),
221 '2e+1234567890123456789012345678901234567890');
222
9b924220 223# mantissa
224$monster = '1234567890123456789012345678901234567890e2';
225ok ($class->new($monster)->mantissa(),
226 '123456789012345678901234567890123456789');
227
f9a08e12 228###############################################################################
b3abae2a 229# zero,inf,one,nan
ee15d750 230
394e6ffb 231$x = $class->new(2); $x->fzero(); ok_undef ($x->{_a}); ok_undef ($x->{_p});
232$x = $class->new(2); $x->finf(); ok_undef ($x->{_a}); ok_undef ($x->{_p});
233$x = $class->new(2); $x->fone(); ok_undef ($x->{_a}); ok_undef ($x->{_p});
234$x = $class->new(2); $x->fnan(); ok_undef ($x->{_a}); ok_undef ($x->{_p});
56b9c951 235
236###############################################################################
237# bone/binf etc as plain calls (Lite failed them)
238
239ok ($class->fzero(),0);
240ok ($class->fone(),1);
241ok ($class->fone('+'),1);
242ok ($class->fone('-'),-1);
243ok ($class->fnan(),'NaN');
244ok ($class->finf(),'inf');
245ok ($class->finf('+'),'inf');
246ok ($class->finf('-'),'-inf');
247ok ($class->finf('-inf'),'-inf');
61f5c3f5 248
56d9de68 249$class->accuracy(undef); $class->precision(undef); # reset
250
251###############################################################################
252# bug in bsstr()/numify() showed up in after-rounding in bdiv()
253
254$x = $class->new('0.008'); $y = $class->new(2);
255$x->bdiv(3,$y);
256ok ($x,'0.0027');
257
61f5c3f5 258###############################################################################
259# fsqrt() with set global A/P or A/P enabled on $x, also a test whether fsqrt()
260# correctly modifies $x
261
61f5c3f5 262
263$x = $class->new(12); $class->precision(-2); $x->fsqrt(); ok ($x,'3.46');
264
265$class->precision(undef);
266$x = $class->new(12); $class->precision(0); $x->fsqrt(); ok ($x,'3');
267
268$class->precision(-3); $x = $class->new(12); $x->fsqrt(); ok ($x,'3.464');
269
56d9de68 270{
271 no strict 'refs';
272 # A and P set => NaN
273 ${${class}.'::accuracy'} = 4; $x = $class->new(12);
274 $x->fsqrt(3); ok ($x,'NaN');
275 # supplied arg overrides set global
276 $class->precision(undef); $x = $class->new(12); $x->fsqrt(3); ok ($x,'3.46');
277 $class->accuracy(undef); $class->precision(undef); # reset for further tests
278}
279
280#############################################################################
13a12e00 281# can we call objectify (broken until v1.52)
282
56d9de68 283{
284 no strict;
285 $try =
286 '@args' . " = $class" . "::objectify(2,$class,4,5);".'join(" ",@args);';
287 $ans = eval $try;
288 ok ($ans,"$class 4 5");
289}
f9a08e12 290
990fb837 291#############################################################################
292# is_one('-') (broken until v1.64)
293
294ok ($class->new(-1)->is_one(),0);
295ok ($class->new(-1)->is_one('-'),1);
296
27e7b8bb 297#############################################################################
298# bug 1/0.5 leaving 2e-0 instead of 2e0
299
300ok ($class->new(1)->fdiv('0.5')->bsstr(),'2e+0');
301
03874afe 302###############################################################################
303# [perl #30609] bug with $x -= $x not beeing 0, but 2*$x
304
305$x = $class->new(3); $x -= $x; ok ($x, 0);
306$x = $class->new(-3); $x -= $x; ok ($x, 0);
307$x = $class->new(3); $x += $x; ok ($x, 6);
308$x = $class->new(-3); $x += $x; ok ($x, -6);
309
310$x = $class->new('NaN'); $x -= $x; ok ($x->is_nan(), 1);
311$x = $class->new('inf'); $x -= $x; ok ($x->is_nan(), 1);
312$x = $class->new('-inf'); $x -= $x; ok ($x->is_nan(), 1);
313
314$x = $class->new('NaN'); $x += $x; ok ($x->is_nan(), 1);
315$x = $class->new('inf'); $x += $x; ok ($x->is_inf(), 1);
316$x = $class->new('-inf'); $x += $x; ok ($x->is_inf('-'), 1);
317
318$x = $class->new('3.14'); $x -= $x; ok ($x, 0);
319$x = $class->new('-3.14'); $x -= $x; ok ($x, 0);
320$x = $class->new('3.14'); $x += $x; ok ($x, '6.28');
321$x = $class->new('-3.14'); $x += $x; ok ($x, '-6.28');
322
323$x = $class->new('3.14'); $x *= $x; ok ($x, '9.8596');
324$x = $class->new('-3.14'); $x *= $x; ok ($x, '9.8596');
325$x = $class->new('3.14'); $x /= $x; ok ($x, '1');
326$x = $class->new('-3.14'); $x /= $x; ok ($x, '1');
327$x = $class->new('3.14'); $x %= $x; ok ($x, '0');
328$x = $class->new('-3.14'); $x %= $x; ok ($x, '0');
329
ae161977 330###############################################################################
331# the following two were reported by "kenny" via hotmail.com:
332
333#perl -MMath::BigFloat -wle 'print Math::BigFloat->new(0)->bpow(".1")'
334#Use of uninitialized value in numeric le (<=) at BigFloat.pm line 1851.
335
336$x = $class->new(0); $y = $class->new('0.1');
337ok ($x ** $y, 0, 'no warnings and zero result');
338
339#perl -MMath::BigFloat -lwe 'print Math::BigFloat->new(".222222222222222222222222222222222222222222")->bceil()'
340#Use of uninitialized value in numeric le (<=) at BigFloat.pm line 1851.
341
342$x = $class->new(".222222222222222222222222222222222222222222");
343ok ($x->bceil(), 1, 'no warnings and one as result');
344
2d2b2744 345###############################################################################
346# test **=, <<=, >>=
347
348# ((2^148)-1)/17
349$x = $class->new(2); $x **= 148; $x++; $x->bdiv(17, 60)->bfloor(); $x->accuracy(undef);
350ok ($x,"20988936657440586486151264256610222593863921");
351ok ($x->length(),length "20988936657440586486151264256610222593863921");
352
353$x = $class->new('2');
354my $y = $class->new('18');
355ok ($x <<= $y, 2 << 18);
356ok ($x, 2 << 18);
357ok ($x >>= $y, 2);
358ok ($x, 2);
359
360$x = $class->new('2');
361$y = $class->new('18.2');
362$x <<= $y; # 2 * (2 ** 18.2);
363
364ok ($x->copy()->bfround(-9), '602248.763144685');
365ok ($x >>= $y, 2); # 2 * (2 ** 18.2) / (2 ** 18.2) => 2
366ok ($x, 2);
367
394e6ffb 3681; # all done
ee15d750 369
370###############################################################################
371# Perl 5.005 does not like ok ($x,undef)
372
373sub ok_undef
374 {
375 my $x = shift;
376
377 ok (1,1) and return if !defined $x;
378 ok ($x,'undef');
379 }
380
381__DATA__
b68b7ab1 382&bgcd
383inf:12:NaN
384-inf:12:NaN
38512:inf:NaN
38612:-inf:NaN
387inf:inf:NaN
388inf:-inf:NaN
389-inf:-inf:NaN
390abc:abc:NaN
391abc:+0:NaN
392+0:abc:NaN
393+0:+0:0
394+0:+1:1
395+1:+0:1
396+1:+1:1
397+2:+3:1
398+3:+2:1
399-3:+2:1
400-3:-2:1
401-144:-60:12
402144:-60:12
403144:60:12
404100:625:25
4054096:81:1
4061034:804:2
40727:90:56:1
40827:90:54:9
409&blcm
410abc:abc:NaN
411abc:+0:NaN
412+0:abc:NaN
413+0:+0:NaN
414+1:+0:0
415+0:+1:0
416+27:+90:270
417+1034:+804:415668
b3abae2a 418$div_scale = 40;
60a1aa19 419&bcos
4201.2:10:0.3623577545
4212.4:12:-0.737393715541
4220:10:1
4230:20:1
4241:10:0.5403023059
4251:12:0.540302305868
426&bsin
4271:10:0.8414709848
4280:10:0
4290:20:0
4302.1:12:0.863209366649
4311.2:13:0.9320390859672
4320.2:13:0.1986693307951
4333.2:12:-0.0583741434276
fdb4b05f 434&bpi
43577:3.1415926535897932384626433832795028841971693993751058209749445923078164062862
436+0:3.141592653589793238462643383279502884197
43711:3.1415926535
50109ad0 438&bnok
439+inf:10:inf
440NaN:NaN:NaN
441NaN:1:NaN
4421:NaN:NaN
4431:1:1
444# k > n
4451:2:0
4462:3:0
447# k < 0
4481:-2:0
449# 7 over 3 = 35
4507:3:35
4517:6:1
452100:90:17310309456440
b3abae2a 453&flog
990fb837 4540::NaN
455-1::NaN
456-2::NaN
457# base > 0, base != 1
4582:-1:NaN
4592:0:NaN
4602:1:NaN
461# log(1) is always 1, regardless of $base
4621::0
4631:1:0
4641:2:0
90d1b129 4652::0.6931471805599453094172321214581765680755
4662.718281828::0.9999999998311266953289851340574956564911
467$div_scale = 20;
4682.718281828::0.99999999983112669533
469$div_scale = 15;
470123::4.81218435537242
47110::2.30258509299405
4721000::6.90775527898214
473100::4.60517018598809
4742::0.693147180559945
4753.1415::1.14470039286086
47612345::9.42100640177928
4770.001::-6.90775527898214
478# bug until v1.71:
47910:10:1
480100:100:1
b3abae2a 481# reset for further tests
482$div_scale = 40;
990fb837 4831::0
394e6ffb 484&frsft
b3abae2a 485NaNfrsft:2:NaN
394e6ffb 4860:2:0
4871:1:0.5
4882:1:1
4894:1:2
490123:1:61.5
49132:3:4
492&flsft
b3abae2a 493NaNflsft:0:NaN
394e6ffb 4942:1:4
4954:3:32
4965:3:40
4971:2:4
4980:5:0
ee15d750 499&fnorm
5001:1
501-0:0
502fnormNaN:NaN
503+inf:inf
504-inf:-inf
505123:123
506-123.4567:-123.4567
027dc388 507# invalid inputs
5081__2:NaN
5091E1__2:NaN
51011__2E2:NaN
027dc388 511.2E-3.:NaN
2d2b2744 5121e3e4:NaN
513# strange, but valid
027dc388 514.2E2:20
2d2b2744 5151.E3:1000
516# some inputs that result in zero
5170e0:0
518+0e0:0
519+0e+0:0
520-0e+0:0
5210e-0:0
522-0e-0:0
523+0e-0:0
524000:0
52500e2:0
52600e02:0
527000e002:0
528000e1230:0
52900e-3:0
53000e+3:0
53100e-03:0
53200e+03:0
533-000:0
534-00e2:0
535-00e02:0
536-000e002:0
537-000e1230:0
538-00e-3:0
539-00e+3:0
540-00e-03:0
541-00e+03:0
ee15d750 542&as_number
5430:0
5441:1
5451.2:1
5462.345:2
547-2:-2
548-123.456:-123
549-200:-200
56d9de68 550# test for bug in brsft() not handling cases that return 0
5510.000641:0
5520.0006412:0
5530.00064123:0
5540.000641234:0
5550.0006412345:0
5560.00064123456:0
5570.000641234567:0
5580.0006412345678:0
5590.00064123456789:0
5600.1:0
5610.01:0
5620.001:0
5630.0001:0
5640.00001:0
5650.000001:0
5660.0000001:0
5670.00000001:0
5680.000000001:0
5690.0000000001:0
5700.00000000001:0
990fb837 5710.12345:0
5720.123456:0
5730.1234567:0
5740.12345678:0
5750.123456789:0
ee15d750 576&finf
5771:+:inf
5782:-:-inf
5793:abc:inf
56d9de68 580&as_hex
581+inf:inf
582-inf:-inf
583hexNaN:NaN
5840:0x0
5855:0x5
586-5:-0x5
587&as_bin
588+inf:inf
589-inf:-inf
590hexNaN:NaN
5910:0b0
5925:0b101
593-5:-0b101
ee15d750 594&numify
56d9de68 595# uses bsstr() so 5 => 5e+0 to be compatible w/ Perls output
ee15d750 5960:0e+1
597+1:1e+0
5981234:1234e+0
599NaN:NaN
600+inf:inf
601-inf:-inf
56d9de68 602-5:-5e+0
603100:1e+2
604-100:-1e+2
ee15d750 605&fnan
606abc:NaN
6072:NaN
608-2:NaN
6090:NaN
610&fone
6112:+:1
612-2:-:-1
613-2:+:1
6142:-:-1
6150::1
616-2::1
617abc::1
6182:abc:1
619&fsstr
620+inf:inf
621-inf:-inf
622abcfsstr:NaN
56d9de68 623-abcfsstr:NaN
ee15d750 6241234.567:1234567e-3
56d9de68 625123:123e+0
626-5:-5e+0
627-100:-1e+2
ee15d750 628&fstr
629+inf:::inf
630-inf:::-inf
631abcfstr:::NaN
6321234.567:9::1234.56700
6331234.567::-6:1234.567000
63412345:5::12345
6350.001234:6::0.00123400
6360.001234::-8:0.00123400
6370:4::0
6380::-4:0.0000
639&fnorm
640inf:inf
641+inf:inf
642-inf:-inf
643+infinity:NaN
644+-inf:NaN
645abc:NaN
646 1 a:NaN
6471bcd2:NaN
64811111b:NaN
649+1z:NaN
650-1z:NaN
aef458a0 6510e999:0
6520e-999:0
653-0e999:0
654-0e-999:0
ee15d750 6550:0
656+0:0
657+00:0
658+0_0_0:0
659000000_0000000_00000:0
660-0:0
661-0000:0
662+1:1
663+01:1
664+001:1
665+00000100000:100000
666123456789:123456789
667-1:-1
668-01:-1
669-001:-1
670-123456789:-123456789
671-00000100000:-100000
672123.456a:NaN
673123.456:123.456
6740.01:0.01
675.002:0.002
676+.2:0.2
677-0.0003:-0.0003
678-.0000000004:-0.0000000004
679123456E2:12345600
680123456E-2:1234.56
681-123456E2:-12345600
682-123456E-2:-1234.56
6831e1:10
6842e-11:0.00000000002
685# excercise _split
686 .02e-1:0.002
687 000001:1
688 -00001:-1
689 -1:-1
690 000.01:0.01
691 -000.0023:-0.0023
692 1.1e1:11
693-3e111:-3000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
694-4e-1111:-0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000004
695&fpow
9b924220 696NaN:1:NaN
6971:NaN:NaN
698NaN:-1:NaN
699-1:NaN:NaN
700NaN:-21:NaN
701-21:NaN:NaN
702NaN:21:NaN
70321:NaN:NaN
7040:0:1
7050:1:0
7060:9:0
7070:-2:inf
ee15d750 7082:2:4
7091:2:1
7101:3:1
711-1:2:1
712-1:3:-1
713123.456:2:15241.383936
7142:-2:0.25
7152:-3:0.125
716128:-2:0.00006103515625
717abc:123.456:NaN
718123.456:abc:NaN
719+inf:123.45:inf
720-inf:123.45:-inf
721+inf:-123.45:inf
722-inf:-123.45:-inf
9b924220 723-2:2:4
724-2:3:-8
725-2:4:16
726-2:5:-32
727-3:2:9
728-3:3:-27
729-3:4:81
730-3:5:-243
79c55733 731# 2 ** 0.5 == sqrt(2)
732# 1.41..7 and not 1.4170 since fallback (bsqrt(9) is '3', not 3.0...0)
7332:0.5:1.41421356237309504880168872420969807857
56b9c951 734#2:0.2:1.148698354997035006798626946777927589444
07d34614 735#6:1.5:14.6969384566990685891837044482353483518
56b9c951 736$div_scale = 20;
737#62.5:12.5:26447206647554886213592.3959144
738$div_scale = 40;
ee15d750 739&fneg
740fnegNaN:NaN
741+inf:-inf
742-inf:inf
743+0:0
744+1:-1
745-1:1
746+123456789:-123456789
747-123456789:123456789
748+123.456789:-123.456789
749-123456.789:123456.789
750&fabs
751fabsNaN:NaN
752+inf:inf
753-inf:inf
754+0:0
755+1:1
756-1:1
757+123456789:123456789
758-123456789:123456789
759+123.456789:123.456789
760-123456.789:123456.789
761&fround
762$round_mode = "trunc"
763+inf:5:inf
764-inf:5:-inf
7650:5:0
766NaNfround:5:NaN
767+10123456789:5:10123000000
768-10123456789:5:-10123000000
769+10123456789.123:5:10123000000
770-10123456789.123:5:-10123000000
771+10123456789:9:10123456700
772-10123456789:9:-10123456700
773+101234500:6:101234000
774-101234500:6:-101234000
775$round_mode = "zero"
776+20123456789:5:20123000000
777-20123456789:5:-20123000000
778+20123456789.123:5:20123000000
779-20123456789.123:5:-20123000000
780+20123456789:9:20123456800
781-20123456789:9:-20123456800
782+201234500:6:201234000
783-201234500:6:-201234000
784$round_mode = "+inf"
785+30123456789:5:30123000000
786-30123456789:5:-30123000000
787+30123456789.123:5:30123000000
788-30123456789.123:5:-30123000000
789+30123456789:9:30123456800
790-30123456789:9:-30123456800
791+301234500:6:301235000
792-301234500:6:-301234000
793$round_mode = "-inf"
794+40123456789:5:40123000000
795-40123456789:5:-40123000000
796+40123456789.123:5:40123000000
797-40123456789.123:5:-40123000000
798+40123456789:9:40123456800
799-40123456789:9:-40123456800
800+401234500:6:401234000
801-401234500:6:-401235000
802$round_mode = "odd"
803+50123456789:5:50123000000
804-50123456789:5:-50123000000
805+50123456789.123:5:50123000000
806-50123456789.123:5:-50123000000
807+50123456789:9:50123456800
808-50123456789:9:-50123456800
809+501234500:6:501235000
810-501234500:6:-501235000
811$round_mode = "even"
812+60123456789:5:60123000000
813-60123456789:5:-60123000000
814+60123456789:9:60123456800
815-60123456789:9:-60123456800
816+601234500:6:601234000
817-601234500:6:-601234000
818+60123456789.0123:5:60123000000
819-60123456789.0123:5:-60123000000
7b29e1e6 820$round_mode = "common"
821+60123456789:5:60123000000
822-60123456789:5:-60123000000
823+60123456789:6:60123500000
824-60123456789:6:-60123500000
825+60123456789:9:60123456800
826-60123456789:9:-60123456800
827+601234500:6:601235000
828-601234500:6:-601235000
829+601234400:6:601234000
830-601234400:6:-601234000
831+601234600:6:601235000
832-601234600:6:-601235000
833+601234300:6:601234000
834+60123456789.0123:5:60123000000
835-60123456789.0123:5:-60123000000
ee15d750 836&ffround
837$round_mode = "trunc"
838+inf:5:inf
839-inf:5:-inf
8400:5:0
841NaNffround:5:NaN
842+1.23:-1:1.2
843+1.234:-1:1.2
844+1.2345:-1:1.2
845+1.23:-2:1.23
846+1.234:-2:1.23
847+1.2345:-2:1.23
848+1.23:-3:1.230
849+1.234:-3:1.234
850+1.2345:-3:1.234
851-1.23:-1:-1.2
852+1.27:-1:1.2
853-1.27:-1:-1.2
854+1.25:-1:1.2
855-1.25:-1:-1.2
856+1.35:-1:1.3
857-1.35:-1:-1.3
858-0.0061234567890:-1:0.0
859-0.0061:-1:0.0
860-0.00612:-1:0.0
861-0.00612:-2:0.00
862-0.006:-1:0.0
863-0.006:-2:0.00
864-0.0006:-2:0.00
865-0.0006:-3:0.000
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
8690.05:0:0
8700.5:0:0
8710.51:0:0
8720.41:0:0
873$round_mode = "zero"
874+2.23:-1:/2.2(?:0{5}\d+)?
875-2.23:-1:/-2.2(?:0{5}\d+)?
876+2.27:-1:/2.(?:3|29{5}\d+)
877-2.27:-1:/-2.(?:3|29{5}\d+)
878+2.25:-1:/2.2(?:0{5}\d+)?
879-2.25:-1:/-2.2(?:0{5}\d+)?
880+2.35:-1:/2.(?:3|29{5}\d+)
881-2.35:-1:/-2.(?:3|29{5}\d+)
882-0.0065:-1:0.0
883-0.0065:-2:/-0\.01|-1e-02
884-0.0065:-3:/-0\.006|-6e-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
8870.05:0:0
8880.5:0:0
8890.51:0:1
8900.41:0:0
891$round_mode = "+inf"
892+3.23:-1:/3.2(?:0{5}\d+)?
893-3.23:-1:/-3.2(?:0{5}\d+)?
894+3.27:-1:/3.(?:3|29{5}\d+)
895-3.27:-1:/-3.(?:3|29{5}\d+)
896+3.25:-1:/3.(?:3|29{5}\d+)
897-3.25:-1:/-3.2(?:0{5}\d+)?
898+3.35:-1:/3.(?:4|39{5}\d+)
899-3.35:-1:/-3.(?:3|29{5}\d+)
900-0.0065:-1:0.0
901-0.0065:-2:/-0\.01|-1e-02
902-0.0065:-3:/-0\.006|-6e-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
9050.05:0:0
9060.5:0:1
9070.51:0:1
9080.41:0:0
909$round_mode = "-inf"
910+4.23:-1:/4.2(?:0{5}\d+)?
911-4.23:-1:/-4.2(?:0{5}\d+)?
912+4.27:-1:/4.(?:3|29{5}\d+)
913-4.27:-1:/-4.(?:3|29{5}\d+)
914+4.25:-1:/4.2(?:0{5}\d+)?
915-4.25:-1:/-4.(?:3|29{5}\d+)
916+4.35:-1:/4.(?:3|29{5}\d+)
917-4.35:-1:/-4.(?:4|39{5}\d+)
918-0.0065:-1:0.0
919-0.0065:-2:/-0\.01|-1e-02
920-0.0065:-3:/-0\.007|-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
9230.05:0:0
9240.5:0:0
9250.51:0:1
9260.41:0:0
927$round_mode = "odd"
928+5.23:-1:/5.2(?:0{5}\d+)?
929-5.23:-1:/-5.2(?:0{5}\d+)?
930+5.27:-1:/5.(?:3|29{5}\d+)
931-5.27:-1:/-5.(?:3|29{5}\d+)
932+5.25:-1:/5.(?:3|29{5}\d+)
933-5.25:-1:/-5.(?:3|29{5}\d+)
934+5.35:-1:/5.(?:3|29{5}\d+)
935-5.35:-1:/-5.(?:3|29{5}\d+)
936-0.0065:-1:0.0
937-0.0065:-2:/-0\.01|-1e-02
938-0.0065:-3:/-0\.007|-7e-03
939-0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
940-0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
9410.05:0:0
9420.5:0:1
9430.51:0:1
9440.41:0:0
945$round_mode = "even"
946+6.23:-1:/6.2(?:0{5}\d+)?
947-6.23:-1:/-6.2(?:0{5}\d+)?
948+6.27:-1:/6.(?:3|29{5}\d+)
949-6.27:-1:/-6.(?:3|29{5}\d+)
950+6.25:-1:/6.(?:2(?:0{5}\d+)?|29{5}\d+)
951-6.25:-1:/-6.(?:2(?:0{5}\d+)?|29{5}\d+)
952+6.35:-1:/6.(?:4|39{5}\d+|29{8}\d+)
953-6.35:-1:/-6.(?:4|39{5}\d+|29{8}\d+)
954-0.0065:-1:0.0
955-0.0065:-2:/-0\.01|-1e-02
956-0.0065:-3:/-0\.006|-7e-03
957-0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
958-0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
9590.05:0:0
9600.5:0:0
9610.51:0:1
9620.41:0:0
9630.01234567:-3:0.012
9640.01234567:-4:0.0123
9650.01234567:-5:0.01235
9660.01234567:-6:0.012346
9670.01234567:-7:0.0123457
9680.01234567:-8:0.01234567
9690.01234567:-9:0.012345670
9700.01234567:-12:0.012345670000
971&fcmp
972fcmpNaN:fcmpNaN:
973fcmpNaN:+0:
974+0:fcmpNaN:
975+0:+0:0
976-1:+0:-1
977+0:-1:1
978+1:+0:1
979+0:+1:-1
980-1:+1:-1
981+1:-1:1
982-1:-1:0
983+1:+1:0
984-1.1:0:-1
985+0:-1.1:1
986+1.1:+0:1
987+0:+1.1:-1
988+123:+123:0
989+123:+12:1
990+12:+123:-1
991-123:-123:0
992-123:-12:-1
993-12:-123:1
994+123:+124:-1
995+124:+123:1
996-123:-124:1
997-124:-123:-1
9980:0.01:-1
9990:0.0001:-1
10000:-0.0001:1
10010:-0.1:1
10020.1:0:1
10030.00001:0:1
1004-0.0001:0:-1
1005-0.1:0:-1
10060:0.0001234:-1
10070:-0.0001234:1
10080.0001234:0:1
1009-0.0001234:0:-1
10100.0001:0.0005:-1
10110.0005:0.0001:1
10120.005:0.0001:1
10130.001:0.0005:1
10140.000001:0.0005:-1
10150.00000123:0.0005:-1
10160.00512:0.0001:1
10170.005:0.000112:1
10180.00123:0.0005:1
10191.5:2:-1
10202:1.5:1
10211.54321:234:-1
1022234:1.54321:1
1023# infinity
1024-inf:5432112345:-1
1025+inf:5432112345:1
1026-inf:-5432112345:-1
1027+inf:-5432112345:1
1028-inf:54321.12345:-1
1029+inf:54321.12345:1
1030-inf:-54321.12345:-1
1031+inf:-54321.12345:1
1032+inf:+inf:0
1033-inf:-inf:0
1034+inf:-inf:1
1035-inf:+inf:-1
1036# return undef
1037+inf:NaN:
1038NaN:inf:
1039-inf:NaN:
1040NaN:-inf:
1041&facmp
1042fcmpNaN:fcmpNaN:
1043fcmpNaN:+0:
1044+0:fcmpNaN:
1045+0:+0:0
1046-1:+0:1
1047+0:-1:-1
1048+1:+0:1
1049+0:+1:-1
1050-1:+1:0
1051+1:-1:0
1052-1:-1:0
1053+1:+1:0
1054-1.1:0:1
1055+0:-1.1:-1
1056+1.1:+0:1
1057+0:+1.1:-1
1058+123:+123:0
1059+123:+12:1
1060+12:+123:-1
1061-123:-123:0
1062-123:-12:1
1063-12:-123:-1
1064+123:+124:-1
1065+124:+123:1
1066-123:-124:-1
1067-124:-123:1
10680:0.01:-1
10690:0.0001:-1
10700:-0.0001:-1
10710:-0.1:-1
10720.1:0:1
10730.00001:0:1
1074-0.0001:0:1
1075-0.1:0:1
10760:0.0001234:-1
10770:-0.0001234:-1
10780.0001234:0:1
1079-0.0001234:0:1
10800.0001:0.0005:-1
10810.0005:0.0001:1
10820.005:0.0001:1
10830.001:0.0005:1
10840.000001:0.0005:-1
10850.00000123:0.0005:-1
10860.00512:0.0001:1
10870.005:0.000112:1
10880.00123:0.0005:1
10891.5:2:-1
10902:1.5:1
10911.54321:234:-1
1092234:1.54321:1
1093# infinity
1094-inf:5432112345:1
1095+inf:5432112345:1
1096-inf:-5432112345:1
1097+inf:-5432112345:1
1098-inf:54321.12345:1
1099+inf:54321.12345:1
1100-inf:-54321.12345:1
1101+inf:-54321.12345:1
1102+inf:+inf:0
1103-inf:-inf:0
1104+inf:-inf:0
1105-inf:+inf:0
48b581a2 11065:inf:-1
1107-1:inf:-1
11085:-inf:-1
1109-1:-inf:-1
ee15d750 1110# return undef
1111+inf:facmpNaN:
1112facmpNaN:inf:
1113-inf:facmpNaN:
1114facmpNaN:-inf:
1115&fdec
1116fdecNaN:NaN
1117+inf:inf
1118-inf:-inf
1119+0:-1
1120+1:0
1121-1:-2
11221.23:0.23
1123-1.23:-2.23
e745a66c 1124100:99
1125101:100
1126-100:-101
1127-99:-100
1128-98:-99
112999:98
ee15d750 1130&finc
1131fincNaN:NaN
1132+inf:inf
1133-inf:-inf
1134+0:1
1135+1:2
1136-1:0
11371.23:2.23
1138-1.23:-0.23
e745a66c 1139100:101
1140-100:-99
1141-99:-98
1142-101:-100
114399:100
ee15d750 1144&fadd
1145abc:abc:NaN
1146abc:+0:NaN
1147+0:abc:NaN
13a12e00 1148+inf:-inf:NaN
1149-inf:+inf:NaN
ee15d750 1150+inf:+inf:inf
1151-inf:-inf:-inf
1152baddNaN:+inf:NaN
1153baddNaN:+inf:NaN
1154+inf:baddNaN:NaN
1155-inf:baddNaN:NaN
1156+0:+0:0
1157+1:+0:1
1158+0:+1:1
1159+1:+1:2
1160-1:+0:-1
1161+0:-1:-1
1162-1:-1:-2
1163-1:+1:0
1164+1:-1:0
1165+9:+1:10
1166+99:+1:100
1167+999:+1:1000
1168+9999:+1:10000
1169+99999:+1:100000
1170+999999:+1:1000000
1171+9999999:+1:10000000
1172+99999999:+1:100000000
1173+999999999:+1:1000000000
1174+9999999999:+1:10000000000
1175+99999999999:+1:100000000000
1176+10:-1:9
1177+100:-1:99
1178+1000:-1:999
1179+10000:-1:9999
1180+100000:-1:99999
1181+1000000:-1:999999
1182+10000000:-1:9999999
1183+100000000:-1:99999999
1184+1000000000:-1:999999999
1185+10000000000:-1:9999999999
1186+123456789:+987654321:1111111110
1187-123456789:+987654321:864197532
1188-123456789:-987654321:-1111111110
1189+123456789:-987654321:-864197532
11900.001234:0.0001234:0.0013574
1191&fsub
1192abc:abc:NaN
1193abc:+0:NaN
1194+0:abc:NaN
1195+inf:-inf:inf
1196-inf:+inf:-inf
13a12e00 1197+inf:+inf:NaN
1198-inf:-inf:NaN
ee15d750 1199baddNaN:+inf:NaN
1200baddNaN:+inf:NaN
1201+inf:baddNaN:NaN
1202-inf:baddNaN:NaN
1203+0:+0:0
1204+1:+0:1
1205+0:+1:-1
1206+1:+1:0
1207-1:+0:-1
1208+0:-1:1
1209-1:-1:0
1210-1:+1:-2
1211+1:-1:2
1212+9:+1:8
1213+99:+1:98
1214+999:+1:998
1215+9999:+1:9998
1216+99999:+1:99998
1217+999999:+1:999998
1218+9999999:+1:9999998
1219+99999999:+1:99999998
1220+999999999:+1:999999998
1221+9999999999:+1:9999999998
1222+99999999999:+1:99999999998
1223+10:-1:11
1224+100:-1:101
1225+1000:-1:1001
1226+10000:-1:10001
1227+100000:-1:100001
1228+1000000:-1:1000001
1229+10000000:-1:10000001
1230+100000000:-1:100000001
1231+1000000000:-1:1000000001
1232+10000000000:-1:10000000001
1233+123456789:+987654321:-864197532
1234-123456789:+987654321:-1111111110
1235-123456789:-987654321:864197532
1236+123456789:-987654321:1111111110
80365507 1237&bmuladd
1238abc:abc:0:NaN
1239abc:+0:0:NaN
1240+0:abc:0:NaN
1241+0:0:abc:NaN
1242NaNmul:+inf:0:NaN
1243NaNmul:-inf:0:NaN
1244-inf:NaNmul:0:NaN
1245+inf:NaNmul:0:NaN
1246+inf:+inf:0:inf
1247+inf:-inf:0:-inf
1248-inf:+inf:0:-inf
1249-inf:-inf:0:inf
1250+0:+0:0:0
1251+0:+1:0:0
1252+1:+0:0:0
1253+0:-1:0:0
1254-1:+0:0:0
1255123456789123456789:0:0:0
12560:123456789123456789:0:0
1257-1:-1:0:1
1258-1:-1:0:1
1259-1:+1:0:-1
1260+1:-1:0:-1
1261+1:+1:0:1
1262+2:+3:0:6
1263-2:+3:0:-6
1264+2:-3:0:-6
1265-2:-3:0:6
1266111:111:0:12321
126710101:10101:0:102030201
12681001001:1001001:0:1002003002001
1269100010001:100010001:0:10002000300020001
127010000100001:10000100001:0:100002000030000200001
127111111111111:9:0:99999999999
127222222222222:9:0:199999999998
127333333333333:9:0:299999999997
127444444444444:9:0:399999999996
127555555555555:9:0:499999999995
127666666666666:9:0:599999999994
127777777777777:9:0:699999999993
127888888888888:9:0:799999999992
127999999999999:9:0:899999999991
128011111111111:9:1:100000000000
128122222222222:9:1:199999999999
128233333333333:9:1:299999999998
128344444444444:9:1:399999999997
128455555555555:9:1:499999999996
128566666666666:9:1:599999999995
128677777777777:9:1:699999999994
128788888888888:9:1:799999999993
128899999999999:9:1:899999999992
1289-3:-4:-5:7
12903:-4:-5:-17
1291-3:4:-5:-17
12923:4:-5:7
1293-3:4:5:-7
12943:-4:5:-7
12959999999999999999999:10000000000000000000:1234567890:99999999999999999990000000001234567890
12963.2:5.7:8.9:27.14
1297-3.2:5.197:6.05:-10.5804
1298&bmodpow
12993:4:8:1
13003:4:7:4
13013:4:7:4
130277777:777:123456789:99995084
13033.2:6.2:5.2:2.970579856718063040273642739529400818
ee15d750 1304&fmul
1305abc:abc:NaN
1306abc:+0:NaN
1307+0:abc:NaN
1308+inf:NaNmul:NaN
1309+inf:NaNmul:NaN
1310NaNmul:+inf:NaN
1311NaNmul:-inf:NaN
1312+inf:+inf:inf
1313+inf:-inf:-inf
1314+inf:-inf:-inf
1315+inf:+inf:inf
1316+inf:123.34:inf
1317+inf:-123.34:-inf
1318-inf:123.34:-inf
1319-inf:-123.34:inf
1320123.34:+inf:inf
1321-123.34:+inf:-inf
1322123.34:-inf:-inf
1323-123.34:-inf:inf
1324+0:+0:0
1325+0:+1:0
1326+1:+0:0
1327+0:-1:0
1328-1:+0:0
1329+123456789123456789:+0:0
1330+0:+123456789123456789:0
1331-1:-1:1
1332-1:+1:-1
1333+1:-1:-1
1334+1:+1:1
1335+2:+3:6
1336-2:+3:-6
1337+2:-3:-6
1338-2:-3:6
1339+111:+111:12321
1340+10101:+10101:102030201
1341+1001001:+1001001:1002003002001
1342+100010001:+100010001:10002000300020001
1343+10000100001:+10000100001:100002000030000200001
1344+11111111111:+9:99999999999
1345+22222222222:+9:199999999998
1346+33333333333:+9:299999999997
1347+44444444444:+9:399999999996
1348+55555555555:+9:499999999995
1349+66666666666:+9:599999999994
1350+77777777777:+9:699999999993
1351+88888888888:+9:799999999992
1352+99999999999:+9:899999999991
13536:120:720
135410:10000:100000
b3abae2a 1355&fdiv-list
13560:0:NaN,NaN
13570:1:0,0
13589:4:2.25,1
13599:5:1.8,4
233f7bc0 1360# bug in v1.74 with bdiv in list context, when $y is 1 or -1
13612.1:-1:-2.1,0
13622.1:1:2.1,0
1363-2.1:-1:2.1,0
1364-2.1:1:-2.1,0
ee15d750 1365&fdiv
1366$div_scale = 40; $round_mode = 'even'
1367abc:abc:NaN
1368abc:+1:abc:NaN
1369+1:abc:NaN
1370-1:abc:NaN
13710:abc:NaN
1372+0:+0:NaN
1373+0:+1:0
1374+1:+0:inf
1375+3214:+0:inf
1376+0:-1:0
1377-1:+0:-inf
1378-3214:+0:-inf
1379+1:+1:1
1380-1:-1:1
1381+1:-1:-1
1382-1:+1:-1
1383+1:+2:0.5
1384+2:+1:2
1385123:+inf:0
1386123:-inf:0
1387+10:+5:2
1388+100:+4:25
1389+1000:+8:125
1390+10000:+16:625
1391+10000:-16:-625
1392+999999999999:+9:111111111111
1393+999999999999:+99:10101010101
1394+999999999999:+999:1001001001
1395+999999999999:+9999:100010001
1396+999999999999999:+99999:10000100001
1397+1000000000:+9:111111111.1111111111111111111111111111111
1398+2000000000:+9:222222222.2222222222222222222222222222222
1399+3000000000:+9:333333333.3333333333333333333333333333333
1400+4000000000:+9:444444444.4444444444444444444444444444444
1401+5000000000:+9:555555555.5555555555555555555555555555556
1402+6000000000:+9:666666666.6666666666666666666666666666667
1403+7000000000:+9:777777777.7777777777777777777777777777778
1404+8000000000:+9:888888888.8888888888888888888888888888889
1405+9000000000:+9:1000000000
1406+35500000:+113:314159.2920353982300884955752212389380531
1407+71000000:+226:314159.2920353982300884955752212389380531
1408+106500000:+339:314159.2920353982300884955752212389380531
1409+1000000000:+3:333333333.3333333333333333333333333333333
14102:25.024996000799840031993601279744051189762:0.07992009269196593320152084692285869265447
394e6ffb 1411123456:1:123456
ee15d750 1412$div_scale = 20
1413+1000000000:+9:111111111.11111111111
1414+2000000000:+9:222222222.22222222222
1415+3000000000:+9:333333333.33333333333
1416+4000000000:+9:444444444.44444444444
1417+5000000000:+9:555555555.55555555556
1418+6000000000:+9:666666666.66666666667
1419+7000000000:+9:777777777.77777777778
1420+8000000000:+9:888888888.88888888889
1421+9000000000:+9:1000000000
14221:10:0.1
14231:100:0.01
14241:1000:0.001
14251:10000:0.0001
14261:504:0.001984126984126984127
14272:1.987654321:1.0062111801179738436
394e6ffb 1428123456789.123456789123456789123456789:1:123456789.12345678912
ee15d750 1429# the next two cases are the "old" behaviour, but are now (>v0.01) different
1430#+35500000:+113:314159.292035398230088
1431#+71000000:+226:314159.292035398230088
1432+35500000:+113:314159.29203539823009
1433+71000000:+226:314159.29203539823009
1434+106500000:+339:314159.29203539823009
1435+1000000000:+3:333333333.33333333333
1436$div_scale = 1
1437# round to accuracy 1 after bdiv
1438+124:+3:40
394e6ffb 1439123456789.1234:1:100000000
ee15d750 1440# reset scale for further tests
1441$div_scale = 40
1442&fmod
61f5c3f5 1443+9:4:1
1444+9:5:4
1445+9000:56:40
1446+56:9000:56
1447# inf handling, see table in doc
14480:inf:0
14490:-inf:0
14505:inf:5
14515:-inf:5
1452-5:inf:-5
1453-5:-inf:-5
1454inf:5:0
1455-inf:5:0
1456inf:-5:0
1457-inf:-5:0
14585:5:0
1459-5:-5:0
b3abae2a 1460inf:inf:NaN
1461-inf:-inf:NaN
1462-inf:inf:NaN
1463inf:-inf:NaN
61f5c3f5 14648:0:8
1465inf:0:inf
1466# exceptions to reminder rule
1467-inf:0:-inf
1468-8:0:-8
14690:0:NaN
1470abc:abc:NaN
1471abc:1:abc:NaN
14721:abc:NaN
14730:0:NaN
14740:1:0
14751:0:1
14760:-1:0
1477-1:0:-1
14781:1:0
1479-1:-1:0
14801:-1:0
1481-1:1:0
14821:2:1
14832:1:0
14841000000000:9:1
14852000000000:9:2
14863000000000:9:3
14874000000000:9:4
14885000000000:9:5
14896000000000:9:6
14907000000000:9:7
14918000000000:9:8
14929000000000:9:0
149335500000:113:33
149471000000:226:66
1495106500000:339:99
14961000000000:3:1
149710:5:0
1498100:4:0
14991000:8:0
150010000:16:0
1501999999999999:9:0
1502999999999999:99:0
1503999999999999:999:0
1504999999999999:9999:0
1505999999999999999:99999:0
1506-9:+5:1
1507+9:-5:-1
1508-9:-5:-4
1509-5:3:1
1510-2:3:1
15114:3:1
15121:3:1
1513-5:-3:-2
1514-2:-3:-2
15154:-3:-2
15161:-3:-2
15174095:4095:0
1518100041000510123:3:0
1519152403346:12345:4321
152087654321:87654321:0
1521# now some floating point tests
1522123:2.5:0.5
15231230:2.5:0
1524123.4:2.5:0.9
1525123e1:25:5
7596a890 1526-2.1:1:0.9
15272.1:1:0.1
1528-2.1:-1:-0.1
15292.1:-1:-0.9
233f7bc0 1530-3:1:0
15313:1:0
1532-3:-1:0
15333:-1:0
b3abae2a 1534&ffac
1535Nanfac:NaN
1536-1:NaN
b282a552 1537+inf:inf
091c87b1 1538-inf:NaN
b3abae2a 15390:1
15401:1
15412:2
15423:6
15434:24
15445:120
15456:720
154610:3628800
154711:39916800
154812:479001600
990fb837 1549&froot
1550# sqrt()
1551+0:2:0
1552+1:2:1
1553-1:2:NaN
1554# -$x ** (1/2) => -$y, but not in froot()
1555-123.456:2:NaN
1556+inf:2:inf
1557-inf:2:NaN
15582:2:1.41421356237309504880168872420969807857
1559-2:2:NaN
15604:2:2
15619:2:3
156216:2:4
1563100:2:10
1564123.456:2:11.11107555549866648462149404118219234119
156515241.38393:2:123.4559999756998444766131352122991626468
15661.44:2:1.2
156712:2:3.464101615137754587054892683011744733886
15680.49:2:0.7
15690.0049:2:0.07
1570# invalid ones
15711:NaN:NaN
1572-1:NaN:NaN
15730:NaN:NaN
1574-inf:NaN:NaN
1575+inf:NaN:NaN
1576NaN:0:NaN
1577NaN:2:NaN
1578NaN:inf:NaN
1579NaN:inf:NaN
158012:-inf:NaN
158112:inf:NaN
1582+0:0:NaN
1583+1:0:NaN
1584-1:0:NaN
1585-2:0:NaN
1586-123.45:0:NaN
1587+inf:0:NaN
158812:1:12
1589-12:1:NaN
15908:-1:NaN
1591-8:-1:NaN
1592# cubic root
15938:3:2
1594-8:3:NaN
1595# fourths root
159616:4:2
159781:4:3
3a427a11 1598# see t/bigroot() for more tests
ee15d750 1599&fsqrt
1600+0:0
1601-1:NaN
1602-2:NaN
1603-16:NaN
1604-123.45:NaN
1605nanfsqrt:NaN
1606+inf:inf
1607-inf:NaN
394e6ffb 16081:1
16092:1.41421356237309504880168872420969807857
16104:2
16119:3
161216:4
1613100:10
1614123.456:11.11107555549866648462149404118219234119
161515241.38393:123.4559999756998444766131352122991626468
16161.44:1.2
1617# sqrt(1.44) = 1.2, sqrt(e10) = e5 => 12e4
16181.44E10:120000
16192e10:141421.356237309504880168872420969807857
b3abae2a 1620144e20:120000000000
61f5c3f5 1621# proved to be an endless loop under 7-9
162212:3.464101615137754587054892683011744733886
990fb837 16230.49:0.7
16240.0049:0.07
027dc388 1625&is_nan
1626123:0
1627abc:1
1628NaN:1
1629-123:0
1630&is_inf
1631+inf::1
1632-inf::1
1633abc::0
16341::0
1635NaN::0
1636-1::0
1637+inf:-:0
1638+inf:+:1
1639-inf:-:1
1640-inf:+:0
1641# it must be exactly /^[+-]inf$/
1642+infinity::0
1643-infinity::0
ee15d750 1644&is_odd
1645abc:0
16460:0
1647-1:1
1648-3:1
16491:1
16503:1
16511000001:1
16521000002:0
1653+inf:0
1654-inf:0
1655123.45:0
1656-123.45:0
16572:0
b3abae2a 1658&is_int
1659NaNis_int:0
16600:1
16611:1
16622:1
1663-2:1
1664-1:1
1665-inf:0
1666+inf:0
1667123.4567:0
1668-0.1:0
1669-0.002:0
ee15d750 1670&is_even
1671abc:0
16720:1
1673-1:0
1674-3:0
16751:0
16763:0
16771000001:0
16781000002:1
16792:1
1680+inf:0
1681-inf:0
1682123.456:0
1683-123.456:0
b3abae2a 16840.01:0
1685-0.01:0
1686120:1
16871200:1
1688-1200:1
ee15d750 1689&is_positive
b68b7ab1 16900:0
ee15d750 16911:1
1692-1:0
1693-123:0
1694NaN:0
1695-inf:0
1696+inf:1
1697&is_negative
16980:0
16991:0
1700-1:1
1701-123:1
1702NaN:0
1703-inf:1
1704+inf:0
1705&parts
17060:0 1
17071:1 0
1708123:123 0
1709-123:-123 0
1710-1200:-12 2
1711NaNparts:NaN NaN
1712+inf:inf inf
1713-inf:-inf inf
1714&exponent
17150:1
17161:0
1717123:0
1718-123:0
1719-1200:2
1720+inf:inf
1721-inf:inf
1722NaNexponent:NaN
1723&mantissa
17240:0
17251:1
1726123:123
1727-123:-123
1728-1200:-12
1729+inf:inf
1730-inf:-inf
1731NaNmantissa:NaN
1732&length
1733123:3
1734-123:3
17350:1
17361:1
173712345678901234567890:20
1738&is_zero
1739NaNzero:0
1740+inf:0
1741-inf:0
17420:1
1743-1:0
17441:0
1745&is_one
1746NaNone:0
1747+inf:0
1748-inf:0
17490:0
17502:0
17511:1
1752-1:0
1753-2:0
027dc388 1754&ffloor
ee15d750 17550:0
1756abc:NaN
1757+inf:inf
1758-inf:-inf
17591:1
1760-51:-51
1761-51.2:-52
176212.2:12
990fb837 17630.12345:0
17640.123456:0
17650.1234567:0
17660.12345678:0
17670.123456789:0
027dc388 1768&fceil
ee15d750 17690:0
1770abc:NaN
1771+inf:inf
1772-inf:-inf
17731:1
1774-51:-51
1775-51.2:-51
177612.2:13
Unnamed repository; edit this file to name it for gitweb.