blob: 7ae5f2e98e2299b9da6784b1379f0a6988e3be28 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
sub a { return &b($_[0]); }
sub b { return &c($_[0]); }
sub c { return &d($_[0]); }
sub d { return &e($_[0]); }
sub e { return &f($_[0]); }
sub f { return &g($_[0], 2); }
sub g { return &h($_[0], $_[1], 3); }
sub h { return &i($_[0], $_[1], $_[2], 4); }
sub i { return &j($_[0], $_[1], $_[2], $_[3], 5); }
sub j { return $_[0] + $_[1] + $_[2] + $_[3] + $_[4]; }
$n = 100000;
while ($n > 0) { $x = &a($n); $n--; }
print "$x\n";
|
