in reply to Re(ALL): Putting it together
in thread H of A optimization

I'd rather say:


my (%edgeHash,@alreadySeen);

while(<STDIN>){

    # simpler regexp
    if(/(\d+)\D+(\d+)/){
        # don't use '$a' and '$b'!
        # and don't quote "$vars"
        # in fact you can keep $1 and $2
        push @{$edgeHash{$1}}, $2 unless
              $alreadySeen[int($2)]++;
    }
}

[download]
--
http://fruiture.de

Replies are listed 'Best First'.
Re(3): Putting it together
by Arien (Pilgrim) on Aug 30, 2002 at 21:30 UTC

    Well, in that case...

    my (%edge, @seen);

while (<STDIN>) {
    $seen[$2]++ or push @{$edge{$1}}, $2 if /(\d+)\D+(\d+)/;
    # push @{$edge{$1}}, $2 if /(\d+)\D+(\d+)/ and not $seen[$2]++;
}

    [download]

    — Arien

    Edit: added the commented alternative.

[reply]
[d/l]

In Section Seekers of Perl Wisdom