Pastebin
API
tools
faq
paste
Login
Sign up
SHARE
TWEET
[Perl 6] Recursion demo: fibonacci
cwchen
Nov 15th, 2017
4,691
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
Huge Bitcoin Profits
CSS | 15 min ago | 0.94 KB
✅ VIP Method
CSS | 16 min ago | 0.94 KB
Untitled
46 min ago | 3.36 KB
Untitled
1 hour ago | 11.60 KB
Untitled
3 hours ago | 11.21 KB
Untitled
5 hours ago | 7.94 KB
Untitled
7 hours ago | 10.06 KB
Untitled
9 hours ago | 17.07 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!