challenge 328 task 1 regex solution by ysth

3 files changed, 29 insertions, 0 deletions

diff --git a/challenge-328/ysth/blog.txt b/challenge-328/ysth/blog.txt
new file mode 100644
index 0000000000..5d9399f4a0
--- /dev/null
+++ b/challenge-328/ysth/blog.txt
@@ -0,0 +1 @@
+https://blog.ysth.info/in-case-of-doubt-use-a-regex-the-weekly-challenge-328-task-1/
diff --git a/challenge-328/ysth/perl/ch-1.pl b/challenge-328/ysth/perl/ch-1.pl
new file mode 100644
index 0000000000..22572287ae
--- /dev/null
+++ b/challenge-328/ysth/perl/ch-1.pl
@@ -0,0 +1,14 @@
+use 5.036;
+
+my @inputs = @ARGV;
+
+my $replace_all_qs = qr'
+    (?<a> (?<!a) \? (?! a | \? (?:\?{2})* (?![a?]) | (?:\?{2})* a ))
+    | (?<b> (?<! b | \? (?<! (?<!a) \? (?! \? (?:\?{2})* (?![a?]) | (?:\?{2})+ a ) ) ) \? (?!b))
+    | (?<c>\?)
+'x;
+
+for my $string (@inputs) {
+    my $new_string = $string =~ s/$replace_all_qs/@{[keys %+]}/gr;
+    printf "| %s | %s |\n", $string, $new_string;
+}
diff --git a/challenge-328/ysth/python/ch-1.py b/challenge-328/ysth/python/ch-1.py
new file mode 100644
index 0000000000..69258def6f
--- /dev/null
+++ b/challenge-328/ysth/python/ch-1.py
@@ -0,0 +1,14 @@
+import sys
+import regex
+
+inputs = sys.argv[1:]
+
+replace_all_qs = regex.compile(r'''(?x)
+    (?<a> (?<!a) \? (?! a | \? (?:\?{2})* (?![a?]) | (?:\?{2})* a ))
+    | (?<b> (?<! b | \? (?<! (?<!a) \? (?! \? (?:\?{2})* (?![a?]) | (?:\?{2})+ a ) ) ) \? (?!b))
+    | (?<c>\?)
+    ''')
+
+for string in inputs:
+    new_string = replace_all_qs.sub(lambda m:m.lastgroup, string)
+    print(f'| {string} | {new_string} |')