mirror of https://github.com/svaarala/duktape.git
Sami Vaarala
10 years ago
4 changed files with 23 additions and 23 deletions
@ -1,12 +1,12 @@ |
|||
sub test { |
|||
my $i; |
|||
my $i; |
|||
|
|||
sub f { return; } |
|||
sub f { return; } |
|||
|
|||
$i = 0; |
|||
for ($i = 0; $i < 1e8; $i++) { |
|||
f(); |
|||
} |
|||
$i = 0; |
|||
for ($i = 0; $i < 1e8; $i++) { |
|||
f(); |
|||
} |
|||
} |
|||
|
|||
test(); |
|||
|
@ -1,11 +1,11 @@ |
|||
def test() |
|||
def f() return end |
|||
def f() return end |
|||
|
|||
i = 0 |
|||
while i < 1e8 do |
|||
f() |
|||
i += 1 |
|||
end |
|||
i = 0 |
|||
while i < 1e8 do |
|||
f() |
|||
i += 1 |
|||
end |
|||
end |
|||
|
|||
test() |
|||
|
@ -1,9 +1,9 @@ |
|||
sub fib { |
|||
my $n = shift; |
|||
if ($n <= 1) { |
|||
return $n; |
|||
} else { |
|||
return fib($n - 2) + fib($n - 1); |
|||
} |
|||
my $n = shift; |
|||
if ($n <= 1) { |
|||
return $n; |
|||
} else { |
|||
return fib($n - 2) + fib($n - 1); |
|||
} |
|||
} |
|||
print fib(35) . "\n"; |
|||
|
@ -1,9 +1,9 @@ |
|||
def fib(n) |
|||
if n <= 1 then |
|||
return n |
|||
else |
|||
return fib(n - 2) + fib(n - 1) |
|||
end |
|||
if n <= 1 then |
|||
return n |
|||
else |
|||
return fib(n - 2) + fib(n - 1) |
|||
end |
|||
end |
|||
|
|||
print(fib(35).to_s + "\n") |
|||
|
Loading…
Reference in new issue