"Perl for the XXI-imum Century"

Lingua::Romana::Perligata is a Perl module, written by High Perl Guru Damian Conway, that allows writing scripts in Latin.

This definitely isn't as silly as it sounds, if you consider that Latin grammar is a bit different from English - and most of the programming languages these days are based on English conventions. The goal was to create a less positional programming language, making Perl a bit more flexible.

Here's an example of Perligata script, from Conway's paper (http://www.csse.monash.edu.au/~damian/papers/HTML/Perligata.html). It implements The Sieve of Eratosthenes.

#!/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.

Equivalent in traditional Perl:

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

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

Now, I'm waiting for someone to make a gregorian chant version of DeCSS...

Log in or register to write something here or to contact authors.