[06-Jun-2009 01:54:12] PHP Warning: Unknown(): Unable to load dynamic library '/usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo.so' - /usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo.so: cannot open shared object file: No such file or directory in Unknown on line 0 [06-Jun-2009 01:54:12] PHP Warning: Unknown(): Unable to load dynamic library '/usr/local/php4/lib/php/extensions/no-debug-zts-20020429/sqlite.so' - /usr/local/php4/lib/php/extensions/no-debug-zts-20020429/sqlite.so: cannot open shared object file: No such file or directory in Unknown on line 0 [06-Jun-2009 01:54:12] PHP Warning: Unknown(): Unable to load dynamic library '/usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo_sqlite.so' - /usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo_sqlite.so: cannot open shared object file: No such file or directory in Unknown on line 0 [06-Jun-2009 01:54:12] PHP Warning: Unknown(): Unable to load dynamic library '/usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo_mysql.so' - /usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo_mysql.so: cannot open shared object file: No such file or directory in Unknown on line 0 [06-Jun-2009 02:09:22] PHP Warning: Unknown(): Unable to load dynamic library '/usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo.so' - /usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo.so: cannot open shared object file: No such file or directory in Unknown on line 0 [06-Jun-2009 02:09:22] PHP Warning: Unknown(): Unable to load dynamic library '/usr/local/php4/lib/php/extensions/no-debug-zts-20020429/sqlite.so' - /usr/local/php4/lib/php/extensions/no-debug-zts-20020429/sqlite.so: cannot open shared object file: No such file or directory in Unknown on line 0 [06-Jun-2009 02:09:22] PHP Warning: Unknown(): Unable to load dynamic library '/usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo_sqlite.so' - /usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo_sqlite.so: cannot open shared object file: No such file or directory in Unknown on line 0 [06-Jun-2009 02:09:22] PHP Warning: Unknown(): Unable to load dynamic library '/usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo_mysql.so' - /usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo_mysql.so: cannot open shared object file: No such file or directory in Unknown on line 0 Ortega.cl
Ortega.cl :: Validar RUT! :: Scheme

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))))
Última Modificación: Nov 16, 2006, 4:10 pm         Esta página sin Plop!         Opera
Sitio Plop!