Challenge 1

1 files changed, 25 insertions, 0 deletions

diff --git a/challenge-340/simon-proctor/raku/ch-1.raku b/challenge-340/simon-proctor/raku/ch-1.raku
new file mode 100755
index 0000000000..af190284e9
--- /dev/null
+++ b/challenge-340/simon-proctor/raku/ch-1.raku
@@ -0,0 +1,25 @@
+#!/usr/bin/env raku
+
+subset IsTrue of Bool where so *;
+
+multi sub MAIN( IsTrue :t(:$test) ) is hidden-from-USAGE {
+    use Test;
+    is strip-dupes('abbaca'), 'ca';
+    is strip-dupes('azxxzy'), 'ay';
+    is strip-dupes('aaaaaaaa'), '';
+    is strip-dupes('aabccba'), 'a';
+    is strip-dupes('abcddcba'), '';
+    done-testing;
+}
+
+multi sub MAIN( Str() $s ) { strip-dupes($s).say; } 
+
+sub strip-dupes( Str $s is copy ) {
+    my $old = $s;
+    repeat {
+        $old = $s;
+        $s ~~ s:g/(.)$0//;
+    } until ( $old ~~ $s );
+    $s;
+}
+