Lines Matching refs:try
62 $try = "\$x = $class->new(\"$args[0]\");";
65 $try = "\$x = $class->bnorm(\"$args[0]\");";
68 $try .= "\$x->$f() || 0;";
70 $try .= "\$x->is_inf('$args[1]');";
72 $try .= "\$x->binf('$args[1]');";
74 $try .= "\$x->bone('$args[1]');";
77 $try .= "\$x->$f();";
79 $try .= "\$x->$f();";
82 $try .= '$x = $x->exponent()->bstr();';
85 $try .= '$x = $x->mantissa()->bstr();';
87 $try .= '($m,$e) = $x->parts();';
89 $try .= '$m = $m->bstr(); $m = "NaN" if !defined $m;';
90 $try .= '$e = $e->bstr(); $e = "NaN" if !defined $e;';
91 $try .= '"$m,$e";';
94 $try .= "\$y = $class->new('$args[1]');";
97 $try .= '$x <=> $y;';
99 $try .= "$round_mode; \$x->bround(\$y);";
101 $try .= '$x->bacmp($y);';
103 $try .= '$x + $y;';
105 $try .= '$x - $y;';
107 $try .= '$x * $y;';
109 $try .= '$x / $y;';
111 $try .= 'join (",",$x->bdiv($y));';
114 $try .= "\$x $f \$y;";
117 $try .= "\$x $f \$y;";
119 $try .= '$x % $y;';
124 $try .= " \$z = $class->new('$args[2]'); ";
126 $try .= "$class\::bgcd(\$x, \$y";
127 $try .= ", \$z" if (defined $args[2]);
128 $try .= " );";
134 $try .= " \$z = $class->new('$args[2]'); ";
136 $try .= "$class\::blcm(\$x, \$y";
137 $try .= ", \$z" if (defined $args[2]);
138 $try .= " );";
142 $try .= "\$x->blsft(\$y,$args[2]);";
146 $try .= "\$x << \$y;";
151 $try .= "\$x->brsft(\$y,$args[2]);";
155 $try .= "\$x >> \$y;";
158 $try .= "\$x->broot(\$y);";
160 $try .= "\$x->blog(\$y);";
162 $try .= "\$x & \$y;";
164 $try .= "\$x | \$y;";
166 $try .= "\$x ^ \$y;";
168 $try .= "\$x ** \$y;";
170 $try .= "\$x->bmodinv(\$y);";
172 $try .= "\$x->digit(\$y);";
174 $try .= "\$z = $class->new(\"$args[2]\");";
178 $try .= "\$x->bmodpow(\$y,\$z);";
183 $ans1 = eval $try;
195 # print "try: $try ans: $ans1 $ans\n";
196 print "# Tried: '$try'\n" if !ok ($ans1, $ans);
213 $try = "\$x = $class->new('4294967296');";
214 $try .= '$a = $x->bmul($x);';
215 $ans1 = eval $try;
216 print "# Tried: '$try'\n" if !ok ($ans1, $class->new(2) ** 64);
218 $try = "\$x = $class->new(10);";
219 $try .= '$a = $x->bpow($x);';
220 $ans1 = eval $try;
221 print "# Tried: '$try'\n" if !ok ($ans1, $class->new(10) ** 10);
287 $try = "\$x = $class->new(0);";
288 $try .= "\$y = 10;";
289 $try .= "'false' if \$x ne \$y;";
290 $ans = eval $try;
291 print "# For '$try'\n" if (!ok "$ans" , "false" );
299 $try = "\$x = $class->new(10); \$x = 2 ** \$x;";
300 $try .= "'ok' if \$x == 1024;"; $ans = eval $try;
301 print "# For '$try'\n" if (!ok "$ans" , "ok" );
303 $try = "\$x = $class->new(10); \$x = 2 * \$x;";
304 $try .= "'ok' if \$x == 20;"; $ans = eval $try;
305 print "# For '$try'\n" if (!ok "$ans" , "ok" );
307 $try = "\$x = $class->new(10); \$x = 2 + \$x;";
308 $try .= "'ok' if \$x == 12;"; $ans = eval $try;
309 print "# For '$try'\n" if (!ok "$ans" , "ok" );
311 $try = "\$x = $class\->new(10); \$x = 2 - \$x;";
312 $try .= "'ok' if \$x == -8;"; $ans = eval $try;
313 print "# For '$try'\n" if (!ok "$ans" , "ok" );
315 $try = "\$x = $class\->new(10); \$x = 20 / \$x;";
316 $try .= "'ok' if \$x == 2;"; $ans = eval $try;
317 print "# For '$try'\n" if (!ok "$ans" , "ok" );
319 $try = "\$x = $class\->new(3); \$x = 20 % \$x;";
320 $try .= "'ok' if \$x == 2;"; $ans = eval $try;
321 print "# For '$try'\n" if (!ok "$ans" , "ok" );
323 $try = "\$x = $class\->new(7); \$x = 20 & \$x;";
324 $try .= "'ok' if \$x == 4;"; $ans = eval $try;
325 print "# For '$try'\n" if (!ok "$ans" , "ok" );
327 $try = "\$x = $class\->new(7); \$x = 0x20 | \$x;";
328 $try .= "'ok' if \$x == 0x27;"; $ans = eval $try;
329 print "# For '$try'\n" if (!ok "$ans" , "ok" );
331 $try = "\$x = $class\->new(7); \$x = 0x20 ^ \$x;";
332 $try .= "'ok' if \$x == 0x27;"; $ans = eval $try;
333 print "# For '$try'\n" if (!ok "$ans" , "ok" );
338 $try = "\$x = $class\->badd(4,5);";
339 $try .= "'ok' if \$x == 9;";
340 $ans = eval $try;
341 print "# For '$try'\n" if (!ok "$ans" , "ok" );