diff options
| -rw-r--r-- | challenge-211/luca-ferrari/raku/ch-1.p6 | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/challenge-211/luca-ferrari/raku/ch-1.p6 b/challenge-211/luca-ferrari/raku/ch-1.p6 new file mode 100644 index 0000000000..6c506c4842 --- /dev/null +++ b/challenge-211/luca-ferrari/raku/ch-1.p6 @@ -0,0 +1,22 @@ +#!raku + +# +# Perl Weekly Challenge 211 +# Task 1 +# +# See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-211/> +# + +sub MAIN() { + + my @matrix = [ [4, 3, 2, 1], + [5, 4, 3, 2], + [6, 5, 4, 3], + ]; + + my %diag; + %diag{ @matrix[ $_ ][ $_ ] }++ for 0 ..^ @matrix.elems; + 'False'.say if ( %diag.keys.elems != 1 || %diag{ @matrix[ 0 ][ 0 ] } != @matrix.elems ); + 'True'.say; + +} |