Code mittels map vereinfachen (gelöst) (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2025-12-13 12:45:13
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
30 Gäste

[thread]17190[/thread]

submit to reddit

Code mittels map vereinfachen [gelöst]

[gelöst]

Tags: perl5 map Ähnliche Threads

Leser: 21

Articles: hide open all | hide show old branches

+4 replies
ingobulla

2012-02-23 18:06
User since
2008-08-08
20 Artikel
BenutzerIn
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 )

1 2 3 4

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.
- +3 replies
- Linuxer
  
  2012-02-23 18:17
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  Hi,
  
  z.B. so:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14
  
  #! /usr/bin/perl use strict; use warnings; use List::Util qw( min ); my %hash = ( 't1' => [0.5, 0.8], 't2' => [0.6, 0.9], 't5' => [0.4, 0.2], ); my $min = min map { $hash{$_}->[0] } keys %hash; print "Min: $min\n";
  
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +2 replies
  - murphy
    
    2012-02-23 19:36
    User since
    2004-07-19
    1776 Artikel
    HausmeisterIn
    
    Effizienter und kürzer wäre aber
    
    Code (perl): (dl )
    
    1 2 3
    
    [...] my $min = min map $_->[0], values %hash; [...]
    
    When C++ is your hammer, every problem looks like your thumb.
    - Linuxer
      
      2012-02-23 20:58
      
      User since
      2006-01-27
      3891 Artikel
      HausmeisterIn
      
      War im Streß und wollte noch was zum Optimieren übrig lassen ;-)
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

View all threads created 2012-02-23 18:06.