diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2020-08-03 10:41:17 +0200 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2020-08-03 10:41:17 +0200 |
| commit | bdd5b4ab7e011ba74961b6c2dcfef88334f97aeb (patch) | |
| tree | 49e3696665ebb9c1f845e236a48da5ebd0656db2 | |
| parent | 8c2f5fd585d45d45a93bea8031ad0a30c9534218 (diff) | |
| download | perlweeklychallenge-club-bdd5b4ab7e011ba74961b6c2dcfef88334f97aeb.tar.gz perlweeklychallenge-club-bdd5b4ab7e011ba74961b6c2dcfef88334f97aeb.tar.bz2 perlweeklychallenge-club-bdd5b4ab7e011ba74961b6c2dcfef88334f97aeb.zip | |
Task 1 done.
| -rw-r--r-- | challenge-072/luca-ferrari/raku/ch-1.p6 | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/challenge-072/luca-ferrari/raku/ch-1.p6 b/challenge-072/luca-ferrari/raku/ch-1.p6 new file mode 100644 index 0000000000..2aa3b661b4 --- /dev/null +++ b/challenge-072/luca-ferrari/raku/ch-1.p6 @@ -0,0 +1,8 @@ +#!raku + + +sub MAIN( Int $N where { 0 < $N <= 10 } ) { + my $factorial = [*] 1 .. $N; + my $zeros = $factorial ~~ / 0+ $ /; + "$N ! = $factorial and has { $zeros.chars } trailing zeros".say; +} |