Computer Poesie

Vielleicht nicht das gleich, aber immer wieder schön: Der Perl Poetry Contest

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


siehe: http://www.perlmonks.org/index.pl?node=Perl Poetry
google: Perl Poetry Contest
 
Sorry, aber die struts-Gedichte sind absolute S.cheis.se. Da gefällt mir das was Andreas Gaisbauer gepostet hat schon viel besser.
 

Neue Beiträge

Zurück