[smokeping-users] Re: AW: Re: Smokeping IOSPing

amedee at amedee.be amedee at amedee.be
Mon May 15 15:56:36 MEST 2006

> Perl is still all Greek to me,

Perl isn't Greek, it's Latin!

Putting it all together -- a Greek algorithm in Latin
The Sieve of Eratosthenes is one of oldest well-known algorithms. As the
better part of Roman culture was ``borrowed'' from the Greeks, it is
perhaps fitting that the first ever Perligata program should be as well:

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

The use Lingua::Romana::Perligata statement causes the remainder of the
program to be translated into the following Perl:

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

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

Note in the very last Perligata statement (lista sic hoc...da listis) that
the use of inflexion distinguishes the @list that is grep'ed (lista) from
the @list that is assigned to (listis), even though each is at the
``wrong'' end of the statement, compared with the Perl version.

Source: http://www.csse.monash.edu.au/~damian/papers/HTML/Perligata.html

Sorry, I just couldn't resist it when I saw your remark. ;-)

Amedee Van Gasse

Unsubscribe mailto:smokeping-users-request at list.ee.ethz.ch?subject=unsubscribe
Help        mailto:smokeping-users-request at list.ee.ethz.ch?subject=help
Archive     http://lists.ee.ethz.ch/smokeping-users
WebAdmin    http://lists.ee.ethz.ch/lsg2.cgi

More information about the smokeping-users mailing list