Venus AUEB Forum

cyberpython wrote:Λήψη του Python interpreter για Windows :
http://www.python.org/download/windows/

Wayne Myers ported this Yeats poem, The Coming Of Wisdom with Time, to Perl. I enjoyed his use of Perl functions to coincide with Yeats' word use. For example, this Yeats line:

Though leaves are many
became
while ($leaves > 1) {
This was exactly what I was hoping to see from the entries. I also enjoyed his tounge-in-cheek use of sway() to ensure that the poem will die() if not on a Sun was slick. 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:

Code: Select all

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