in reply to RE: Permutations and combinations
in thread Permutations and combinations

your sub swap can be written without $t: 
sub swap {
    my ($i,$j) = @_;
    @a[$i,$j] = @a[$j,$i];
}

[download]

Replies are listed 'Best First'.
Re: Re: RE: Permutations and combinations
by AltBlue (Chaplain) on Apr 19, 2002 at 15:21 UTC
    lol, you bother to look upon this old piece of code :))

    heh, of course that your snippet is good, but a swap routine could be written even simpler: 

    sub swap { reverse @_ }

    [download]
    ... heh, it's not the case for that code thou, as the array is a global one :) cheers.

    --
    AltBlue.

[reply]
[d/l]

In Section Cool Uses for Perl