…someone created Perligata.
Here’s an example:
#! /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. |
is equivalent to:
#! /usr/local/bin/perl -w print STDOUT 'maximum:'; my $maxim = <STDIN>; my (@list) = (2..$maxim); while ($next = shift @list) { print STDOUT $next, "\n"; @list = grep {$_ % $next} @list; } |
3 Responses
CoderGuy
Cool… but does it fungor?
Robert Murphy
Et ignotas animum dimittit in artes – they don’t know how cool they are!
Bill
hahaha