Re^2: finding the first unique element in an array

blazar,
If I am understanding the question correctly, this is not a FAQ and your solution has nothing to do with the question being asked.

The object isn't to remove duplicates but to find the first entry that doesn't have a duplicate and then print the corresponding element (via the index) in another array.

my (@name1, @name2, @percent); # initialized elsewhere
my %seen; 
++$seen{$_} for @name1;
for ( 0 .. $#name1 ) {
    next if $seen{ $name[$_] } > 1;
    print $name2[$_];
    last;
}
[download]

It is completely possible that I am the one who has interpreted the problem wrong though.

Cheers - L~R

Update: Oversight corrected thanks to blazar below. That's what you get for not testing your code ;-)

Comment on Re^2: finding the first unique element in an array Download Code

Replies are listed 'Best First'.
Re^3: finding the first unique element in an array by blazar (Canon) on Jul 19, 2005 at 14:43 UTC
I think we're both (partly) wrong. Actually the subject seems to support your interpretation. OTOH I'm convinced that part of the code supports mine. Actually I didn't notice the idx thing and on a better reading I think that what he wants may be along the lines of `my %seen; for (0..$#name1) { next if $seen{ $name1[$_] }++; print $name2[$_]; }` [download] But unless I'm mistaking something obvious your code won't work as you're populating `%seen` with `( 0 => 1, ..., $#name1 => 1 )` [download] .	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: finding the first unique element in an array
by blazar (Canon) on Jul 19, 2005 at 14:43 UTC

think

my %seen;
for (0..$#name1) {
    next if $seen{ $name1[$_] }++;
    print $name2[$_];
}
[download]

%seen

( 0 => 1, ..., $#name1 => 1 )
[download]

[reply]
[d/l]
[select]