Task 2 done

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;
+
+
+}