Pastebin
API
tools
faq
paste
Login
Sign up
SHARE
TWEET
[Perl 6] Recursion demo: fibonacci
cwchen
Nov 15th, 2017
4,688
0
Never
Add comment
Not a member of Pastebin yet?
Sign Up
, it unlocks many cool features!
Perl 6
0.21 KB
| None
|
0
0
raw
download
clone
embed
print
report
sub
fib
(
Int
$n
where
$n
>=
0
)
returns
Int
{
if
$n
==
0
{
return
0
;
}
elsif
$n
==
1
{
return
1
;
}
fib
(
$n
-
1
)
+
fib
(
$n
-
2
)
;
}
fib
(
10
)
==
55
or
die
"Wrong number"
;
Advertisement
Add Comment
Please,
Sign In
to add comment
Public Pastes
Untitled
57 min ago | 20.31 KB
✅ VIP Method
CSS | 58 min ago | 0.94 KB
✅ Swapzone Exploit
CSS | 59 min ago | 0.94 KB
Untitled
4 hours ago | 6.74 KB
Untitled
6 hours ago | 8.95 KB
Untitled
8 hours ago | 11.18 KB
Untitled
10 hours ago | 11.28 KB
Untitled
12 hours ago | 9.95 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the
Cookies Policy
.
OK, I Understand
Not a member of Pastebin yet?
Sign Up
, it unlocks many cool features!