From 083dff7c33ac815a5ee0b37ed60796e1cd63d82d Mon Sep 17 00:00:00 2001
From: Simon Proctor <simon.proctor@zoopla.co.uk>
Date: Tue, 18 Aug 2020 09:33:57 +0100
Subject: So... still don't get why it's FNR but this matches the spec

---
 challenge-074/simon-proctor/raku/ch-2.raku | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 challenge-074/simon-proctor/raku/ch-2.raku

diff --git a/challenge-074/simon-proctor/raku/ch-2.raku b/challenge-074/simon-proctor/raku/ch-2.raku
new file mode 100644
index 0000000000..8d9d133b5f
--- /dev/null
+++ b/challenge-074/simon-proctor/raku/ch-2.raku
@@ -0,0 +1,29 @@
+#!/usr/bin/env raku
+
+use v6;
+
+#| Given a string print the FNR character for each sub string
+#| Prints # if there isn't one at a given point
+sub MAIN ( Str $input ) {
+    my @codes = $input.comb;
+    my @in;
+    my @out;
+    
+    for @codes -> $c {
+        @in.push($c);
+        @out.push(fnr(@in));
+    }
+
+    say @out.join("");
+}
+
+sub fnr ( @values ) {
+    my $counts = bag(@values);
+    
+    for @values.reverse -> $v {
+        return $v if $counts{$v} ~~ 1;
+    }
+    
+    return '#';
+}
+
-- 
cgit