diff options
| -rw-r--r-- | challenge-191/luca-ferrari/raku/ch-2.p6 | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/challenge-191/luca-ferrari/raku/ch-2.p6 b/challenge-191/luca-ferrari/raku/ch-2.p6 new file mode 100644 index 0000000000..5090ffa7e6 --- /dev/null +++ b/challenge-191/luca-ferrari/raku/ch-2.p6 @@ -0,0 +1,17 @@ +#!raku + +# Perl Weekly Challenge 191 + +sub MAIN( Int $n where { 0 < $n <= 15 } ) { + + my $cute-counter = 0; + for ( 1 .. $n ).List.permutations -> $current-list { + my $is-cute = True; + for 0 ..^ $current-list.elems -> $i { + $is-cute = False and last if $current-list[ $i ] !%% ( $i + 1 ); + } + + $cute-counter++ if $is-cute; + } + $cute-counter.say; +} |