Validar RUT!
Scheme

Enviado por Rafael Meneses Osorio

Ejemplo: >(verificador 55555555)
>5

(define (verificador2 rutSinVerificador)
  (let ((R
	 (- 11
	    (remainder
	     (let calculo ((restoRut rutSinVerificador) (c 0))
	       (let ((digito (remainder restoRut 10)))
		 (cond ((= restoRut 0) 0)
		       (else
			(+ (* (+ (remainder c 6) 2) digito)
			   (calculo (/ (- restoRut digito) 10) (+ c 1)))))))
	     11))))
    (cond ((= R 10) 'k)
	  ((= R 11)  0)
	  (else R))))