Pastebin
API
tools
faq
paste
Login
Sign up
SHARE
TWEET
[Perl 6] Recursion demo: factorial
cwchen
Nov 15th, 2017
4,813
0
Never
Add comment
Not a member of Pastebin yet?
Sign Up
, it unlocks many cool features!
Perl 6
0.17 KB
| None
|
0
0
raw
download
clone
embed
print
report
sub
fac
(
Int
$n
where
$n
>=
0
)
returns
Int
{
if
$n
==
0
or
$n
==
1
{
return
1
;
}
$n
*
fac
(
$n
-
1
)
;
}
fac
(
5
)
==
120
or
die
"Wrong value"
;
Advertisement
Add Comment
Please,
Sign In
to add comment
Public Pastes
Untitled
18 min ago | 8.23 KB
Yu-Gi-Oh! Forbidden Memories: 100% Run - FAQ
41 min ago | 2.76 KB
Untitled
2 hours ago | 11.29 KB
Untitled
4 hours ago | 8.53 KB
Untitled
4 hours ago | 11.47 KB
Untitled
6 hours ago | 10.81 KB
Untitled
8 hours ago | 12.67 KB
Untitled
9 hours ago | 0.09 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!