Select Code to Download

sub factorial {
    my ($n) = @_;
...
    }
    return $n * factorial($n - 1);
 }

sub factorial {
    my ($n, $accumulator) = @_;
...
    }
    return factorial($n - 1, $n * $accumulator);
}

call factorial ...
    call factorial ...
...
        return
    return
return

call factorial ...
change args and reloop ...
change args and reloop ...
change args and reloop ...
return

sub factorial {
    my ($n, $accumulator) = @_;
...
    $n--;
    goto LOOP;
}