repo.or.cz
/
sepia.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
No need for that to be in an eval.
[sepia.git]
/
t
/
testy.pl
blob
41c27b22af911d3d7b2de48daf8ffcaeb895a5ab
1
sub
fib1
{
2
my
$n
=
shift
;
3
if
(
$n
<
2
) {
4
return
$n
5
}
else
{
6
return
fib1
(
$n
-
1
) +
fib1
(
$n
-
2
)
7
}
8
}
9
10
sub
fib2
{
11
my
$n
=
shift
;
12
die
"asdf
\n
"
if
$n
<=
0
;
13
if
(
$n
<
2
) {
14
return
$n
15
}
else
{
16
return
fib2
(
$n
-
1
) +
fib2
(
$n
-
2
)
17
}
18
}
19
20
sub
rec
21
{
22
my
$n
=
shift
;
23
print
"rec(
$n
)
\n
"
;
24
my
$ret
;
25
if
(
$n
==
0
) {
26
$ret
=
0
;
27
}
else
{
28
$ret
=
rec
(
$n
-
1
);
29
}
30
print
$ret
+
1
,
" = rec(
$n
)
\n
"
;
31
return
$ret
+
1
;
32
}
33
34
sub
crec
35
{
36
print
STDERR
"crec(
@_
)
\n
"
;
37
my
$ret
=
rec
(
@_
);
38
print
STDERR
"
$ret
= crec(
@_
)
\n
"
;
39
return
$ret
;
40
}