From 3fa86e7eb1946c9a51fc70c2a5585f8bf9e449bb Mon Sep 17 00:00:00 2001
From: Alexander Pankoff <ccntrq@screenri.de>
Date: Mon, 1 Feb 2021 17:33:34 +0100
Subject: add perl solution for wk-098 ch-1.pl

---
 challenge-098/alexander-pankoff/perl/ch-1.pl | 33 ++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100755 challenge-098/alexander-pankoff/perl/ch-1.pl

diff --git a/challenge-098/alexander-pankoff/perl/ch-1.pl b/challenge-098/alexander-pankoff/perl/ch-1.pl
new file mode 100755
index 0000000000..19294205aa
--- /dev/null
+++ b/challenge-098/alexander-pankoff/perl/ch-1.pl
@@ -0,0 +1,33 @@
+#!/usr/bin/env perl
+use v5.20;
+use utf8;
+use strict;
+use warnings;
+use feature qw(say signatures);
+no warnings 'experimental::signatures';
+
+{
+    my ( $FILE, @numbers ) = @ARGV;
+    say readN( $FILE, $_ ) for @numbers;
+}
+
+sub readN ( $file, $chars ) {
+    state $filehandles = {};
+
+    my $fh;
+    if ( $filehandles->{$file} ) {
+        $fh = $filehandles->{$file};
+    }
+    else {
+        open( $fh, '<', $file );
+        $fh->binmode( ':utf8' );
+        $filehandles->{$file} = $fh;
+    }
+
+    my $out;
+    while ( $chars-- && !$fh->eof ) {
+        $out .= $fh->getc;
+    }
+
+    return $out;
+}
-- 
cgit 


From 725689b7a528f30d1923cbd49c11a440d19576cd Mon Sep 17 00:00:00 2001
From: Alexander Pankoff <ccntrq@screenri.de>
Date: Mon, 1 Feb 2021 18:05:23 +0100
Subject: add perl solution for wk-098 ch-2.pl

---
 challenge-098/alexander-pankoff/perl/ch-2.pl | 42 ++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100755 challenge-098/alexander-pankoff/perl/ch-2.pl

diff --git a/challenge-098/alexander-pankoff/perl/ch-2.pl b/challenge-098/alexander-pankoff/perl/ch-2.pl
new file mode 100755
index 0000000000..6031dfaebf
--- /dev/null
+++ b/challenge-098/alexander-pankoff/perl/ch-2.pl
@@ -0,0 +1,42 @@
+#!/usr/bin/env perl
+use v5.20;
+use utf8;
+use strict;
+use warnings;
+use feature qw(say signatures);
+no warnings 'experimental::signatures';
+
+use List::Util qw(first);
+
+{
+    my @N = @ARGV;
+    my $N = pop @N;
+
+    say join( " ", '@N:', @N );
+    say join( " ", '$N:', $N );
+    my ( $index, @new_N ) = search_insert_position( $N, @N );
+
+    my $human_index = $index + 1;
+
+    say @new_N == @N
+      ? "$human_index since the target $N is in the array at the index $human_index."
+      : "$human_index since the target $N is missing and should be placed at the index $human_index."
+}
+
+sub search_insert_position ( $target, @xs ) {
+    my $index = first_index( sub($x) { $x >= $target }, @xs );
+
+    if ( !$index ) {
+        return ( $#xs + 1, @xs, $target );
+    }
+    elsif ( $xs[$index] && $xs[$index] == $target ) {
+        return ( $index, @xs );
+    }
+    else {
+        return ( $index, @xs[ 0 .. $index - 1 ], $target, @xs[ $index .. $#xs ] );
+    }
+}
+
+sub first_index ( $cond, @xs ) {
+    first { $cond->( $xs[$_] ) } 0 .. $#xs;
+}
-- 
cgit 


From a14e8a2d21fb0d242c3bea7bf62a1d9467f55726 Mon Sep 17 00:00:00 2001
From: boblied <boblied@gmail.com>
Date: Tue, 2 Feb 2021 13:04:33 -0600
Subject: Update for 98

---
 challenge-098/bob-lied/README | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/challenge-098/bob-lied/README b/challenge-098/bob-lied/README
index be9398e9a3..07a4221a5d 100644
--- a/challenge-098/bob-lied/README
+++ b/challenge-098/bob-lied/README
@@ -1,3 +1,3 @@
-Solutions to weekly challenge 83 by Bob Lied.
+Solutions to weekly challenge 98 by Bob Lied.
 
-https://perlweeklychallenge.org/blog/perl-weekly-challenge-083/
+https://perlweeklychallenge.org/blog/perl-weekly-challenge-098/
-- 
cgit 


From f0d39197a36ffbebc63565199f9227f440524291 Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Mon, 8 Feb 2021 02:09:59 -0500
Subject: 1st commit on 099_raku

---
 challenge-099/stuart-little/raku/ch-1.p6 | 11 +++++++++++
 challenge-099/stuart-little/raku/ch-2.p6 | 12 ++++++++++++
 2 files changed, 23 insertions(+)
 create mode 100755 challenge-099/stuart-little/raku/ch-1.p6
 create mode 100755 challenge-099/stuart-little/raku/ch-2.p6

diff --git a/challenge-099/stuart-little/raku/ch-1.p6 b/challenge-099/stuart-little/raku/ch-1.p6
new file mode 100755
index 0000000000..65b1cbe7d2
--- /dev/null
+++ b/challenge-099/stuart-little/raku/ch-1.p6
@@ -0,0 +1,11 @@
+#!/usr/bin/env perl6
+use v6;
+
+# run <script> <string> <singly-quoted pattern>
+# escape literal '*' and '?' in the pattern with backslashes, as in '\*' or '\?'
+
+my $rx = '^' ~ (S:g/<!after \\>\?/./ with (S:g/<!after \\>\*/.*/ with @*ARGS[1])) ~ '$';
+
+say (@*ARGS[0] ~~ /<$rx>/).Bool.Int;
+
+	    
diff --git a/challenge-099/stuart-little/raku/ch-2.p6 b/challenge-099/stuart-little/raku/ch-2.p6
new file mode 100755
index 0000000000..3070704077
--- /dev/null
+++ b/challenge-099/stuart-little/raku/ch-2.p6
@@ -0,0 +1,12 @@
+#!/usr/bin/env perl6
+use v6;
+
+# run <script> <string1> <string2>
+
+sub counts(@ambient, @small)  {
+    (! @small) && return 1;
+    (! @ambient) && return 0;    
+    return (0..^@ambient.elems).grep({ @ambient.[$_] === @small.head }).map({ @ambient[$_^..^@ambient.elems] }).map({ counts($_,@small[1..*]) }).sum
+}
+
+say counts(@*ARGS[0].comb, @*ARGS[1].comb)
-- 
cgit 


From bee7a6a2b0a9cd5580515a8aeeb10a06cdd5e558 Mon Sep 17 00:00:00 2001
From: "Jaldhar H. Vyas" <jaldhar@braincells.com>
Date: Mon, 8 Feb 2021 02:56:48 -0500
Subject: Challenge 98 by Jaldhar H. Vyas

---
 challenge-098/jaldhar-h-vyas/blog.txt       |  1 +
 challenge-098/jaldhar-h-vyas/input.txt      |  1 +
 challenge-098/jaldhar-h-vyas/perl/ch-1.pl   | 22 ++++++++++++++++++++++
 challenge-098/jaldhar-h-vyas/perl/ch-2.pl   | 29 +++++++++++++++++++++++++++++
 challenge-098/jaldhar-h-vyas/raku/ch-1.raku | 21 +++++++++++++++++++++
 challenge-098/jaldhar-h-vyas/raku/ch-2.raku | 19 +++++++++++++++++++
 6 files changed, 93 insertions(+)
 create mode 100644 challenge-098/jaldhar-h-vyas/blog.txt
 create mode 100644 challenge-098/jaldhar-h-vyas/input.txt
 create mode 100755 challenge-098/jaldhar-h-vyas/perl/ch-1.pl
 create mode 100755 challenge-098/jaldhar-h-vyas/perl/ch-2.pl
 create mode 100755 challenge-098/jaldhar-h-vyas/raku/ch-1.raku
 create mode 100755 challenge-098/jaldhar-h-vyas/raku/ch-2.raku

diff --git a/challenge-098/jaldhar-h-vyas/blog.txt b/challenge-098/jaldhar-h-vyas/blog.txt
new file mode 100644
index 0000000000..88437d4900
--- /dev/null
+++ b/challenge-098/jaldhar-h-vyas/blog.txt
@@ -0,0 +1 @@
+https://www.braincells.com/perl/2021/02/perl_weekly_challenge_week_98.html
diff --git a/challenge-098/jaldhar-h-vyas/input.txt b/challenge-098/jaldhar-h-vyas/input.txt
new file mode 100644
index 0000000000..6a537b5b36
--- /dev/null
+++ b/challenge-098/jaldhar-h-vyas/input.txt
@@ -0,0 +1 @@
+1234567890
\ No newline at end of file
diff --git a/challenge-098/jaldhar-h-vyas/perl/ch-1.pl b/challenge-098/jaldhar-h-vyas/perl/ch-1.pl
new file mode 100755
index 0000000000..ab82a8e5e7
--- /dev/null
+++ b/challenge-098/jaldhar-h-vyas/perl/ch-1.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+use 5.020;
+use warnings;
+use English qw / -no_match_vars /;
+
+sub readN {
+    my ($filename, $number) = @_;
+    my $buffer;
+    state $fh = undef;
+
+    if (!defined $fh) {
+        open $fh, '<', $filename or die "$OS_ERROR\n";
+    }
+
+    read $fh, $buffer, $number or die "$OS_ERROR\n";
+
+    return $buffer;
+}
+
+say readN('input.txt', 4);
+say readN('input.txt', 4);
+say readN('input.txt', 4);
diff --git a/challenge-098/jaldhar-h-vyas/perl/ch-2.pl b/challenge-098/jaldhar-h-vyas/perl/ch-2.pl
new file mode 100755
index 0000000000..d2785f19d7
--- /dev/null
+++ b/challenge-098/jaldhar-h-vyas/perl/ch-2.pl
@@ -0,0 +1,29 @@
+#!/usr/bin/perl
+use 5.020;
+use warnings;
+use English qw / -no_match_vars /;
+
+sub usage {
+    print <<"-USAGE-";
+  $PROGRAM_NAME [<N> ...]
+  
+    [<N> ...]    a series of atleast 2 distinct integers. The last element will be used as a target to search in the previous elements.
+-USAGE-
+    exit 0;
+}
+
+if (scalar @ARGV < 2) {
+    usage();
+}
+
+my $N = pop @ARGV;
+my $pos = scalar @ARGV;
+
+for my $i (0 .. scalar @ARGV - 1) {
+    if ($ARGV[$i] >= $N) {
+        $pos = $i;
+        last;
+    }
+}
+
+say $pos;
\ No newline at end of file
diff --git a/challenge-098/jaldhar-h-vyas/raku/ch-1.raku b/challenge-098/jaldhar-h-vyas/raku/ch-1.raku
new file mode 100755
index 0000000000..9db5d0fa5c
--- /dev/null
+++ b/challenge-098/jaldhar-h-vyas/raku/ch-1.raku
@@ -0,0 +1,21 @@
+#!/usr/bin/raku
+
+sub readN(Str $filename, Int $number) {
+    state IO::Handle $fn = Nil;
+
+    try {
+        unless $fn {
+            $fn = $filename.IO.open(:r);
+        }
+
+        return $fn.readchars($number);
+    }
+
+    die $!;
+}
+
+sub MAIN() {
+    say readN('input.txt', 4);
+    say readN('input.txt', 4);
+    say readN('input.txt', 4);
+}
\ No newline at end of file
diff --git a/challenge-098/jaldhar-h-vyas/raku/ch-2.raku b/challenge-098/jaldhar-h-vyas/raku/ch-2.raku
new file mode 100755
index 0000000000..b96823fe58
--- /dev/null
+++ b/challenge-098/jaldhar-h-vyas/raku/ch-2.raku
@@ -0,0 +1,19 @@
+#!/usr/bin/raku
+
+sub MAIN(
+    *@N #= a series of atleast 2 distinct integers. The last element will be
+        #= used as a target to search in the previous elements.
+    where {@_.elems > 1 }
+) {
+    my $N = @N.pop;
+    my $pos = @N.elems;
+
+    for 0 ..^ @N.elems -> $i {
+        if @N[$i] >= $N {
+            $pos = $i;
+            last;
+        }
+    }
+
+    say $pos;
+}
\ No newline at end of file
-- 
cgit 


From 641e3a346cbf54c6bb4fe7bc76d674d9845856bc Mon Sep 17 00:00:00 2001
From: Jonas Berlin <jonas.berlin@nitorcreations.com>
Date: Mon, 8 Feb 2021 10:37:56 +0200
Subject: ch-1

---
 challenge-099/xkr47/README          |  5 +++
 challenge-099/xkr47/rust/Cargo.lock |  5 +++
 challenge-099/xkr47/rust/Cargo.toml | 11 +++++
 challenge-099/xkr47/rust/ch-1.rs    | 82 +++++++++++++++++++++++++++++++++++++
 4 files changed, 103 insertions(+)
 create mode 100644 challenge-099/xkr47/rust/Cargo.lock
 create mode 100644 challenge-099/xkr47/rust/Cargo.toml
 create mode 100644 challenge-099/xkr47/rust/ch-1.rs

diff --git a/challenge-099/xkr47/README b/challenge-099/xkr47/README
index e4495cdc38..66625a1485 100644
--- a/challenge-099/xkr47/README
+++ b/challenge-099/xkr47/README
@@ -4,3 +4,8 @@ Install Rust from e.g. https://rustup.rs/ and run the Rust solutions like follow
 
 cd rust
 cargo run --release --bin ch-1 -- [<arguments>]
+
+And to run the unit tests (if any):
+
+cd rust
+cargo test
diff --git a/challenge-099/xkr47/rust/Cargo.lock b/challenge-099/xkr47/rust/Cargo.lock
new file mode 100644
index 0000000000..9ad4f2381d
--- /dev/null
+++ b/challenge-099/xkr47/rust/Cargo.lock
@@ -0,0 +1,5 @@
+# This file is automatically @generated by Cargo.
+# It is not intended for manual editing.
+[[package]]
+name = "pwd-099"
+version = "0.1.0"
diff --git a/challenge-099/xkr47/rust/Cargo.toml b/challenge-099/xkr47/rust/Cargo.toml
new file mode 100644
index 0000000000..7372c0c975
--- /dev/null
+++ b/challenge-099/xkr47/rust/Cargo.toml
@@ -0,0 +1,11 @@
+[package]
+name = "pwd-099"
+version = "0.1.0"
+authors = ["Jonas Berlin <xkr47@outerspace.dyndns.org>"]
+edition = "2018"
+
+[dependencies]
+
+[[bin]]
+name = "ch-1"
+path = "ch-1.rs"
diff --git a/challenge-099/xkr47/rust/ch-1.rs b/challenge-099/xkr47/rust/ch-1.rs
new file mode 100644
index 0000000000..913903605e
--- /dev/null
+++ b/challenge-099/xkr47/rust/ch-1.rs
@@ -0,0 +1,82 @@
+#![allow(dead_code)]
+
+use std::env;
+
+fn main() {
+    let mut args = env::args().skip(1).take(2).collect::<Vec<_>>();
+    let (text, pattern) = (args.remove(0), args.remove(0));
+
+    let is_match = do_match(&text, &pattern);
+
+    println!("{}", if is_match { 1 } else { 0 });
+}
+
+fn do_match(text: &str, pattern: &str) -> bool {
+    if pattern.is_empty() {
+        text.is_empty()
+    } else {
+        match pattern.chars().next().unwrap() {
+            '*' =>
+                do_match(text, &pattern[1..]) ||
+                (!text.is_empty() && do_match(&text[1..], pattern)),
+            '?' =>
+                !text.is_empty() && do_match(&text[1..], &pattern[1..]),
+            ch =>
+                text.chars().next() == Some(ch) && do_match(&text[1..], &pattern[1..])
+        }
+    }
+}
+
+#[cfg(test)]
+mod tests {
+    use crate::*;
+
+    // from assignment
+
+    #[test]
+    fn do_test1() {
+        assert_eq!(do_match("abcde", "a*e"), true);
+    }
+
+    #[test]
+    fn do_test2() {
+        assert_eq!(do_match("abcde", "a*d"), false);
+    }
+
+    #[test]
+    fn do_test3() {
+        assert_eq!(do_match("abcde", "?b*d"), false);
+    }
+
+    #[test]
+    fn do_test4() {
+        assert_eq!(do_match("abcde", "a*c?e"), true);
+    }
+
+    // additional
+
+    #[test]
+    fn do_test10() {
+        assert_eq!(do_match("abc", "a*c?"), false);
+    }
+
+    #[test]
+    fn do_test11() {
+        assert_eq!(do_match("abc", "a*c*"), true);
+    }
+
+    #[test]
+    fn do_test12() {
+        assert_eq!(do_match("abc", "**"), true);
+    }
+
+    #[test]
+    fn do_test13() {
+        assert_eq!(do_match("", "**"), true);
+    }
+
+    #[test]
+    fn do_test14() {
+        assert_eq!(do_match("a", "*?"), true);
+    }
+}
-- 
cgit 


From f9eb9c82b88e04c28a9323021c8e02ff968cdfe9 Mon Sep 17 00:00:00 2001
From: Simon Green <mail@simon.green>
Date: Mon, 8 Feb 2021 18:56:09 +1000
Subject: sgreen solution to challenge 099

---
 challenge-099/sgreen/README.md    |  4 ++--
 challenge-099/sgreen/blog.txt     |  1 +
 challenge-099/sgreen/perl/ch-1.pl | 27 +++++++++++++++++++++++++++
 challenge-099/sgreen/perl/ch-2.pl | 39 +++++++++++++++++++++++++++++++++++++++
 4 files changed, 69 insertions(+), 2 deletions(-)
 create mode 100644 challenge-099/sgreen/blog.txt
 create mode 100755 challenge-099/sgreen/perl/ch-1.pl
 create mode 100755 challenge-099/sgreen/perl/ch-2.pl

diff --git a/challenge-099/sgreen/README.md b/challenge-099/sgreen/README.md
index 78a02d34a3..5aabfe64f0 100644
--- a/challenge-099/sgreen/README.md
+++ b/challenge-099/sgreen/README.md
@@ -1,3 +1,3 @@
-# The Weekly Challenge 098
+# The Weekly Challenge 099
 
-Solution by Simon Green. [Blog](https://dev.to/simongreennet/weekly-challenge-098-235h)
+Solution by Simon Green. [Blog](https://dev.to/simongreennet/weekly-challenge-099-ncp)
diff --git a/challenge-099/sgreen/blog.txt b/challenge-099/sgreen/blog.txt
new file mode 100644
index 0000000000..c6de69cdeb
--- /dev/null
+++ b/challenge-099/sgreen/blog.txt
@@ -0,0 +1 @@
+https://dev.to/simongreennet/weekly-challenge-099-ncp
diff --git a/challenge-099/sgreen/perl/ch-1.pl b/challenge-099/sgreen/perl/ch-1.pl
new file mode 100755
index 0000000000..5d87a192ba
--- /dev/null
+++ b/challenge-099/sgreen/perl/ch-1.pl
@@ -0,0 +1,27 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use feature 'say';
+
+sub main {
+    my ( $string, $pattern ) = @_;
+
+    # Sanity check
+    die "You must enter a string\n"  unless defined $string;
+    die "You must enter a pattern\n" unless defined $pattern;
+
+    # Escape regexp meta characters, except ? and *
+    $pattern =~ s/([\{\}\[\]\(\)\^\$\.\|\+\\])/\\$1/g;
+
+    # Replace ? and *
+    $pattern =~ s/\?/./g;
+    $pattern =~ s/\*/.+/g;
+
+    # Ensure entire match
+    $pattern = "^$pattern\$";
+
+    say $string =~ $pattern ? 1 : 0;
+}
+
+main(@ARGV);
diff --git a/challenge-099/sgreen/perl/ch-2.pl b/challenge-099/sgreen/perl/ch-2.pl
new file mode 100755
index 0000000000..c4848785ce
--- /dev/null
+++ b/challenge-099/sgreen/perl/ch-2.pl
@@ -0,0 +1,39 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use feature 'say';
+
+sub _find_string {
+    my ( $string, $substring ) = @_;
+    my ( $first,  $rest )      = ( $substring =~ /^(.)(.*)$/ );
+    my $matches = 0;
+
+    foreach my $i ( 0 .. length($string) ) {
+        if ( substr( $string, $i, 1 ) eq $first ) {
+            if ( length($rest) ) {
+                # Call the function again with the remaining characters
+                $matches += _find_string( substr( $string, $i + 1 ), $rest );
+            }
+            else {
+                # We have found a match!
+                $matches++;
+            }
+        }
+    }
+
+    return $matches;
+}
+
+sub main {
+    my ( $string, $substring ) = @_;
+
+    # Sanity check
+    die "You must enter a string\n"     unless defined $string;
+    die "You must enter a sub-string\n" unless defined $substring;
+
+    say _find_string( $string, $substring );
+}
+
+main(@ARGV);
+
-- 
cgit 


From 11146a92205a60d4c4e1ce36741f4ac11c66853d Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 8 Feb 2021 10:05:58 +0100
Subject: Task 1 done.

---
 challenge-099/luca-ferrari/raku/ch-1.p6 | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 challenge-099/luca-ferrari/raku/ch-1.p6

diff --git a/challenge-099/luca-ferrari/raku/ch-1.p6 b/challenge-099/luca-ferrari/raku/ch-1.p6
new file mode 100644
index 0000000000..00fa7c8c0e
--- /dev/null
+++ b/challenge-099/luca-ferrari/raku/ch-1.p6
@@ -0,0 +1,12 @@
+#!raku
+
+sub MAIN( Str $S, Str $P ) {
+    say "String [$S] with pattern [$P]";
+
+    # substitute every ? to match a single char
+    # and every * to match a stream of chars
+    # and add anchors
+    my $regexp = '^' ~ $P.subst( '*', '.*' ).subst( '?', '.' ) ~ '$';
+    { say 1; exit; } if $S ~~ / <$regexp> /;
+    say 0;
+}
-- 
cgit 


From 386d1f3ed654a7928cd7173bcf07e5e392a9fbcf Mon Sep 17 00:00:00 2001
From: Simon Proctor <simon.proctor@gmail.com>
Date: Mon, 8 Feb 2021 12:23:16 +0000
Subject: Challenge 1 done

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

diff --git a/challenge-099/simon-proctor/raku/ch-1.raku b/challenge-099/simon-proctor/raku/ch-1.raku
new file mode 100644
index 0000000000..5c5b47b161
--- /dev/null
+++ b/challenge-099/simon-proctor/raku/ch-1.raku
@@ -0,0 +1,28 @@
+#!/usr/bin/env raku
+
+use v6;
+
+#| Given a string and a simple pattern see if the string matches the pattern 
+multi sub MAIN(
+    Str $S, #= String to check
+    Str $P, #={ Pattern to match : 
+? - Matches a single character : 
+* - Matches any number of characters
+}
+) {
+    my $regex = generate-regex( $P );
+    say $S.match($regex) ?? 1 !! 0;
+}
+
+sub generate-regex( $P ) {
+    my @chars = [ '^', |$P.comb.map(
+		      -> $c {
+			  given $c {
+			      when "*" { ".*" };
+			      when "?" { "." };
+			      default { "'$c'" };
+			  }
+		      }
+		  ), '$' ];
+    return rx/<{@chars.join(" ")}>/;		  
+}
-- 
cgit 


From 4fab0d2297a2e9dc0872f537f0e084550bd1a03b Mon Sep 17 00:00:00 2001
From: Simon Proctor <simon.proctor@gmail.com>
Date: Mon, 8 Feb 2021 12:44:36 +0000
Subject: Challenge 2

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

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 );
+}
-- 
cgit 


From 8d64a6ffe62342407c756f086b98244e43d4b92d Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 8 Feb 2021 14:40:48 +0100
Subject: Task 2 done not properly working.

---
 challenge-099/luca-ferrari/raku/ch-2.p6 | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 challenge-099/luca-ferrari/raku/ch-2.p6

diff --git a/challenge-099/luca-ferrari/raku/ch-2.p6 b/challenge-099/luca-ferrari/raku/ch-2.p6
new file mode 100644
index 0000000000..386d2fdfd4
--- /dev/null
+++ b/challenge-099/luca-ferrari/raku/ch-2.p6
@@ -0,0 +1,18 @@
+#!raku
+
+sub MAIN( Str $S, Str $T ) {
+    say "String [$S] with pattern [$T]";
+
+    my $counter = 0;
+
+    my $regexp = $T.comb.join( '.*' );
+
+    # overlapping search
+    given $S {
+        for m:exhaustive/ <$regexp> / -> $match {
+            $counter++;
+        }
+    }
+
+    say $counter;
+}
-- 
cgit 


From 0664b30ef62a48fa5d2106d641eb33cb3b5c717f Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 8 Feb 2021 14:50:10 +0100
Subject: Remove debug output

---
 challenge-099/luca-ferrari/raku/ch-1.p6 | 2 --
 challenge-099/luca-ferrari/raku/ch-2.p6 | 3 ---
 2 files changed, 5 deletions(-)

diff --git a/challenge-099/luca-ferrari/raku/ch-1.p6 b/challenge-099/luca-ferrari/raku/ch-1.p6
index 00fa7c8c0e..570a3b0c66 100644
--- a/challenge-099/luca-ferrari/raku/ch-1.p6
+++ b/challenge-099/luca-ferrari/raku/ch-1.p6
@@ -1,8 +1,6 @@
 #!raku
 
 sub MAIN( Str $S, Str $P ) {
-    say "String [$S] with pattern [$P]";
-
     # substitute every ? to match a single char
     # and every * to match a stream of chars
     # and add anchors
diff --git a/challenge-099/luca-ferrari/raku/ch-2.p6 b/challenge-099/luca-ferrari/raku/ch-2.p6
index 386d2fdfd4..a25a297500 100644
--- a/challenge-099/luca-ferrari/raku/ch-2.p6
+++ b/challenge-099/luca-ferrari/raku/ch-2.p6
@@ -1,10 +1,7 @@
 #!raku
 
 sub MAIN( Str $S, Str $T ) {
-    say "String [$S] with pattern [$T]";
-
     my $counter = 0;
-
     my $regexp = $T.comb.join( '.*' );
 
     # overlapping search
-- 
cgit 


From 6dfe12bed3720406ca147a0c719299739c41a0cf Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 8 Feb 2021 14:50:50 +0100
Subject: Blog references

---
 challenge-099/luca-ferrari/blog-1.txt | 1 +
 challenge-099/luca-ferrari/blog-2.txt | 1 +
 2 files changed, 2 insertions(+)
 create mode 100644 challenge-099/luca-ferrari/blog-1.txt
 create mode 100644 challenge-099/luca-ferrari/blog-2.txt

diff --git a/challenge-099/luca-ferrari/blog-1.txt b/challenge-099/luca-ferrari/blog-1.txt
new file mode 100644
index 0000000000..57e7046809
--- /dev/null
+++ b/challenge-099/luca-ferrari/blog-1.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2021/02/08/PerlWeeklyChallenge99.html#task1
diff --git a/challenge-099/luca-ferrari/blog-2.txt b/challenge-099/luca-ferrari/blog-2.txt
new file mode 100644
index 0000000000..8247db63d4
--- /dev/null
+++ b/challenge-099/luca-ferrari/blog-2.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2021/02/08/PerlWeeklyChallenge99.html#task2
-- 
cgit 


From e0a08dc6aac020ba84e5f6b2be937173229396a0 Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Mon, 8 Feb 2021 09:58:03 -0500
Subject: 1st commit on 099_perl

---
 challenge-099/stuart-little/perl/ch-1.pl | 11 +++++++++++
 challenge-099/stuart-little/perl/ch-2.pl | 29 +++++++++++++++++++++++++++++
 2 files changed, 40 insertions(+)
 create mode 100755 challenge-099/stuart-little/perl/ch-1.pl
 create mode 100755 challenge-099/stuart-little/perl/ch-2.pl

diff --git a/challenge-099/stuart-little/perl/ch-1.pl b/challenge-099/stuart-little/perl/ch-1.pl
new file mode 100755
index 0000000000..81188aef92
--- /dev/null
+++ b/challenge-099/stuart-little/perl/ch-1.pl
@@ -0,0 +1,11 @@
+#!/usr/bin/perl
+use warnings;
+use v5.12;
+
+# run <script> <string> <pattern>
+
+use feature qw(signatures);
+no warnings qw(experimental::signatures);
+
+my $pat = '^' . (($ARGV[1] =~ s/\*/.*/gr) =~ s/\?/./gr) . '$';
+say my $res = (($ARGV[0] =~ /$pat/) ? (1) : (0));
diff --git a/challenge-099/stuart-little/perl/ch-2.pl b/challenge-099/stuart-little/perl/ch-2.pl
new file mode 100755
index 0000000000..a806719776
--- /dev/null
+++ b/challenge-099/stuart-little/perl/ch-2.pl
@@ -0,0 +1,29 @@
+#!/usr/bin/perl
+use warnings;
+use v5.12;
+
+# run <script> <string1> <string2>
+
+use feature qw(signatures);
+no warnings qw(experimental::signatures);
+
+sub occ($ar1, $ar2) {
+    (scalar @{$ar2} == 0) && return 1;
+    (scalar @{$ar1} == 0) && return 0;
+    
+    my @short_ar2=$ar2->@[1..scalar @{$ar2}-1];
+    my $sum=0;
+    my @arrs =
+	map {my @a = $ar1->@[$_+1..scalar @{$ar1}-1]; \@a}
+    grep {$ar1->[$_] eq $ar2->[0]}
+    keys(@{$ar1});
+
+    for (@arrs) {
+	$sum += occ($_,\@short_ar2);
+    }
+    return $sum;    
+}
+
+my ($ar1,$ar2) = map {my @a = split(//,$_); \@a} @ARGV[0,1];
+
+say occ($ar1,$ar2);
-- 
cgit 


From c1563b79408590d253d2840f5781bde3f15ca449 Mon Sep 17 00:00:00 2001
From: Roger Bell_West <roger@firedrake.org>
Date: Mon, 8 Feb 2021 16:20:03 +0000
Subject: Solutions for challenge #099

---
 challenge-099/roger-bell-west/perl/ch-1.pl   | 23 +++++++++++++
 challenge-099/roger-bell-west/perl/ch-2.pl   | 47 ++++++++++++++++++++++++++
 challenge-099/roger-bell-west/python/ch-1.py | 37 +++++++++++++++++++++
 challenge-099/roger-bell-west/python/ch-2.py | 39 ++++++++++++++++++++++
 challenge-099/roger-bell-west/raku/ch-1.p6   | 20 ++++++++++++
 challenge-099/roger-bell-west/raku/ch-2.p6   | 45 +++++++++++++++++++++++++
 challenge-099/roger-bell-west/ruby/ch-1.rb   | 33 +++++++++++++++++++
 challenge-099/roger-bell-west/ruby/ch-2.rb   | 48 +++++++++++++++++++++++++++
 challenge-099/roger-bell-west/rust/ch-1.rs   | 47 ++++++++++++++++++++++++++
 challenge-099/roger-bell-west/rust/ch-2.rs   | 49 ++++++++++++++++++++++++++++
 10 files changed, 388 insertions(+)
 create mode 100755 challenge-099/roger-bell-west/perl/ch-1.pl
 create mode 100755 challenge-099/roger-bell-west/perl/ch-2.pl
 create mode 100755 challenge-099/roger-bell-west/python/ch-1.py
 create mode 100755 challenge-099/roger-bell-west/python/ch-2.py
 create mode 100755 challenge-099/roger-bell-west/raku/ch-1.p6
 create mode 100755 challenge-099/roger-bell-west/raku/ch-2.p6
 create mode 100755 challenge-099/roger-bell-west/ruby/ch-1.rb
 create mode 100755 challenge-099/roger-bell-west/ruby/ch-2.rb
 create mode 100755 challenge-099/roger-bell-west/rust/ch-1.rs
 create mode 100755 challenge-099/roger-bell-west/rust/ch-2.rs

diff --git a/challenge-099/roger-bell-west/perl/ch-1.pl b/challenge-099/roger-bell-west/perl/ch-1.pl
new file mode 100755
index 0000000000..e509782c9b
--- /dev/null
+++ b/challenge-099/roger-bell-west/perl/ch-1.pl
@@ -0,0 +1,23 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More tests => 4;
+
+is(pm('abcde','a*e'),1,'example 1');
+is(pm('abcde','a*d'),0,'example 2');
+is(pm('abcde','?b*d'),0,'example 3');
+is(pm('abcde','a*c?e'),1,'example 4');
+
+sub pm {
+  my $text=shift;
+  my $match=shift;
+  (my $re=$match) =~ s/\?/./g;
+  $re =~ s/\*/.*/g;
+  $re='^'.$re.'$';
+  if ($text =~ /$re/) {
+    return 1;
+  }
+  return 0;
+}
diff --git a/challenge-099/roger-bell-west/perl/ch-2.pl b/challenge-099/roger-bell-west/perl/ch-2.pl
new file mode 100755
index 0000000000..0097d4dcb9
--- /dev/null
+++ b/challenge-099/roger-bell-west/perl/ch-2.pl
@@ -0,0 +1,47 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More tests => 2;
+
+is(us('littleit','lit'),5,'example 1');
+is(us('london','lon'),3,'example 2');
+
+use List::Util qw(sum);
+
+sub us {
+  my $text=shift;
+  my $match=shift;
+  my %s;
+  {
+    my $i=0;
+    foreach my $c (split '',$text) {
+      push @{$s{$c}},$i;
+      $i++;
+    }
+  }
+  my @j;
+  foreach my $c (split '',$match) {
+    if (exists $s{$c}) {
+      push @j,$s{$c};
+    } else {
+      return 0;
+    }
+  }
+  my @o=(1) x scalar @{$j[0]};
+  foreach my $m (1..$#j) {
+    my @n;
+    foreach my $bi (0..$#{$j[$m]}) {
+      my $t=0;
+      foreach my $ai (0..$#{$j[$m-1]}) {
+        if ($j[$m-1][$ai] < $j[$m][$bi]) {
+          $t+=$o[$ai];
+        }
+      }
+      push @n,$t;
+    }
+    @o=@n;
+  }
+  return sum(@o);
+}
diff --git a/challenge-099/roger-bell-west/python/ch-1.py b/challenge-099/roger-bell-west/python/ch-1.py
new file mode 100755
index 0000000000..8a3140e45e
--- /dev/null
+++ b/challenge-099/roger-bell-west/python/ch-1.py
@@ -0,0 +1,37 @@
+#! /usr/bin/python3
+
+import re
+
+def pm(text,match):
+    rl=list()
+    rl.append("^")
+    for c in match:
+        if c == '?':
+            rl.append(".")
+        elif c == '*':
+            rl.append(".*")
+        else:
+            rl.append(c)
+    rl.append("$")
+    rls=''.join(rl)
+    if re.match(rls,text):
+        return 1
+    return 0
+    
+import unittest
+
+class TestPm(unittest.TestCase):
+
+    def test_ex1(self):
+        self.assertEqual(pm('abcde','a*e'),1,'example 1')
+
+    def test_ex2(self):
+        self.assertEqual(pm('abcde','a*d'),0,'example 2')
+
+    def test_ex3(self):
+        self.assertEqual(pm('abcde','?b*d'),0,'example 3')
+
+    def test_ex4(self):
+        self.assertEqual(pm('abcde','a*c?e'),1,'example 4')
+
+unittest.main()
diff --git a/challenge-099/roger-bell-west/python/ch-2.py b/challenge-099/roger-bell-west/python/ch-2.py
new file mode 100755
index 0000000000..2acef1cb02
--- /dev/null
+++ b/challenge-099/roger-bell-west/python/ch-2.py
@@ -0,0 +1,39 @@
+#! /usr/bin/python3
+
+from collections import defaultdict
+
+def us(text,match):
+    s=defaultdict(list)
+    for i,c in enumerate(text):
+        s[c].append(i)
+    j=list()
+    for c in match:
+        if c in s:
+            j.append(s[c])
+        else:
+            return 0
+    o=list();
+    for i in range(len(j[0])):
+        o.append(1)
+    for m in range(1,len(j)):
+        n=list()
+        for bi in range(len(j[m])):
+            t=0
+            for ai in range(len(j[m-1])):
+                if j[m-1][ai] < j[m][bi]:
+                    t += o[ai]
+            n.append(t)
+        o=n
+    return sum(o)
+
+import unittest
+
+class TestUs(unittest.TestCase):
+
+    def test_ex1(self):
+        self.assertEqual(us('littleit','lit'),5,'example 1')
+
+    def test_ex2(self):
+        self.assertEqual(us('london','lon'),3,'example 2')
+
+unittest.main()
diff --git a/challenge-099/roger-bell-west/raku/ch-1.p6 b/challenge-099/roger-bell-west/raku/ch-1.p6
new file mode 100755
index 0000000000..5f49b4248b
--- /dev/null
+++ b/challenge-099/roger-bell-west/raku/ch-1.p6
@@ -0,0 +1,20 @@
+#! /usr/bin/perl6
+
+use Test;
+
+plan 4;
+
+is(pm('abcde','a*e'),1,'example 1');
+is(pm('abcde','a*d'),0,'example 2');
+is(pm('abcde','?b*d'),0,'example 3');
+is(pm('abcde','a*c?e'),1,'example 4');
+
+sub pm($text,$match) {
+  (my $re=$match) ~~ s:g/\?/./;
+  $re ~~ s:g/\*/.*/;
+  $re='^' ~ $re ~ '$';
+  if ($text ~~ /<$re>/) {
+    return 1;
+  }
+  return 0;
+}
diff --git a/challenge-099/roger-bell-west/raku/ch-2.p6 b/challenge-099/roger-bell-west/raku/ch-2.p6
new file mode 100755
index 0000000000..ed5478ce07
--- /dev/null
+++ b/challenge-099/roger-bell-west/raku/ch-2.p6
@@ -0,0 +1,45 @@
+#! /usr/bin/perl6
+
+use Test;
+
+plan 2;
+
+is(us('littleit','lit'),5,'example 1');
+is(us('london','lon'),3,'example 2');
+
+sub us($text,$match) {
+  my %s;
+  {
+    my $i=0;
+    for $text.comb -> $c {
+      unless %s{$c} {
+        %s{$c}=Array.new;
+      }
+      push %s{$c},$i;
+      $i++;
+    }
+  }
+  my @j;
+  for $match.comb -> $c {
+    if (%s{$c}:exists) {
+      push @j,%s{$c};
+    } else {
+      return 0;
+    }
+  }
+  my @o=(1) xx @j[0].elems;
+  for 1..@j.elems-1 -> $m {
+    my @n;
+    for 0..@j[$m].elems-1 -> $bi {
+      my $t=0;
+      for 0..@j[$m-1].elems-1 -> $ai {
+        if (@j[$m-1][$ai] < @j[$m][$bi]) {
+          $t+=@o[$ai];
+        }
+      }
+      push @n,$t;
+    }
+    @o=@n;
+  }
+  return sum(@o);
+}
diff --git a/challenge-099/roger-bell-west/ruby/ch-1.rb b/challenge-099/roger-bell-west/ruby/ch-1.rb
new file mode 100755
index 0000000000..7f3e75e2d0
--- /dev/null
+++ b/challenge-099/roger-bell-west/ruby/ch-1.rb
@@ -0,0 +1,33 @@
+#! /usr/bin/ruby
+
+def pm(text,match)
+  re='^' + match + '$'
+  re=re.gsub(/\?/,'.')
+  re=re.gsub(/\*/,'.*')
+  if text =~ Regexp.new(re) then
+    return 1
+  end
+  return 0
+end
+
+require 'test/unit'
+
+class TestPm < Test::Unit::TestCase
+
+  def test_ex1
+    assert_equal(1,pm('abcde','a*e'))
+  end
+
+  def test_ex2
+    assert_equal(0,pm('abcde','a*d'))
+  end
+
+  def test_ex3
+    assert_equal(0,pm('abcde','?b*d'))
+  end
+
+  def test_ex4
+    assert_equal(1,pm('abcde','a*c?e'))
+  end
+
+end
diff --git a/challenge-099/roger-bell-west/ruby/ch-2.rb b/challenge-099/roger-bell-west/ruby/ch-2.rb
new file mode 100755
index 0000000000..056e59ba25
--- /dev/null
+++ b/challenge-099/roger-bell-west/ruby/ch-2.rb
@@ -0,0 +1,48 @@
+#! /usr/bin/ruby
+
+def us(text,match)
+  s=Hash.new
+  text.split(//).each_with_index do |c,i|
+    unless s[c] then
+      s[c]=Array.new
+    end
+    s[c].push(i)
+  end
+  j=Array.new;
+  match.split(//).each do |c|
+    if s.has_key?(c) then
+      j.push(s[c])
+    else
+      return 0
+    end
+  end
+  o=Array.new([1] * j[0].length)
+  1.upto(j.length-1) do |m|
+    n=Array.new
+    0.upto(j[m].length-1) do |bi|
+      t=0
+      0.upto(j[m-1].length-1) do |ai|
+        if j[m-1][ai] < j[m][bi] then
+          t += o[ai]
+        end
+      end
+      n.push(t)
+    end
+    o=n
+  end
+  return o.sum
+end
+
+require 'test/unit'
+
+class TestUs < Test::Unit::TestCase
+
+  def test_ex1
+    assert_equal(5,us('littleit','lit'))
+  end
+
+  def test_ex2
+    assert_equal(3,us('london','lon'))
+  end
+
+end
diff --git a/challenge-099/roger-bell-west/rust/ch-1.rs b/challenge-099/roger-bell-west/rust/ch-1.rs
new file mode 100755
index 0000000000..d3fe36b15c
--- /dev/null
+++ b/challenge-099/roger-bell-west/rust/ch-1.rs
@@ -0,0 +1,47 @@
+use regex::Regex;
+
+// Cargo.toml needs:
+// [dependencies]
+// regex = "1"
+
+#[test]
+fn test_ex1() {
+    assert_eq!(pm("abcde","a*e"),1);
+}
+
+#[test]
+fn test_ex2() {
+    assert_eq!(pm("abcde","a*d"),0);
+}
+
+#[test]
+fn test_ex3() {
+    assert_eq!(pm("abcde","?b*d"),0);
+}
+
+#[test]
+fn test_ex4() {
+    assert_eq!(pm("abcde","a*c?e"),1,"example 4");
+}
+
+fn pm(text: &str,mat: &str) -> u8 {
+    let mut rl: Vec<char>=vec![];
+    rl.push('^');
+    for c in mat.chars() {
+        if c == '?' {
+            rl.push('.');
+        } else if c == '*' {
+            rl.push('.');
+            rl.push('*');
+        } else {
+            rl.push(c);
+        }
+    }
+    rl.push('$');
+    let rs=rl.iter().collect::<String>();
+    let rx: Regex=Regex::new(&rs).unwrap();
+    if rx.is_match(&text) {
+        return 1;
+    }
+    return 0;
+}
diff --git a/challenge-099/roger-bell-west/rust/ch-2.rs b/challenge-099/roger-bell-west/rust/ch-2.rs
new file mode 100755
index 0000000000..3b6d74a105
--- /dev/null
+++ b/challenge-099/roger-bell-west/rust/ch-2.rs
@@ -0,0 +1,49 @@
+#! /bin/sh
+//usr/bin/env rustc --test $0 -o ${0}x && ./${0}x; rm -f ${0}x ; exit
+
+use std::collections::HashMap;
+
+#[test]
+fn test_ex1() {
+    assert_eq!(us("littleit","lit"),5);
+}
+
+#[test]
+fn test_ex2() {
+    assert_eq!(us("london","lon"),3);
+}
+
+fn us(text: &str,mat: &str) -> usize {
+    let mut s: HashMap<char,Vec<usize>>=HashMap::new();
+    for (i,c) in text.chars().enumerate() {
+        let mut sc: Vec<usize>=vec![];
+        if s.contains_key(&c) {
+            sc=s.get(&c).unwrap().to_vec();
+        }
+        sc.push(i);
+        s.insert(c,sc);
+    }
+    let mut j: Vec<Vec<usize>>=vec![];
+    for c in mat.chars() {
+        if s.contains_key(&c) {
+            j.push(s.get(&c).unwrap().to_vec());
+        } else {
+            return 0;
+        }
+    }
+    let mut o: Vec<usize>=vec![1; j[0].len()];
+    for m in 1..j.len() {
+        let mut n: Vec<usize>=vec![];
+        for bi in 0..j[m].len() {
+            let mut t: usize=0;
+            for ai in 0..j[m-1].len() {
+                if j[m-1][ai] < j[m][bi] {
+                    t += o[ai];
+                }
+            }
+            n.push(t);
+        }
+        o=n;
+    }
+    return o.iter().sum();
+}
-- 
cgit 


From 7b1862d50b4abd8a86e876e4ebcb4152e53237e7 Mon Sep 17 00:00:00 2001
From: "E. Choroba" <choroba@matfyz.cz>
Date: Mon, 8 Feb 2021 18:35:16 +0100
Subject: Add solution to 099 Pattern Match & Unique Subsequence by E. Choroba

Two different solutions are given for the Pattern Match: One
transforms the pattern into a regex, while the other really implements
the searching for the pattern character by character.

Similarly, there are two subroutines in the Unique Subsequence: One
just returns the final count of solutions, the other one enumarates
all the valid positions in the string.
---
 challenge-099/e-choroba/perl/ch-1a.pl | 42 +++++++++++++++++++++++++++
 challenge-099/e-choroba/perl/ch-1b.pl | 22 +++++++++++++++
 challenge-099/e-choroba/perl/ch-2.pl  | 53 +++++++++++++++++++++++++++++++++++
 3 files changed, 117 insertions(+)
 create mode 100755 challenge-099/e-choroba/perl/ch-1a.pl
 create mode 100755 challenge-099/e-choroba/perl/ch-1b.pl
 create mode 100755 challenge-099/e-choroba/perl/ch-2.pl

diff --git a/challenge-099/e-choroba/perl/ch-1a.pl b/challenge-099/e-choroba/perl/ch-1a.pl
new file mode 100755
index 0000000000..ffd3e6075e
--- /dev/null
+++ b/challenge-099/e-choroba/perl/ch-1a.pl
@@ -0,0 +1,42 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+
+sub pattern_match {
+    my ($string, $pattern) = @_;
+    return 1 if "" eq $string . $pattern;
+
+    my ($string_first,  $string_rest)  = $string  =~ /(.)(.*)/;
+    my ($pattern_first, $pattern_rest) = $pattern =~ /(.)(.*)/;
+
+    my $action = {
+        '?' => sub {
+            return 0 unless length $pattern;
+            return pattern_match($string_rest, $pattern_rest)
+        },
+        '*' => sub {
+            for my $pos (1 .. length $string) {
+                return 1
+                    if pattern_match(substr($string, $pos), $pattern_rest);
+            }
+            return 0
+        },
+    }->{ $pattern_first // "" } || sub {
+        return 0 if ($pattern_first // "") ne ($string_first // "");
+
+        return pattern_match($string_rest, $pattern_rest)
+    };
+    return $action->()
+}
+
+use Test::More tests => 8;
+
+is pattern_match('abcde', 'a*e'),   1, 'Example 1';
+is pattern_match('abcde', 'a*d'),   0, 'Example 2';
+is pattern_match('abcde', '?b*d'),  0, 'Example 3';
+is pattern_match('abcde', 'a*c?e'), 1, 'Example 4';
+
+is pattern_match('abcde', 'a*'),    1, 'Trailing star';
+is pattern_match('abcde', '*de'),   1, 'Leading star';
+is pattern_match('abcde', 'a*c*e'), 1, 'Two stars';
+is pattern_match('(a!)b{c}$1d', '(?!)b{?}$1*'), 1, 'Random garbage';
diff --git a/challenge-099/e-choroba/perl/ch-1b.pl b/challenge-099/e-choroba/perl/ch-1b.pl
new file mode 100755
index 0000000000..46a0adc6e0
--- /dev/null
+++ b/challenge-099/e-choroba/perl/ch-1b.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+
+sub pattern_match {
+    my ($string, $pattern) = @_;
+    $pattern = quotemeta $pattern;
+    s/\\\?/./g, s/\\\*/.*/g for $pattern;
+    return $string =~ /^$pattern$/ ? 1 : 0
+}
+
+use Test::More tests => 8;
+
+is pattern_match('abcde', 'a*e'),   1, 'Example 1';
+is pattern_match('abcde', 'a*d'),   0, 'Example 2';
+is pattern_match('abcde', '?b*d'),  0, 'Example 3';
+is pattern_match('abcde', 'a*c?e'), 1, 'Example 4';
+
+is pattern_match('abcde', 'a*'),  1, 'Trailing star';
+is pattern_match('abcde', '*de'), 1, 'Leading star';
+is pattern_match('abcde', 'a*c*e'), 1, 'Two stars';
+is pattern_match('(a!)b{c}$1d', '(?!)b{?}$1*'), 1, 'No injection';
diff --git a/challenge-099/e-choroba/perl/ch-2.pl b/challenge-099/e-choroba/perl/ch-2.pl
new file mode 100755
index 0000000000..d32a396c8d
--- /dev/null
+++ b/challenge-099/e-choroba/perl/ch-2.pl
@@ -0,0 +1,53 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+
+# Count the subsequences.
+sub unique_subsequence {
+    my ($string, $subsequence) = @_;
+    if (1 == length $subsequence) {
+        my $count = () = $string =~ /\Q$subsequence/g;
+        return $count
+    }
+    my $char = substr $subsequence, 0, 1, "";
+    my ($count, $pos) = (0, 0);
+    $count += unique_subsequence(substr($string, $pos++), $subsequence)
+        while -1 != ($pos = index $string, $char, $pos);
+    return $count
+}
+
+# Return all the possible positions that match the subsequence.
+sub show_unique_subsequence {
+    my ($string, $subsequence) = @_;
+    my @solutions;
+    for my $sub_pos (0 .. length($subsequence) - 1) {
+        my $sub_char = substr $subsequence, $sub_pos, 1;
+        my $str_pos = 0;
+        my @partial;
+        push @partial, $str_pos++
+            while -1 != ($str_pos = index $string, $sub_char, $str_pos);
+        @solutions = map {
+            my $solution = $_;
+            map { $_ > $solution->[-1] ? [@$solution, $_] : () } @partial;
+        } @solutions;
+        @solutions = map [$_], @partial unless @solutions;  # First character.
+    }
+    return \@solutions
+}
+
+use Test::More tests => 6;
+
+is unique_subsequence('littleit', 'lit'), 5, 'Example 1';
+is unique_subsequence('london', 'lon'), 3, 'Example 2';
+is unique_subsequence('london', 'par'), 0, 'Zero';
+
+
+is_deeply show_unique_subsequence('littleit', 'lit'),
+          [[0, 1, 2], [0, 1, 3], [0, 1, 7], [0, 6, 7], [4, 6, 7]],
+          'Show Example 1';
+
+is_deeply show_unique_subsequence('london', 'lon'),
+          [[0, 1, 2], [0, 1, 5], [0, 4, 5]],
+          'Show Example 2';
+
+is_deeply show_unique_subsequence('london', 'par'), [], 'Show Zero';
-- 
cgit 


From 4a66ef205ebf87b228bc9c0f50562e54fff765fd Mon Sep 17 00:00:00 2001
From: Luis Mochan <mochan@fis.unam.mx>
Date: Mon, 8 Feb 2021 12:22:50 -0600
Subject: Solutions to ch. 99

---
 challenge-099/wlmb/blog.txt     |  1 +
 challenge-099/wlmb/perl/ch-1.pl | 18 ++++++++++++++++++
 challenge-099/wlmb/perl/ch-2.pl | 34 ++++++++++++++++++++++++++++++++++
 3 files changed, 53 insertions(+)
 create mode 100644 challenge-099/wlmb/blog.txt
 create mode 100755 challenge-099/wlmb/perl/ch-1.pl
 create mode 100755 challenge-099/wlmb/perl/ch-2.pl

diff --git a/challenge-099/wlmb/blog.txt b/challenge-099/wlmb/blog.txt
new file mode 100644
index 0000000000..a44a320332
--- /dev/null
+++ b/challenge-099/wlmb/blog.txt
@@ -0,0 +1 @@
+https://wlmb.github.io/2021/02/08/PWC099/
diff --git a/challenge-099/wlmb/perl/ch-1.pl b/challenge-099/wlmb/perl/ch-1.pl
new file mode 100755
index 0000000000..8dc4f05eba
--- /dev/null
+++ b/challenge-099/wlmb/perl/ch-1.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/env perl
+# Perl weekly challenge 099
+# Task 1: Pattern match
+#
+# See https://wlmb.github.io/2021/02/08/PWC099/#task-1-pattern-match
+  use warnings;
+  use strict;
+  use v5.12;
+
+  my ($S, $P0)=@ARGV;
+  my $P=quotemeta $P0; # quote anything suspicious
+  $P=~s/^\\\*/.*/; # Replace originally unquoted asterisks
+  $P=~s/([^\\])\\\*/$1.*/g;
+  $P=~s/\\\\\*/\*/g; #Replace originally quoted asterisks
+  $P=~s/^\\\?/./; # Replace originally unquoted question marks
+  $P=~s/([^\\])\\\?/$1./g;
+  $P=~s/\\\\\?/\?/g; #Replace originally quoted question marks
+  say "Input: \$S=\"$S\" \$P=\"$P0\"\nOutput: ", $S=~/^$P$/?1:0;
diff --git a/challenge-099/wlmb/perl/ch-2.pl b/challenge-099/wlmb/perl/ch-2.pl
new file mode 100755
index 0000000000..5161cbcf61
--- /dev/null
+++ b/challenge-099/wlmb/perl/ch-2.pl
@@ -0,0 +1,34 @@
+#!/usr/bin/env perl
+# Perl weekly challenge 099
+# Task 2: unique subsequence
+#
+# See https://wlmb.github.io/2021/02/08/PWC099/#task-2-unique-subsequence
+
+
+  use warnings;
+  use strict;
+  use v5.12;
+  use Memoize;
+
+  memoize qw(sequences);
+  my ($S, $T)=@ARGV;
+  my @sequences=sequences($S, $T);
+  say "Input: \$S=\"$S\", \$T=\"$T\"";
+  say "Output: ", scalar @sequences;
+  say "$_: $sequences[$_-1]" for (1..@sequences);
+  sub sequences { #Recursively find all matches of $S to $T
+      my ($S, $T)=@_;
+      return ("$S") if $T=~/^$/; #nothing more to match
+      return () if $S=~/^$/; #end of string without match
+      my ($firstS, $firstT)=map {escape(substr $_,0,1)} $S, $T;
+      my ($restS, $restT)=map {substr $_,1} $S, $T;
+      my @sequences=();
+      @sequences=(map {"[$firstS]$_"} sequences($restS, $restT)) if $firstS eq $firstT;
+      @sequences=(@sequences, map {"$firstS$_"} sequences($restS, $T));
+      return @sequences;
+  }
+  sub escape { #Escape brackets
+      my $string=shift;
+      $string=~s/([][])/\\$1/g;
+      return $string;
+  }
-- 
cgit 


From 784c121a999bee64a5c1ccf7b7ee4f9d04eb7c04 Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Mon, 8 Feb 2021 17:01:57 -0500
Subject: 1st commit on 099_haskell

---
 challenge-099/stuart-little/haskell/ch-1.hs | 27 +++++++++++++++++++++++++++
 challenge-099/stuart-little/haskell/ch-2.hs | 10 ++++++++++
 2 files changed, 37 insertions(+)
 create mode 100755 challenge-099/stuart-little/haskell/ch-1.hs
 create mode 100755 challenge-099/stuart-little/haskell/ch-2.hs

diff --git a/challenge-099/stuart-little/haskell/ch-1.hs b/challenge-099/stuart-little/haskell/ch-1.hs
new file mode 100755
index 0000000000..fece6c8aec
--- /dev/null
+++ b/challenge-099/stuart-little/haskell/ch-1.hs
@@ -0,0 +1,27 @@
+#!/usr/bin/env runghc
+
+{-
+run <script> <string> <singly-quoted pattern>
+
+- you can escape literal '?' and '*', as in '\?' and '\*'
+
+- you can also escape literal backslashes: '\\' registers as a single literal backslash, no matter what it's followed by
+
+any other unescaped instance of the backslash is meaningless: '\x' is just 'x'
+-}
+
+import Data.List (tails)
+import Data.List.Extra (notNull)
+import System.Environment (getArgs)
+
+mtch :: String -> String -> Bool
+mtch "" "" = True
+mtch pat ss |(null pat || null ss) && notNull (pat ++ ss) = False
+mtch ('\\':c:ps) (d:ss) = (c==d) && (mtch ps ss)
+mtch ('?':ps) (d:ss) = (mtch ps ss)
+mtch ('*':ps) ss = any id $ map (mtch ps) $ tails ss
+mtch (c:ps) (d:ss) = (c==d) && (mtch ps ss)
+
+main = do
+  (str:pat:_) <- getArgs
+  print $ fromEnum $ mtch pat str
diff --git a/challenge-099/stuart-little/haskell/ch-2.hs b/challenge-099/stuart-little/haskell/ch-2.hs
new file mode 100755
index 0000000000..b19e4ef877
--- /dev/null
+++ b/challenge-099/stuart-little/haskell/ch-2.hs
@@ -0,0 +1,10 @@
+#!/usr/bin/env runghc
+
+-- run <script> <string1> <string2>
+
+import Combinatorics (tuples)
+import System.Environment (getArgs)
+
+main = do
+  (s1:s2:_) <- getArgs
+  print $ length $ filter (s2==) $ tuples (length s2) s1
-- 
cgit 


From bb5fd690cb9731063fd2d59ba79e328166852eb4 Mon Sep 17 00:00:00 2001
From: Flavio Poletti <flavio@polettix.it>
Date: Tue, 9 Feb 2021 00:05:18 +0100
Subject: Add polettix's solutions to PWC099

---
 challenge-099/polettix/blog.txt     |  1 +
 challenge-099/polettix/blog1.txt    |  1 +
 challenge-099/polettix/perl/ch-1.pl | 16 ++++++++++++++++
 challenge-099/polettix/perl/ch-2.pl | 31 +++++++++++++++++++++++++++++++
 4 files changed, 49 insertions(+)
 create mode 100644 challenge-099/polettix/blog.txt
 create mode 100644 challenge-099/polettix/blog1.txt
 create mode 100644 challenge-099/polettix/perl/ch-1.pl
 create mode 100644 challenge-099/polettix/perl/ch-2.pl

diff --git a/challenge-099/polettix/blog.txt b/challenge-099/polettix/blog.txt
new file mode 100644
index 0000000000..a44ed25ad8
--- /dev/null
+++ b/challenge-099/polettix/blog.txt
@@ -0,0 +1 @@
+https://github.polettix.it/ETOOBUSY/2021/02/10/pwc099-pattern-match/
diff --git a/challenge-099/polettix/blog1.txt b/challenge-099/polettix/blog1.txt
new file mode 100644
index 0000000000..28712cb9a1
--- /dev/null
+++ b/challenge-099/polettix/blog1.txt
@@ -0,0 +1 @@
+https://github.polettix.it/ETOOBUSY/2021/02/11/pwc099-unique-subsequence/
diff --git a/challenge-099/polettix/perl/ch-1.pl b/challenge-099/polettix/perl/ch-1.pl
new file mode 100644
index 0000000000..8a298e5b33
--- /dev/null
+++ b/challenge-099/polettix/perl/ch-1.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/env perl
+use 5.024;
+use warnings;
+use experimental qw< postderef signatures >;
+no warnings qw< experimental::postderef experimental::signatures >;
+
+sub pattern_match ($S, $T) {
+   $T = join '',
+      map { $_ eq '*' ? '.*' : $_ eq '?' ? '.' : quotemeta($_) }
+      split m{([*?])}mxs, $T;
+   return $S =~ m{\A$T\z}mxs ? 1 : 0;
+}
+
+my $string = shift // 'abcde';
+my $pattern = shift // 'a*e';
+say pattern_match($string, $pattern);
diff --git a/challenge-099/polettix/perl/ch-2.pl b/challenge-099/polettix/perl/ch-2.pl
new file mode 100644
index 0000000000..97e816815d
--- /dev/null
+++ b/challenge-099/polettix/perl/ch-2.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/env perl
+use 5.024;
+use warnings;
+use experimental qw< postderef signatures >;
+no warnings qw< experimental::postderef experimental::signatures >;
+
+sub unique_subsequence ($S, $T) {
+   my $lenT = length $T or return 1;
+   my $lenS = length $S or return 0;
+   my $first = substr $T, 0, 1, '';
+   --$lenT;
+   my $s = 0; # sum
+   my $p = 0; # search start position
+   while (($p < $lenS) && (my $i = index $S, $first, $p) >= $p) {
+      $s += unique_subsequence(substr($S, $i), $T) if $lenS - $i >= $lenT;
+      $p = $i + 1;
+   }
+   return $s;
+}
+
+sub unique_subsequence_rx ($S, $T) {
+   $T = join '.*', split m{}mxs, $T;
+   my $count = 0;
+   1 while $S =~ m{$T(?{++$count})(?!)};
+   return $count;
+}
+
+my $string = shift // 'littleit';
+my $subsequence = shift // 'lit';
+say unique_subsequence($string, $subsequence);
+say unique_subsequence_rx($string, $subsequence);
-- 
cgit 


From 41e95424b444033b982d3f94eb08959365c77113 Mon Sep 17 00:00:00 2001
From: Mark Anderson <mark@frontrangerunner.com>
Date: Mon, 8 Feb 2021 16:08:24 -0700
Subject: Challenge 99 Solutions (Raku)

---
 challenge-099/mark-anderson/raku/ch-1.raku | 15 +++++++++++++++
 challenge-099/mark-anderson/raku/ch-2.raku | 11 +++++++++++
 2 files changed, 26 insertions(+)
 create mode 100644 challenge-099/mark-anderson/raku/ch-1.raku
 create mode 100644 challenge-099/mark-anderson/raku/ch-2.raku

diff --git a/challenge-099/mark-anderson/raku/ch-1.raku b/challenge-099/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..9bd7d0c63e
--- /dev/null
+++ b/challenge-099/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,15 @@
+#!/usr/bin/env raku
+use Test;
+plan 4;
+
+is pattern-match("abcde", "a*e"),   1;
+is pattern-match("abcde", "a*d"),   0;
+is pattern-match("abcde", "?b*d"),  0;
+is pattern-match("abcde", "a*c?e"), 1;
+
+sub pattern-match($S, $P is copy) 
+{
+    $P ~~ s:g/ \? / .  /;
+    $P ~~ s:g/ \* / .* /;
+    so $S ~~ / ^ <$P> $ / andthen .Int;
+}
diff --git a/challenge-099/mark-anderson/raku/ch-2.raku b/challenge-099/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..f1ace13893
--- /dev/null
+++ b/challenge-099/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,11 @@
+#!/usr/bin/env raku
+use Test;
+plan 2;
+
+is unique-subsequence("littleit", "lit"), 5;
+is unique-subsequence("london",   "lon"), 3;
+
+sub unique-subsequence($S, $T) 
+{
+    +($S ~~ m:ex/<{ $T.comb.join(" .* ") }>/);
+}
-- 
cgit 


From c10a5192b3a6a07b127e10bee1bab2c51d8a2ede Mon Sep 17 00:00:00 2001
From: "Gustavo L. de M. Chaves" <gustavo@cpqd.com.br>
Date: Mon, 8 Feb 2021 22:30:11 -0300
Subject: Add Gustavo Chaves's solutions to challenge 099

---
 challenge-099/gustavo-chaves/perl/ch-1.pl | 42 +++++++++++++++++++++++++++++++
 challenge-099/gustavo-chaves/perl/ch-2.pl | 28 +++++++++++++++++++++
 2 files changed, 70 insertions(+)
 create mode 100755 challenge-099/gustavo-chaves/perl/ch-1.pl
 create mode 100755 challenge-099/gustavo-chaves/perl/ch-2.pl

diff --git a/challenge-099/gustavo-chaves/perl/ch-1.pl b/challenge-099/gustavo-chaves/perl/ch-1.pl
new file mode 100755
index 0000000000..a11b6d7390
--- /dev/null
+++ b/challenge-099/gustavo-chaves/perl/ch-1.pl
@@ -0,0 +1,42 @@
+#!/usr/bin/env perl
+
+# https://perlweeklychallenge.org/blog/perl-weekly-challenge-099/
+# TASK #1 › Pattern Match
+
+use 5.030;
+use warnings;
+
+my ($S, $P) = @ARGV;
+
+say "Pattern: '$P'";
+
+say match($P, $S) ? "Matches: " : "Does not match: ", "'$S'";
+
+sub match {
+    my ($pattern, $string) = @_;
+
+    my ($s, $p) = (0, 0);
+
+  CHAR:
+    while ($p < length($pattern) && $s < length($string)) {
+        my $c = substr($pattern, $p, 1);
+
+        if ($c eq '?') {
+            ++$s;
+            ++$p;
+        } elsif ($c eq '*') {
+            my $patterntail = substr($pattern, $p+1);
+            for (my $i=$s; $i < length($string); ++$i) {
+                return 1 if match($patterntail, substr($string, $i));
+            }
+            return 0;
+        } elsif ($c eq substr($string, $s, 1)) {
+            ++$s;
+            ++$p;
+        } else {
+            return 0;
+        }
+    }
+
+    return $p == length($pattern) && $s == length($string);
+}
diff --git a/challenge-099/gustavo-chaves/perl/ch-2.pl b/challenge-099/gustavo-chaves/perl/ch-2.pl
new file mode 100755
index 0000000000..25f36ff228
--- /dev/null
+++ b/challenge-099/gustavo-chaves/perl/ch-2.pl
@@ -0,0 +1,28 @@
+#!/usr/bin/env perl
+
+# https://perlweeklychallenge.org/blog/perl-weekly-challenge-099/
+# TASK #2 › Unique Subsequence
+
+use 5.030;
+use warnings;
+
+my ($S, $T) = @ARGV;
+
+sub matches {
+    my ($s, $t) = @_;
+
+    return 1 if $t == length($T);
+
+    my $matches = 0;
+
+    my $c = substr($T, $t, 1);
+    foreach my $i ($s .. length($S)-1) {
+        if ($c eq substr($S, $i, 1)) {
+            $matches += matches($i+1, $t+1);
+        }
+    }
+
+    return $matches;
+}
+
+say matches(0, 0);
-- 
cgit 


From c7396711c480ba2efa859ef6095fe15907bb2742 Mon Sep 17 00:00:00 2001
From: Mark Anderson <mark@frontrangerunner.com>
Date: Mon, 8 Feb 2021 23:33:50 -0700
Subject: Challenge 99 Solutions (Raku)

---
 challenge-099/mark-anderson/raku/ch-1.raku | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/challenge-099/mark-anderson/raku/ch-1.raku b/challenge-099/mark-anderson/raku/ch-1.raku
index 9bd7d0c63e..4d8687f9da 100644
--- a/challenge-099/mark-anderson/raku/ch-1.raku
+++ b/challenge-099/mark-anderson/raku/ch-1.raku
@@ -9,7 +9,6 @@ is pattern-match("abcde", "a*c?e"), 1;
 
 sub pattern-match($S, $P is copy) 
 {
-    $P ~~ s:g/ \? / .  /;
-    $P ~~ s:g/ \* / .* /;
+    $P .= trans: ["?", "*"] => [".", ".*"];
     so $S ~~ / ^ <$P> $ / andthen .Int;
 }
-- 
cgit 


From 6cc073b77bf35e6cd268b8f99b3c3b9a89ca8b60 Mon Sep 17 00:00:00 2001
From: Mark Anderson <mark@frontrangerunner.com>
Date: Mon, 8 Feb 2021 23:39:07 -0700
Subject: Challenge 99 Solutions (Raku)

---
 challenge-099/mark-anderson/raku/ch-2.raku | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-099/mark-anderson/raku/ch-2.raku b/challenge-099/mark-anderson/raku/ch-2.raku
index f1ace13893..71c1285506 100644
--- a/challenge-099/mark-anderson/raku/ch-2.raku
+++ b/challenge-099/mark-anderson/raku/ch-2.raku
@@ -7,5 +7,5 @@ is unique-subsequence("london",   "lon"), 3;
 
 sub unique-subsequence($S, $T) 
 {
-    +($S ~~ m:ex/<{ $T.comb.join(" .* ") }>/);
+    +($S ~~ m:ex/ <{ $T.comb.join(" .* ") }> /);
 }
-- 
cgit 


From 6946490cca746d4d684e7c8b281339513ef1895a Mon Sep 17 00:00:00 2001
From: Mark Anderson <mark@frontrangerunner.com>
Date: Mon, 8 Feb 2021 23:46:15 -0700
Subject: Challenge 99 Solutions (Raku)

---
 challenge-099/mark-anderson/raku/ch-1.raku | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/challenge-099/mark-anderson/raku/ch-1.raku b/challenge-099/mark-anderson/raku/ch-1.raku
index 4d8687f9da..8f580eac2f 100644
--- a/challenge-099/mark-anderson/raku/ch-1.raku
+++ b/challenge-099/mark-anderson/raku/ch-1.raku
@@ -9,6 +9,5 @@ is pattern-match("abcde", "a*c?e"), 1;
 
 sub pattern-match($S, $P is copy) 
 {
-    $P .= trans: ["?", "*"] => [".", ".*"];
-    so $S ~~ / ^ <$P> $ / andthen .Int;
+    so $S ~~ / ^ <{ $P.trans: ["?", "*"] => [".", ".*"] }> $ / andthen .Int;
 }
-- 
cgit 


From 8a0eaca7a83531d6888d77f88bb8c44ef7daeaaf Mon Sep 17 00:00:00 2001
From: Mark Anderson <mark@frontrangerunner.com>
Date: Mon, 8 Feb 2021 23:50:30 -0700
Subject: Challenge 99 Solutions (Raku)

---
 challenge-099/mark-anderson/raku/ch-1.raku | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-099/mark-anderson/raku/ch-1.raku b/challenge-099/mark-anderson/raku/ch-1.raku
index 8f580eac2f..68e0a24095 100644
--- a/challenge-099/mark-anderson/raku/ch-1.raku
+++ b/challenge-099/mark-anderson/raku/ch-1.raku
@@ -9,5 +9,5 @@ is pattern-match("abcde", "a*c?e"), 1;
 
 sub pattern-match($S, $P is copy) 
 {
-    so $S ~~ / ^ <{ $P.trans: ["?", "*"] => [".", ".*"] }> $ / andthen .Int;
+    ($S ~~ / ^ <{ $P.trans: ["?", "*"] => [".", ".*"] }> $ /).Bool.UInt;
 }
-- 
cgit 


From b1b9f6dd83a4f7eaf1e9725c60c4a38fe124adf7 Mon Sep 17 00:00:00 2001
From: Mark Anderson <mark@frontrangerunner.com>
Date: Tue, 9 Feb 2021 00:01:23 -0700
Subject: Challenge 99 Solutions (Raku)

---
 challenge-099/mark-anderson/raku/ch-1.raku | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-099/mark-anderson/raku/ch-1.raku b/challenge-099/mark-anderson/raku/ch-1.raku
index 68e0a24095..f3ea085ab2 100644
--- a/challenge-099/mark-anderson/raku/ch-1.raku
+++ b/challenge-099/mark-anderson/raku/ch-1.raku
@@ -7,7 +7,7 @@ is pattern-match("abcde", "a*d"),   0;
 is pattern-match("abcde", "?b*d"),  0;
 is pattern-match("abcde", "a*c?e"), 1;
 
-sub pattern-match($S, $P is copy) 
+sub pattern-match($S, $P) 
 {
     ($S ~~ / ^ <{ $P.trans: ["?", "*"] => [".", ".*"] }> $ /).Bool.UInt;
 }
-- 
cgit 


From e09f00d1083cd0ff984721f5687e614866b5d5e7 Mon Sep 17 00:00:00 2001
From: Mark Anderson <mark@frontrangerunner.com>
Date: Tue, 9 Feb 2021 00:05:40 -0700
Subject: Challenge 99 Solutions (Raku)

---
 challenge-099/mark-anderson/raku/ch-1.raku | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-099/mark-anderson/raku/ch-1.raku b/challenge-099/mark-anderson/raku/ch-1.raku
index f3ea085ab2..84ea24421b 100644
--- a/challenge-099/mark-anderson/raku/ch-1.raku
+++ b/challenge-099/mark-anderson/raku/ch-1.raku
@@ -9,5 +9,5 @@ is pattern-match("abcde", "a*c?e"), 1;
 
 sub pattern-match($S, $P) 
 {
-    ($S ~~ / ^ <{ $P.trans: ["?", "*"] => [".", ".*"] }> $ /).Bool.UInt;
+    ($S ~~ / ^ <{ $P.trans: <? *> => <. .*> }> $ /).Bool.UInt;
 }
-- 
cgit 


From d54a1c6e895251e2b45370dd448802c40288f453 Mon Sep 17 00:00:00 2001
From: Mark Anderson <mark@frontrangerunner.com>
Date: Tue, 9 Feb 2021 00:09:23 -0700
Subject: Challenge 99 Solutions (Raku)

---
 challenge-099/mark-anderson/raku/ch-2.raku | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/challenge-099/mark-anderson/raku/ch-2.raku b/challenge-099/mark-anderson/raku/ch-2.raku
index 71c1285506..88bf596ded 100644
--- a/challenge-099/mark-anderson/raku/ch-2.raku
+++ b/challenge-099/mark-anderson/raku/ch-2.raku
@@ -2,10 +2,10 @@
 use Test;
 plan 2;
 
-is unique-subsequence("littleit", "lit"), 5;
-is unique-subsequence("london",   "lon"), 3;
+is unique-subsequences("littleit", "lit"), 5;
+is unique-subsequences("london",   "lon"), 3;
 
-sub unique-subsequence($S, $T) 
+sub unique-subsequences($S, $T) 
 {
     +($S ~~ m:ex/ <{ $T.comb.join(" .* ") }> /);
 }
-- 
cgit 


From 42cdc5edff4eb8f5bcc2e1ca3cb95de6f3b43eb2 Mon Sep 17 00:00:00 2001
From: Jonas Berlin <jonas.berlin@nitorcreations.com>
Date: Tue, 9 Feb 2021 15:50:35 +0200
Subject: UTF-8 fix

---
 challenge-099/xkr47/rust/ch-1.rs | 30 +++++++++++++++++++-----------
 1 file changed, 19 insertions(+), 11 deletions(-)

diff --git a/challenge-099/xkr47/rust/ch-1.rs b/challenge-099/xkr47/rust/ch-1.rs
index 913903605e..50e83f14f4 100644
--- a/challenge-099/xkr47/rust/ch-1.rs
+++ b/challenge-099/xkr47/rust/ch-1.rs
@@ -12,19 +12,22 @@ fn main() {
 }
 
 fn do_match(text: &str, pattern: &str) -> bool {
-    if pattern.is_empty() {
-        text.is_empty()
-    } else {
-        match pattern.chars().next().unwrap() {
-            '*' =>
-                do_match(text, &pattern[1..]) ||
-                (!text.is_empty() && do_match(&text[1..], pattern)),
-            '?' =>
-                !text.is_empty() && do_match(&text[1..], &pattern[1..]),
-            ch =>
-                text.chars().next() == Some(ch) && do_match(&text[1..], &pattern[1..])
+    fn inner(text: &[char], pattern: &[char]) -> bool {
+        if pattern.is_empty() {
+            text.is_empty()
+        } else {
+            match pattern[0] {
+                '*' =>
+                    inner(text, &pattern[1..]) ||
+                        (!text.is_empty() && inner(&text[1..], pattern)),
+                '?' =>
+                    !text.is_empty() && inner(&text[1..], &pattern[1..]),
+                ch =>
+                    text.get(0) == Some(&ch) && inner(&text[1..], &pattern[1..])
+            }
         }
     }
+    inner(&text.chars().collect::<Vec<char>>(), &pattern.chars().collect::<Vec<char>>())
 }
 
 #[cfg(test)]
@@ -79,4 +82,9 @@ mod tests {
     fn do_test14() {
         assert_eq!(do_match("a", "*?"), true);
     }
+
+    #[test]
+    fn do_test15() {
+        assert_eq!(do_match("få", "f*"), true);
+    }
 }
-- 
cgit 


From 6ca9e732b9def2bf1a727f79a7c261f5ed265410 Mon Sep 17 00:00:00 2001
From: boblied <boblied@gmail.com>
Date: Tue, 9 Feb 2021 13:11:40 -0600
Subject: Solution for 098 #1, Read N Characters

---
 challenge-098/bob-lied/perl/ch-1.pl | 61 +++++++++++++++++++++++++++++++++++++
 1 file changed, 61 insertions(+)
 create mode 100755 challenge-098/bob-lied/perl/ch-1.pl

diff --git a/challenge-098/bob-lied/perl/ch-1.pl b/challenge-098/bob-lied/perl/ch-1.pl
new file mode 100755
index 0000000000..59dfafcfe8
--- /dev/null
+++ b/challenge-098/bob-lied/perl/ch-1.pl
@@ -0,0 +1,61 @@
+#!/usr/bin/env perl
+# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu:
+#=============================================================================
+# ch-1.pl
+#=============================================================================
+# Copyright (c) 2021, Bob Lied
+#=============================================================================
+# Perl Weekly Challenge 098 Challenge 1
+# You are given file $FILE.
+# Create subroutine readN($FILE, $number) returns the first n-characters and
+# moves the pointer to the (n+1)th character.
+# Example:
+# Input: Suppose the file (input.txt) contains "1234567890"
+# Output:
+#    print readN("input.txt", 4); # returns "1234"
+#    print readN("input.txt", 4); # returns "5678"
+#    print readN("input.txt", 4); # returns "90"
+#=============================================================================
+
+use strict;
+use warnings;
+use v5.20;
+
+use experimental qw/signatures /;
+
+sub Usage { "Usage: $0 filename N" };
+
+my $FILE = shift;
+my $N        = shift;
+
+die Usage() unless $FILE;
+die Usage() unless $N;
+die "Need positive N" if ( $N <= 0 );
+
+# Cache open file handles per file.  The file handle will
+# keep track of the position in the file, advancing each time
+# that we call read().
+my %fileToFH;
+
+sub readN($s, $n)
+{
+    my $fh;
+    if ( exists $fileToFH{$s} )
+    {
+        $fh = $fileToFH{$s};
+    }
+    elsif ( open($fh, "<:utf8", $s) )
+    {
+        $fileToFH{$s} = $fh;
+    }
+    else
+    {
+        die "Invalid filename $s ($!)";
+    }
+    my $howmany = read($fh, my $bytes, $n);
+    return $bytes;
+}
+binmode(STDOUT, "utf8");
+say readN($FILE, $N);
+say readN($FILE, $N);
+say readN($FILE, $N);
-- 
cgit 


From 33805f4f89715f2a699eaa707397145a4b8e7536 Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Tue, 9 Feb 2021 21:57:35 +0000
Subject: - Added solutions by Jaldhar H. Vyas.

---
 stats/pwc-current.json                    | 547 ++++++++++++------------
 stats/pwc-language-breakdown-summary.json |  76 ++--
 stats/pwc-language-breakdown.json         | 688 +++++++++++++++---------------
 stats/pwc-leaders.json                    | 390 ++++++++---------
 stats/pwc-summary-1-30.json               | 122 +++---
 stats/pwc-summary-121-150.json            |  20 +-
 stats/pwc-summary-151-180.json            |  96 ++---
 stats/pwc-summary-181-210.json            |  46 +-
 stats/pwc-summary-211-240.json            |  64 +--
 stats/pwc-summary-31-60.json              | 108 ++---
 stats/pwc-summary-61-90.json              | 104 ++---
 stats/pwc-summary-91-120.json             | 104 ++---
 stats/pwc-summary.json                    | 484 ++++++++++-----------
 13 files changed, 1436 insertions(+), 1413 deletions(-)

diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index b268b91c9c..f6aebfc3e5 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -1,31 +1,209 @@
 {
-   "tooltip" : {
-      "followPointer" : 1,
-      "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>",
-      "pointFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>"
-   },
-   "chart" : {
-      "type" : "column"
-   },
-   "yAxis" : {
-      "title" : {
-         "text" : "Total Solutions"
+   "series" : [
+      {
+         "data" : [
+            {
+               "drilldown" : "Aaron Smith",
+