From 67b0cdb8343c1aa649e77b9edb459c61fc36a3fe Mon Sep 17 00:00:00 2001
From: Pok <pok@goyangi>
Date: Wed, 16 Jul 2025 13:48:54 +1000
Subject: pwc330 solution in python

---
 challenge-330/pokgopun/python/ch-1.py | 61 +++++++++++++++++++++++++++++++++++
 challenge-330/pokgopun/python/ch-2.py | 54 +++++++++++++++++++++++++++++++
 2 files changed, 115 insertions(+)
 create mode 100644 challenge-330/pokgopun/python/ch-1.py
 create mode 100644 challenge-330/pokgopun/python/ch-2.py

diff --git a/challenge-330/pokgopun/python/ch-1.py b/challenge-330/pokgopun/python/ch-1.py
new file mode 100644
index 0000000000..4bf81257c7
--- /dev/null
+++ b/challenge-330/pokgopun/python/ch-1.py
@@ -0,0 +1,61 @@
+### https://theweeklychallenge.org/blog/perl-weekly-challenge-330/
+"""
+
+Task 1: Clear Digits
+
+Submitted by: [44]Mohammad Sajid Anwar
+     __________________________________________________________________
+
+   You are given a string containing only lower case English letters and
+   digits.
+
+   Write a script to remove all digits by removing the first digit and the
+   closest non-digit character to its left.
+
+Example 1
+
+Input: $str = "cab12"
+Output: "c"
+
+Round 1: remove "1" then "b" => "ca2"
+Round 2: remove "2" then "a" => "c"
+
+Example 2
+
+Input: $str = "xy99"
+Output: ""
+
+Round 1: remove "9" then "y" => "x9"
+Round 2: remove "9" then "x" => ""
+
+Example 3
+
+Input: $str = "pa1erl"
+Output: "perl"
+
+Task 2: Title Capital
+"""
+### solution by pokgopun@gmail.com
+
+import re
+
+def cd(string: str) -> str:
+    while True:
+        s = re.sub(r'([a-z])([^a-z]*?)(\d)',r'\2',string)
+        if s == string:
+            break
+        string = s
+    return s
+
+import unittest
+
+class TestCd(unittest.TestCase):
+    def test(self):
+        for inpt, otpt in {
+                "cab12": "c",
+                "xy99": "",
+                "pa1erl": "perl",
+                }.items():
+            self.assertEqual(cd(inpt),otpt)
+
+unittest.main()
diff --git a/challenge-330/pokgopun/python/ch-2.py b/challenge-330/pokgopun/python/ch-2.py
new file mode 100644
index 0000000000..8ad2dd66af
--- /dev/null
+++ b/challenge-330/pokgopun/python/ch-2.py
@@ -0,0 +1,54 @@
+### https://theweeklychallenge.org/blog/perl-weekly-challenge-330/
+"""
+
+Task 2: Title Capital
+
+Submitted by: [45]Mohammad Sajid Anwar
+     __________________________________________________________________
+
+   You are given a string made up of one or more words separated by a
+   single space.
+
+   Write a script to capitalise the given title. If the word length is 1
+   or 2 then convert the word to lowercase otherwise make the first
+   character uppercase and remaining lowercase.
+
+Example 1
+
+Input: $str = "PERL IS gREAT"
+Output: "Perl is Great"
+
+Example 2
+
+Input: $str = "THE weekly challenge"
+Output: "The Weekly Challenge"
+
+Example 3
+
+Input: $str = "YoU ARE A stAR"
+Output: "You Are a Star"
+     __________________________________________________________________
+
+   Last date to submit the solution 23:59 (UK Time) Sunday 20th July 2025.
+     __________________________________________________________________
+
+SO WHAT DO YOU THINK ?
+"""
+### solution by pokgopun@gmail.com
+
+def tc(string: str) -> str:
+    return " ".join( e.title() if len(e) > 2 else e for e in string.lower().split() )
+
+import unittest
+
+class TestTc(unittest.TestCase):
+    def test(self):
+        for inpt, otpt in {
+                "PERL IS gREAT": "Perl is Great",
+                "THE weekly challenge": "The Weekly Challenge",
+                "YoU ARE A stAR": "You Are a Star",
+                }.items():
+            self.assertEqual(tc(inpt),otpt)
+
+unittest.main()
+ 
-- 
cgit