[sf-perl] a reason to goto
David Alban
extasia at extasia.org
Sat Feb 24 13:09:35 PST 2007
What about making a subroutine out of it, to which you pass $REFLEXIVE
(and maybe $i and $j)? If after calling pick_numeric( ... )
$REFLEXIVE doesn't have the value you want, you recursively call the
subroutine? I know some folks don't like recursion, and if you
anticipate a large number of recursive calls it could be a performance
issue, but I thought I'd ask.
On 2/24/07, Joe Brenner <doom at kzsu.stanford.edu> wrote:
> I found a reason to use a goto!
>
> if ($RANDOMIZE) {
> DO_OVER: do {
> $i = pick_numeric(0, $numb_cards-1);
> $j = pick_numeric(0, $numb_cards-1);
> unless( $REFLEXIVE ) {
> if ($i == $j) {
> goto DO_OVER;
> }
> }
> };
--
Live in a world of your own, but always welcome visitors.
More information about the SanFrancisco-pm
mailing list