Challenge 2

1 files changed, 20 insertions, 0 deletions

diff --git a/challenge-099/simon-proctor/raku/ch-2.raku b/challenge-099/simon-proctor/raku/ch-2.raku
new file mode 100644
index 0000000000..1f3d1da12d
--- /dev/null
+++ b/challenge-099/simon-proctor/raku/ch-2.raku
@@ -0,0 +1,20 @@
+#!/usr/bin/env raku
+
+use v6;
+
+#| Given two strings see how often you can find sequences of the second string in the first.
+sub MAIN( Str $S, Str $T ) {
+    say sub-count($S.comb, $T.comb);
+}
+
+multi sub sub-count( @ where *.elems == 0, @ where *.elems > 0 ) { 0 }
+multi sub sub-count( @, @ where *.elems == 0 ) { 1 }
+
+multi sub sub-count( @S, @T where @S[0] ~~ @T[0] ) {
+    return sub-count( @S[1..*], @T[1..*] )
+         + sub-count( @S[1..*], @T ); 
+}
+
+multi sub sub-count( @S, @T ) {
+    return sub-count( @S[1..*], @T );
+}