8 lines
118 B
Raku
Executable File
8 lines
118 B
Raku
Executable File
#!/usr/bin/env perl6
|
|
use v6.c;
|
|
|
|
multi fact(1) { 1 }
|
|
multi fact($x where { $x > 1 }) { $x * fact($x-1) }
|
|
|
|
say fact(5);
|