home *** CD-ROM | disk | FTP | other *** search
/ ftp.cse.unsw.edu.au / 2014.06.ftp.cse.unsw.edu.au.tar / ftp.cse.unsw.edu.au / pub / doc / languages / perl / nutshell / apb / bigint < prev    next >
Encoding:
Text File  |  1992-10-18  |  628 b   |  14 lines

  1. require "bigint.pl";
  2.  
  3. $BINT = &bneg($BINT);                # negation
  4. $BINT = &babs($BINT);                # absolute value
  5. $CODE = &bcmp($BINT, $BINT);         # comparison, like <=>
  6. $BINT = &badd($BINT, $BINT);         # addition
  7. $BINT = &bsub($BINT, $BINT);         # subtraction
  8. $BINT = &bmul($BINT, $BINT);         # multiplication
  9. ($BINT,$BINT) = &bdiv($BINT, $BINT); # division (quotient, rem)
  10. $BINT = &bdiv($BINT, $BINT);         # division (just quotient)
  11. $BINT = &bmod($BINT, $BINT);         # modulus
  12. $BINT = &bgcd($BINT, $BINT);         # greatest common divisor
  13. $BINT = &bnorm($BINT);               # normalization
  14.