LinuxAdicto.org

¡Tú! ¡Sí, tú! ¿Escribir un programa en Perl te resulta más complicado que tocar el piano con los dedos de los pies? ¿Te encanta el latín? ¿Tus amigos te consideran raro por ello? ¡Ahora les podrás demostrar que es útil! Gracias a Perligata podrás hacer esto:

#! /usr/local/bin/perl -w

use Lingua::Romana::Perligata;

maximum inquementum tum biguttam egresso scribe.
meo maximo vestibulo perlegamentum da.
da duo tum maximum conscribementa meis listis.

dum listis decapitamentum damentum nexto
fac sic
nextum tum novumversum scribe egresso.
lista sic hoc recidementum nextum cis vannementa da listis.
cis.

Para obtener algo equivalente a esto:

print STDOUT 'maximum:';
my $maxim = ;
my (@list) = (2..$maxim);

while ($next = shift @list)
{
    print STDOUT $next, ‘\n’;
    @list = grep {$_ % $next} @list;
}

Vía: Nicolas Trangez (ikke) del Planet GNOME.