Dotaz: PERL odstranenie duplicit v v poli poli (2-dimenzinalnom)

[xsustek]

Ahojte,

napada niekoho algoritmus alebo nejaky odkaz na vymazanie duplicit v 2-dimenzionalnom poli (resp. poli referencii na polia). Nejde o duplicity referencii.

Odpovědi

[buff]

Ahoj. Nerozumím, co přesně chceš. Řekněme, že máš pole

@pole = (
  [1, 2],
  [3, 4],
  [1, 2],
  [2, 2]
);

Co má být na výstupu?

[xsustek]

Na vystupe ma byt pole @pole = ( [1, 2], [3, 4], [2, 2] );

[Ondřej Kopka]

Podívej se na tohle, mělo by to fungovat i ve tvém případě:

perldoc -q duplicate

[NeoV]

pokial tie polia nie su moc rozsiahle, tak si vystacis aj s niecim takymto:

@pole = (
  [1, 2],
  [3, 4],
  [1, 2],
  [2, 2]
);

my %h;
@pole = grep {$h{join(":",@$_)}++ == 0} @pole;

use Data::Dumper;
print Dumper(\@pole); 

[wamba]

No s využitím uniq_by s CPAN by to šlo takhle:

use warnings;

use strict;

use 5.010;

use Data::Dumper;


sub uniq_by(&@)

{

 my $code = shift;


 my %present;

 return grep {

 my $key = $code->( local $_ = $_ );

 !$present{$key}++

 } @_;

}


my @x =  ([1, 1], [2, 2], [3, 5], [2, 2], [3,4], [2,1], [1,1]);

say Dumper( uniq_by { "@$_"  } @x);