[Perl 6] Recursion demo: factorial

Perl 6 |

0 B

None

0 👍

0 👎

Raw Download Clone Embed Print View

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";

Comments

01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎
01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎

Pasted

[Perl 6] Recursion demo: factorial

Comments