Código de control

modulo-11.clj

;; Implementación de Código de control con módulo 11
;; http://es.wikipedia.org/wiki/C%C3%B3digo_de_control

(defn verificador-suma-parcial [grupo] (reduce + 0 (map * grupo (range 2 8))))

(defn digito-verificador [clave-acceso]
  (let [c (partition 6 6 nil (map #(Integer/parseInt (str %)) (reverse clave-acceso)))
        digito (reduce + 0 (map verificador-suma-parcial c))
        m (mod digito 11)]
    (if (> m 1) (- 11 m) m)))