Haikus, poemas de amor, transliteraciones al Pearl de poemas reales y generadores de poesía... todos escritos en Pearl
Here is the original poem:

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

And here is Myers' Perl version:

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;
}

Link: www.foo.be/docs/tpj/issues/vol5_1/tpj0501-0012.html
Fecha de consulta: 14/11/2005

Fecha de modificaci�n: 14/11/2005 22:50