Validar RUT!
User-RPL, Calculadoras HP

Enviado por German González

Nota: Solo hay que poner el numero en el stack y ejecutarlo.

<< ->STR { } SWAP DUP
SIZE 1 - 1 SWAP
FOR i DUP TAIL
SWAP HEAD ROT SWAP
OBJ-> + SWAP
 NEXT OBJ-> + DUP
SIZE 7 ==
 IF
 THEN REVLIST 0 +
 END
 { 2 3 4 5 6 7 2 3 } * OBJ-> DROP +
 + + + + + + 11 MOD
DUP 1 ==
 IF
 THEN "K"
 ELSE DUP 0 ==
   IF
   THEN 0 DROP
   ELSE 11 SWAP -
   END
 END
>>