Sign in
gerrit
/
java-prettify
/
49c08cec63ad284200dd586f91adb986a72165ec
/
.
/
test
/
prettify
/
PrettifyTest
/
source
/
perl.txt
blob: a9ed5334df91ccf48583be7c571804850dc31344 [
file
] [
log
] [
blame
]
#!/usr/bin/perl
use
strict
;
use
integer
;
# the nth element of the fibonacci series
# param n - an int >= 0
# return an int >= 0
sub
fib
(
$
)
{
my
$n
=
shift
,
$a
=
1
,
$b
=
1
;
(
$a
,
$b
)
=
(
$a
+
$b
,
$a
)
until
(--
$n
<
0
);
return $a
;
}
print
fib
(
10
);