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 / bigrat < prev    next >
Encoding:
Text File  |  1992-10-18  |  544 b   |  13 lines
  1. require "bigrat.pl";
  2.  
  3. $RAT = &rneg($RAT);                 # negation
  4. $RAT = &rabs($RAT);                 # absolute value
  5. $CODE = &rcmp($RAT, $RAT);          # comparison, like <=>
  6. $RAT = &radd($RAT, $RAT);           # addition
  7. $RAT = &rsub($RAT, $RAT);           # subtraction
  8. $RAT = &rmul($RAT, $RAT);           # multiplication
  9. $RAT = &rdiv($RAT, $RAT);           # division
  10. ($RAT,$RAT) = &rmod($RAT);          # modulus (int, frac parts)
  11. $RAT = &rnorm($RAT);                # normalization
  12. $RAT = &rsqrt($RAT, $CYCLES);       # square root
  13.