Función de conversión de números decimales a hexadecimales en Scheme

dec-hex.scm

;; -*- coding:utf-8; mode:scheme -*-
(define (dec->hex num) ;; versión iterativa con DO
  "Función de conversión de números decimales a hexadecimales"
  (if (and (integer? num)(>= num 0)) ;; def solo para enteros positivos
      (let ((base 16)
            (cifras-hex "0123456789ABCDEF"))
        (do ((cantidad num (quotient cantidad base))
             (retval '() (cons (string-ref cifras-hex (remainder cantidad base))
                               retval)))
            ((= cantidad 0)(if (null? retval) "0" (list->string retval))) ))))