home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / editor / me_cd.arc / MOD.MUT < prev    next >
Lisp/Scheme  |  1988-08-11  |  142b  |  4 lines
  1.     ;; mod.mut : modulo
  2.     ;; (mod n base) == n modulo base == n - (n/base)*base
  3. (defun mod (int n base) HIDDEN { (- n (* (/ n base) base)) } )
  4.