Re: [FWP] words words words

["David L. Nicol" <david@kasey.umkc.edu>]

Ronald J Kimball wrote:
> 
> On Fri, May 19, 2000 at 11:13:31AM -0400, Ala Qumsieh wrote:
> >
> >       @ARGV="threes";
> >       chomp and$three{$_} = 1 for<>;
> >       @ARGV="nines";
> >       /(...)(...)(...)/&&exists$three{$1}&&
> >                          exists$three{$2}&&
> >                          exists$three{$3}&&
> >                          print
> >               for<>;
> >
> > (which is actually just 4 lines long)
> 
> You don't need the exists in that one, since you're setting the values in
> the hash to 1.
> 
> Ronald

Would this hash slice work?  I'm trading several evaluations
for one join:

"@three{/(...)(...)(...)/}" eq "1 1 1" and print


-- 
                          David Nicol 816.235.1187 nicold@umkc.edu
                                drawn to the speed and performance

==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe