diff options
| -rw-r--r-- | challenge-194/luca-ferrari/raku/ch-2.p6 | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/challenge-194/luca-ferrari/raku/ch-2.p6 b/challenge-194/luca-ferrari/raku/ch-2.p6 new file mode 100644 index 0000000000..885e45c93f --- /dev/null +++ b/challenge-194/luca-ferrari/raku/ch-2.p6 @@ -0,0 +1,15 @@ +#!raku + +# Perl Weekly Challenge 194 + +sub MAIN( Str $what where { $what ~~ / ^ <[a..z]>+ $ / } ) { + + my $counter = Bag.new: $what.comb; + + "1".say and exit if ( $counter.values.max - $counter.values.min == 1 + && $counter.keys.grep( { $counter{ $_ } == $counter.values.max } ) == 1 ); + + "0".say; + + +} |