Arrays: Pärchen zählen (gelöst) - #155736 (Allgemeines zu Perl)

rosti

2012-01-28 09:37

User since
2011-03-19
3199 Artikel
BenutzerIn

Hilfreich ist ein Hash-Slice, in die Keys kommt das Eine, in die Values das andere Array. Dann brauchst Du nur noch über den Hash zu gehen und zählen, wenn key gleich value ist:

Code (perl): (dl )

my @frau = qw /bl ge gr br sw rt/;
my @mann = qw /ge bl bl br sw rt/;
my %h = ();        # der kleine Helfer ;)
@h{@frau} = @mann; # slice
my $anz = grep{ $h{$_} eq $_  }keys %h;
print $anz;

PS: Noch ne Spielerei ;)

Code (perl): (dl )

$, = "\n"; $\ = "\n";
my @frau = qw /bl ge gr br sw rt Tina Pia Frauke/;
my @mann = qw /ge bl bl br sw rt/;
my @keinMann = ();
local $SIG{__WARN__} = sub{push @keinMann, $_};
my %h = ();
@h{@frau} = @mann;
my $anz = grep{ $h{$_} eq $_  }keys %h;
print "Paare: $anz", "Kein Mann bekommen haben:", @keinMann;

Last edited: 2012-01-28 14:05:09 +0100 (CET)