Lines Matching refs:try
72 $try = "\$x = $class->new(\"$args[0]\");";
75 $try = "\$x = $class->bnorm(\"$args[0]\");";
78 $try .= "\$x->$f();";
80 $try .= '$x->as_hex();';
82 $try .= '$x->as_bin();';
84 $try .= "\$x->is_inf('$args[1]');";
86 $try .= "\$x->binf('$args[1]');";
88 $try .= "\$x->bone('$args[1]');";
91 $try .= "\$x->$f();";
93 $try .= '$x->length();';
96 $try .= '$x = $x->exponent()->bstr();';
99 $try .= '$x = $x->mantissa()->bstr();';
101 $try .= '($m,$e) = $x->parts();';
103 $try .= '$m = $m->bstr(); $m = "NaN" if !defined $m;';
104 $try .= '$e = $e->bstr(); $e = "NaN" if !defined $e;';
105 $try .= '"$m,$e";';
109 $try .= "\$y = $class->new(\"$args[1]\");"; # BigInt
113 $try .= "\$y = $ECL->new(\"$args[1]\");"; # BigFloat
117 $try .= '$x <=> $y;';
119 $try .= "$round_mode; \$x->bround(\$y);";
121 $try .= "\$x->broot(\$y);";
123 $try .= '$x->bacmp($y);';
125 $try .= '$x + $y;';
127 $try .= '$x - $y;';
129 $try .= '$x * $y;';
131 $try .= '$x / $y;';
133 $try .= 'join (",",$x->bdiv($y));';
136 $try .= "\$x $f \$y;";
139 $try .= "\$x $f \$y;";
141 $try .= '$x % $y;';
146 $try .= " \$z = $class->new('$args[2]'); ";
148 $try .= "$class\::bgcd(\$x, \$y";
149 $try .= ", \$z" if (defined $args[2]);
150 $try .= " );";
156 $try .= " \$z = $class->new('$args[2]'); ";
158 $try .= "$class\::blcm(\$x, \$y";
159 $try .= ", \$z" if (defined $args[2]);
160 $try .= " );";
164 $try .= "\$x->blsft(\$y,$args[2]);";
168 $try .= "\$x << \$y;";
173 $try .= "\$x->brsft(\$y,$args[2]);";
177 $try .= "\$x >> \$y;";
180 $try .= "\$x & \$y;";
182 $try .= "\$x | \$y;";
184 $try .= "\$x ^ \$y;";
186 $try .= "\$x ** \$y;";
188 $try = "\$x = $class->new('$args[0]'); \$x->digit($args[1]);";
192 $ans1 = eval $try;
204 # print "try: $try ans: $ans1 $ans\n";
205 print "# Tried: '$try'\n" if !ok ($ans1, $ans);