Lines Matching refs:_fac
288 # _fac
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');
300 # test that _fac modifes $x in place for small arguments
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');