Perl - algoritmo de cristian

Por favor quiero que me envien un ejemplo de como puedo hacer el algoritmo de Cristian.
Les quedare imensamente agradecida.

Atte:

Janeth

Yo también necesito el algoritmo de Cristian en C. A ver si es posible que alguien lo ponga.

Un saludo.