nicht angemeldet
Hej,
[31 Zeilen Code]
ey, das ist unfair ... das sind nur 27 Zeilen gewesen, du hast Leerzeilen mitgezählt. :(
> push @{$würfel{Games::Dice::Advanced->roll}}, $_ for @spieler;
Hier versteckt sich etwas (roll) was in bei mir mindestens 3 Zeilen gekostet hat.
> my @spitzenspieler = stechen(qw(Anton Berta Cäsar Dora));
> while (@spitzenspieler > 1) {
> @spitzenspieler = stechen(@spitzenspieler);
> };
Sicher, dass du die letzten 3 Zeilen nicht in einer eigenen Routine kapseln möchtest?
> print @spitzenspieler;
Wenn ich solche Ausdrücke sehe bin ich heilfroh noch nie ernsthaft in Perl programmiert haben zu müssen. :)
Ferner habe ich eine eigene Klasse und eine Exception eingeführt, was zwar beides nicht nötig gewesen wäre, die Strukturiertheit zum einen und Robustheit zum anderen deutlich erhöht hat.
Aber wenn ich aus der Java Insel zitieren darf: Jede Programmiersprache hat ihren Platz – ja, auch Perl. >:-]
Beste Grüße
Biesterfeld
--
Art.1: Et es wie et es
Art.2: Et kütt wie et kütt
Art.3: Et hätt noch immer jot jejange
Das Kölsche Grundgesetz
Art.1: Et es wie et es
Art.2: Et kütt wie et kütt
Art.3: Et hätt noch immer jot jejange
Das Kölsche Grundgesetz