Code mittels map vereinfachen (gelöst) - #156377 (Allgemeines zu Perl)

ingobulla

2012-02-23 18:06

User since
2008-08-08
20 Artikel
BenutzerIn
[default_avatar]

Hallo,

ich habe ein Hash %dists der Form

Code: (dl )

1
2
3

't1' -> [0.5, 0.8]
't2' -> [0.6, 0.9]
't5' -> [0.4, 0.2]

und möchte den minimalen ersten Arrayeintrag erhalten (also 0.4). Ich habe das wie folgt gemacht:

Code (perl): (dl )

my $min_dist_old_to_new = 1; 
foreach my $curr_dists (values %dists) {
        $min_dist_old_to_new = min($min_dist_old_to_new, $$curr_dists[0]);
}

Meine Frage ist nun, ob man das kürzer mittels map hinbekommen kann.