Re: how to simplify this script

Gunnar Hjalmarsson wrote:
> 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, I think there was a misunderstanding.
I was just going over your code so that I can understand.. as I don't 
have a solution on my own
To understand it better,  I was debugging the code and I thought it was 
going over the loop(but second look gave me the realization that it's 
skipping it)...

I appreciate your code and it's helping me understand the problem and 
solution.

thank you again.