home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 1 / FishNMoreVol1.bin / more / code_examples / librar / lefactor.c < prev    next >
Text File  |  1989-02-08  |  384b  |  18 lines
  1. /*---------------------------------*/
  2. /*                   */
  3. /*           LEFACTOR(X,X)       */
  4. /*                   */
  5. /* Divides the second argument into*/
  6. /* the first to see if it is a fac-*/
  7. /* tor. If so, a zero is returned. */
  8. /*                   */
  9. /*---------------------------------*/
  10. lefactor(a,b)
  11. long a,b;
  12. {
  13.         if (!(a%b))
  14.             return(0);
  15.         else
  16.             return(1);
  17. }
  18.