home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / me34src.zip / me3 / mutt / builtin / mod.mut < prev    next >
Lisp/Scheme  |  1995-01-14  |  171b  |  6 lines
  1.   ;; mod.mut : modulo
  2.   ;; (mod n base) == n modulo base == n - (n/base)*base
  3.   ;; C Durland    Public Domain
  4.  
  5. (defun mod (int n base) HIDDEN { (- n (* (/ n base) base)) } )
  6.