Re: how to simplify this script

Richard Lee wrote:
> Gunnar Hjalmarsson wrote:
>> Richard Lee wrote:
>>>
>>> ------------ code of Gunnar's ----------------
>>>
>>> my $numbers_wanted = 2;
>>> my ( @[EMAIL PROTECTED]
 @[EMAIL PROTECTED]
 );
>>>
>>> LOOP: foreach ( @[EMAIL PROTECTED]
 ) {
>>>     my @[EMAIL PROTECTED]
 = split;
>>>     foreach my $num ( @[EMAIL PROTECTED]
 ) {
>>>         next LOOP if grep( $num->{$_}, @[EMAIL PROTECTED]
 ) >= $numbers_wanted;
>>>     }
>>>     push @[EMAIL PROTECTED]
 $_;
>>>     push @[EMAIL PROTECTED]
 { map { $_ => 1 } @[EMAIL PROTECTED]
 };
>>> }
>>>
>>> print "$_\n" for @[EMAIL PROTECTED]
>>
>> It iterates over @[EMAIL PROTECTED]
 and stores some of the elements in @[EMAIL PROTECTED]
 
>> based on (my interpretation of) the OP's criteria. There is nothing 
>> mysterious with the code; everything can be looked up in the Perl docs.
>>
>> @[EMAIL PROTECTED]
 is a help variable where the numbers in previously stored 
>> elements are made conveniently accessible for lookups. The expression
>>
>>     map { $_ => 1 } @[EMAIL PROTECTED]
>>
>> creates a key/value list where the elements of @[EMAIL PROTECTED]
 are the keys (see 
>> "perldoc -f map"), and
>>
>>     push @[EMAIL PROTECTED]
 { map { $_ => 1 } @[EMAIL PROTECTED]
 };
>>
>> makes the list an anonymous hash and adds a reference to that hash to 
>> @[EMAIL PROTECTED]
>>
>> grep() is used in scalar context to compare the elements with 
>> previously stored elements and test against the OP's criteria.
>>
>>     perldoc -f grep
> 
> why does program go over empty array at the begining?
> 
>    foreach my $num ( @[EMAIL PROTECTED]
 ) {
>        next LOOP if grep( $num->{$_}, @[EMAIL PROTECTED]
 ) >= $numbers_wanted;
>    }

Since @[EMAIL PROTECTED]
 is empty at the first iteration of the outer loop, the 
program skips the inner loop. So what?

I simply posted some code that gives the desired result. Please feel 
free to criticize the code or post an alternative solution, but I don't 
see the point with asking "why" with respect to a piece of code out of 
context.

-- 
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl