Höchste Zahl ermitteln

[迪拉斯]

Hey,

[31 Zeilen Code]

du meine Güte, ist die Sprache furchtbar ausschweifend.

use utf8;  
use Games::Dice::Advanced;  
use List::Util qw(max);  
  
sub stechen {  
    my @spieler = @_;  
    my %würfel;  
    push @{$würfel{Games::Dice::Advanced->roll}}, $_ for @spieler;  
    return @{$würfel{max keys %würfel}};  
};  
  
my @spitzenspieler = stechen(qw(Anton Berta Cäsar Dora));  
while (@spitzenspieler > 1) {  
    @spitzenspieler = stechen(@spitzenspieler);  
};  
print @spitzenspieler;