home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / mutt / tobase.mut < prev    next >
Text File  |  1988-09-23  |  410b  |  17 lines
  1. ; tobase(n,base): convert n (base 10) to base.  eg (tobase 10 16) => A
  2. ;    C Durland
  3.  
  4. (include mod.mut)
  5. (defun
  6.   tobase (int n base) HIDDEN
  7.   {
  8.     (if (< n base) (substr "0123456789ABCDEF" n 1)
  9.       (concat
  10.         (tobase (/ n base) base)    ; tobase n/base base
  11.     (tobase (mod n base) base)    ; tobase (n mod base) base
  12.       )
  13.     )
  14.   }
  15. )
  16. ;(msg (tobase (atoi (ask "n = "))(atoi (ask "base = "))))
  17.