A random collection of things I come across.

Tuesday, January 06, 2009

Poetry in perl

Though leaves are many, the root is one;
Through all the lying days of my youth
I swayed my leaves and flowers in the sun;
Now I may wither into the truth

written in Perl as


while ($leaves > 1) {
$root = 1;
}
foreach($lyingdays{'myyouth'}) {
sway($leaves, $flowers);
}
while ($i > $truth) {
$i--;
}
sub sway {
my ($leaves, $flowers) = @_;
die unless $^O =~ /sun/i;
}
See more examples at Perl Poetry Contest

No comments: