0votos
Cifrado César en Perl
por

trikitrok

hace 4 años

Empecé a aprender Perl hace poquito. Esto fue una buena excusa para practicar un poco. Para probar el script hay que salvarlo a un fichero, por ejemplo, cesar.pl, darle permisos de ejecución, y escribir en línea de comandos: ./cesar.pl texto_que_van_a_cifrar desplazamiento

1voto
SMS en Perl
por

josejuan

hace 4 años

El código en Perl, genera la máquina de Turing. ¡Genial idea la de JCarles de hacerlo en Turing! (se generan 164 estados). La entrada es como la de JCarles, pero en lugar de la primera doble comillas hay que poner un mayor que.

0votos
K-Ceros en Perl
por

Christian Sánchez

hace 4 años

Se usan dos funciones, la de factorial, y la de conseguir los ceros que tiene el número. Se empiezan a contar los factoriales desde 5, ya que los cuatro primeros factoriales no tienen 0.

0votos
Dígitos en Perl
por

Christian Sánchez

hace 4 años

Un script que quizás se pueda hacer en menos líneas, pero quizás sería más difícil de "leer", se usa la función index que viene en el core de Perl, esta función devuelve -1 siempre que no consiga la sub-cadena dentro de la cadena .. Y la función last rompe el bucle, así evitamos tener que hacer todo el recorrido si conseguimos la sub-cadena en una de las primeras posiciones.

0votos
Primos gemelos en Perl
por

Christian Sánchez

usando Perl hace 4 años

Un script en Perl >= 5.10. Solicita dos números, comprueba que la diferencia entre ellos sea mayor a 2, si esa diferencia es mayor, termina la ejecución. Luego se usa la función "esPrimo" . Si el primer número _no_ es primo se termina la ejecución, si los dos son primos entonces muestra el resultado.