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
>>