home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / me34src.zip / me3 / mutt / builtin / tobase.mut < prev    next >
Text File  |  1995-01-14  |  459b  |  18 lines
  1.   ;; tobase(n,base): convert n (base 10) to base.  eg (tobase 10 16) => A
  2.   ;; C Durland    Public Domain
  3.  
  4. (include mod.mut)
  5. (defun
  6.   tobase (int n base) HIDDEN
  7.   {
  8.     (if (< n base) (extract-elements "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 (convert-to NUMBER (ask "n = "))
  17. ;          (convert-to NUMBER (ask "base = "))))
  18.