#074 #1 raku solution

1 files changed, 19 insertions, 0 deletions

diff --git a/challenge-074/feng-chang/raku/ch-1.raku b/challenge-074/feng-chang/raku/ch-1.raku
new file mode 100755
index 0000000000..63316f8ca0
--- /dev/null
+++ b/challenge-074/feng-chang/raku/ch-1.raku
@@ -0,0 +1,19 @@
+#!/bin/env raku
+
+sub me(Int:D @a) {
+    my %cnts;
+    @a.map:{ ++%cnts{ $_ } };
+
+    my Bool $got-one = False;
+    for %cnts.keys -> $k {
+        if %cnts{ $k } > @a.elems / 2 {
+            say $k;
+            $got-one = True;
+            last;
+        }
+    }
+    say -1 unless $got-one; 
+}
+
+me(my Int @ = 1, 2, 2, 3, 2, 4, 2);
+me(my Int @ = 1, 3, 1, 2, 4, 5);