Lines Matching refs:_str
29 # _new and _str
31 ok (ref($x),'ARRAY'); ok ($C->_str($x),123); ok ($C->_str($y),321);
35 ok ($C->_str($C->_add($x,$y)),444);
36 ok ($C->_str($C->_sub($x,$y)),123);
37 ok ($C->_str($C->_mul($x,$y)),39483);
38 ok ($C->_str($C->_div($x,$y)),123);
43 ok ($C->_str($C->_mul($x,$y)),39483);
44 ok ($C->_str($x),39483); ok ($C->_str($y),321);
46 ok ($C->_str($C->_div($x,$y)),123);
47 ok ($C->_str($x),123); ok ($C->_str($y),321);
54 ok ($C->_str($r1),'0');
60 ok ($C->_str($C->_add($x,$z)),39485);
63 ok ($C->_str($re),123); ok ($C->_str($rr),2);
69 ok ($C->_str($C->_zero()),"0");
70 ok ($C->_str($C->_one()),"1");
73 ok ($C->_str($C->_two()),"2");
74 ok ($C->_str($C->_ten()),"10");
135 ok ($C->_str($C->_copy($x)),"$_");
136 ok ($C->_str($x),"$_"); # did _copy destroy original x?
147 ok ($C->_str($C->_lsft($x,$y,10)),10000);
149 ok ($C->_str($C->_lsft($x,$y,10)),20000);
152 ok ($C->_str($C->_lsft($x,$y,2)), 128 << 4);
155 ok ($C->_str($C->_rsft($x,$y,10)),1);
157 ok ($C->_str($C->_rsft($x,$y,10)),20);
159 ok ($C->_str($C->_rsft($x,$y,2)),256 >> 4);
163 ok ($C->_str($C->_rsft($x,$y,10)),0);
201 ok ($C->_str($xmod),'629'); # -629 % 5033 == 4404
206 ok ($C->_str(scalar $C->_div($x,$y)),3);
208 ok ($C->_str($x),30); ok ($C->_str($y),3);
210 ($x,$y) = $C->_div($x,$y); ok ($C->_str($x),0); ok ($C->_str($y),123);
216 ok (ref($x)||'','ARRAY'); ok ($C->_str($x),"$_");
221 $x = $C->_new("144"); ok ($C->_str($C->_sqrt($x)),'12');
222 $x = $C->_new("144000000000000"); ok ($C->_str($C->_sqrt($x)),'12000000');
226 ok ($C->_str($C->_root($x,$n)),'4'); # 4.xx => 4.0
228 ok ($C->_str($C->_root($x,$n)),'3');
232 ok ($C->_str($C->_pow($x,$n)), 0);
234 ok ($C->_str($C->_pow($x,$n)), 1);
236 ok ($C->_str($C->_pow($x,$n)), 1);
238 ok ($C->_str($C->_pow($x,$n)), 5);
241 ok ($C->_str($C->_pow($x,$n)),81 ** 3);
243 ok ($C->_str($C->_root($x,$n)),81);
246 ok ($C->_str($C->_pow($x,$n)),81 ** 3);
247 ok ($C->_str($C->_pow($x,$n)),'150094635296999121'); # 531441 ** 3 ==
249 ok ($C->_str($C->_root($x,$n)),'531441');
250 ok ($C->_str($C->_root($x,$n)),'81');
253 ok ($C->_str($C->_pow($x,$n)),'523347633027360537213511521');
254 ok ($C->_str($C->_root($x,$n)),'81');
257 ok ($C->_str($C->_root($x,$n)),'80');
260 ok ($C->_str($C->_root($x,$n)),'81');
271 ok ($C->_str($C->_pow($x,$n)),$rc);
278 ok ($C->_str($C->_root($x,$n)),'1');
283 ok ($C->_str($C->_root($x,$n)), $res->[$i-2]);
289 $x = $C->_new("0"); ok ($C->_str($C->_fac($x)),'1');
290 $x = $C->_new("1"); ok ($C->_str($C->_fac($x)),'1');
291 $x = $C->_new("2"); ok ($C->_str($C->_fac($x)),'2');
292 $x = $C->_new("3"); ok ($C->_str($C->_fac($x)),'6');
293 $x = $C->_new("4"); ok ($C->_str($C->_fac($x)),'24');
294 $x = $C->_new("5"); ok ($C->_str($C->_fac($x)),'120');
295 $x = $C->_new("10"); ok ($C->_str($C->_fac($x)),'3628800');
296 $x = $C->_new("11"); ok ($C->_str($C->_fac($x)),'39916800');
297 $x = $C->_new("12"); ok ($C->_str($C->_fac($x)),'479001600');
298 $x = $C->_new("13"); ok ($C->_str($C->_fac($x)),'6227020800');
301 $x = $C->_new("3"); $C->_fac($x); ok ($C->_str($x),'6');
302 $x = $C->_new("13"); $C->_fac($x); ok ($C->_str($x),'6227020800');
309 print "# \$x = ",$C->_str($x),"\n"
310 unless ok ($C->_str($x),substr($_,0,length($_)-1) . '2');
311 $C->_dec($x); ok ($C->_str($x),$_);
316 print "# \$x = ",$C->_str($x),"\n"
317 unless ok ($C->_str($x),substr($_,0,length($_)-2) . '20');
318 $C->_dec($x); ok ($C->_str($x),$_);
323 print "# \$x = ",$C->_str($x),"\n"
324 unless ok ($C->_str($x), '1' . '0' x (length($_)));
325 $C->_dec($x); ok ($C->_str($x),$_);
328 $x = $C->_new("1000"); $C->_inc($x); ok ($C->_str($x),'1001');
329 $C->_dec($x); ok ($C->_str($x),'1000');
339 $x = $C->_new($x); $C->_inc($x); ok ($C->_str($x),$z);
342 $x = $C->_new($x); $C->_dec($x); ok ($C->_str($x),$z);
350 ok ($C->_str(scalar $C->_mod($x,$y)),1);
352 ok ($C->_str(scalar $C->_mod($x,$y)),0);
356 ok ($C->_str(scalar $C->_xor($x,$y)),7);
358 ok ($C->_str(scalar $C->_or($x,$y)),7);
360 ok ($C->_str(scalar $C->_and($x,$y)),1);
363 ok ($C->_str( $C->_from_hex("0xFf")),255);
364 ok ($C->_str( $C->_from_bin("0b10101011")),160+11);
367 ok ($C->_str( $C->_from_hex( $C->_as_hex( $C->_new("128")))), 128);
368 ok ($C->_str( $C->_from_bin( $C->_as_bin( $C->_new("128")))), 128);
369 ok ($C->_str( $C->_from_hex( $C->_as_hex( $C->_new("0")))), 0);
370 ok ($C->_str( $C->_from_bin( $C->_as_bin( $C->_new("0")))), 0);