Merge pull request #3523 from pkmnx/branch-for-challenge-99

no. 2, for 99

1 files changed, 45 insertions, 0 deletions

diff --git a/challenge-099/pkmnx/raku/ch-2.raku b/challenge-099/pkmnx/raku/ch-2.raku
new file mode 100755
index 0000000000..17c80f42fe
--- /dev/null
+++ b/challenge-099/pkmnx/raku/ch-2.raku
@@ -0,0 +1,45 @@
+#!/usr/bin/env raku
+
+my $S = "littleit";
+my $T = "lit";
+
+#my $S = "london"; 
+#my $T = "lon";
+
+my $outp = find( $S, $T );
+
+printf( "Input: \$S = \"%s' \$T = '%s'\n", $S, $T );
+printf( "Output: %d\n\n", $outp.elems );
+
+for (^$outp.elems) {
+   printf(" %4s: %s\n", $_ +1, $outp[$_] );
+}
+
+sub find( $S, $T ) { 
+   my $outr = [];
+   unqsubsq( $S, 0, $T, 0, "", $outr );
+   return $outr;
+}
+
+sub unqsubsq( $inp, $i, $mt, $j, $outp, $outr ) {
+   if ( $i > $inp.chars && $j >= $mt.chars ) {
+      $outr.prepend($outp);
+      return;
+   }
+   return if $i > $inp.chars;
+   my ( $iv, $jv, $noutp ) = ( $inp.substr($i,1), $mt.substr($j,1), $outp );
+   if ( $iv.chars > 0 and $iv ~~ $jv ) {
+      unqsubsq( $S, $i+1, $T, $j, $noutp~$iv, $outr );
+      my $nc = "[$iv]";
+      if ( $outp.chars > 0 ) {
+         my $lastChar = ($outp.comb)[$outp.chars -1];
+         if  ( $lastChar ~~ "]" ) {
+            $noutp = $noutp.subst( /\]$/, "" );
+            $nc = "$iv]";
+         }
+      }
+      unqsubsq( $S, $i+1, $T, $j+1, $noutp~$nc, $outr );
+   } else {
+      unqsubsq( $S, $i+1, $T, $j, $noutp~$iv, $outr );
+   }
+}