Merge pull request #12025 from pokgopun/pwc321

Pwc321

4 files changed, 331 insertions, 0 deletions

diff --git a/challenge-321/pokgopun/go/ch-1.go b/challenge-321/pokgopun/go/ch-1.go
new file mode 100644
index 0000000000..baffd55378
--- /dev/null
+++ b/challenge-321/pokgopun/go/ch-1.go
@@ -0,0 +1,91 @@
+//# https://theweeklychallenge.org/blog/perl-weekly-challenge-321/
+/*#
+
+Task 1: Distinct Average
+
+Submitted by: [44]Mohammad Sajid Anwar
+     __________________________________________________________________
+
+   You are given an array of numbers with even length.
+
+   Write a script to return the count of distinct average. The average is
+   calculate by removing the minimum and the maximum, then average of the
+   two.
+
+Example 1
+
+Input: @nums = (1, 2, 4, 3, 5, 6)
+Output: 1
+
+Step 1: Min = 1, Max = 6, Avg = 3.5
+Step 2: Min = 2, Max = 5, Avg = 3.5
+Step 3: Min = 3, Max = 4, Avg = 3.5
+
+The count of distinct average is 1.
+
+Example 2
+
+Input: @nums = (0, 2, 4, 8, 3, 5)
+Output: 2
+
+Step 1: Min = 0, Max = 8, Avg = 4
+Step 2: Min = 2, Max = 5, Avg = 3.5
+Step 3: Min = 3, Max = 4, Avg = 3.5
+
+The count of distinct average is 2.
+
+Example 3
+
+Input: @nums = (7, 3, 1, 0, 5, 9)
+Output: 2
+
+Step 1: Min = 0, Max = 9, Avg = 4.5
+Step 2: Min = 1, Max = 7, Avg = 4
+Step 3: Min = 3, Max = 5, Avg = 4
+
+The count of distinct average is 2.
+
+Task 2: Backspace Compare
+#*/
+//# solution by pokgopun@gmail.com
+
+package main
+
+import (
+	"io"
+	"os"
+	"slices"
+
+	"github.com/google/go-cmp/cmp"
+)
+
+type qr struct {
+	q, r int
+}
+
+type input []int
+
+func (in input) process() int {
+	l := len(in)
+	slices.Sort(in)
+	m := make(map[qr]bool)
+	for i := range l / 2 {
+		sm := (in[i] + in[l-1-i])
+		m[qr{sm / 2, sm % 2}] = true
+	}
+	//fmt.Println(in, m)
+	return len(m)
+}
+
+func main() {
+	for _, data := range []struct {
+		input  input
+		output int
+	}{
+		{input{1, 2, 4, 3, 5, 6}, 1},
+		{input{0, 2, 4, 8, 3, 5}, 2},
+		{input{7, 3, 1, 0, 5, 9}, 2},
+	} {
+		io.WriteString(os.Stdout, cmp.Diff(data.input.process(), data.output)) // blank if ok, otherwise show the difference
+	}
+}
diff --git a/challenge-321/pokgopun/go/ch-2.go b/challenge-321/pokgopun/go/ch-2.go
new file mode 100644
index 0000000000..9ea092effd
--- /dev/null
+++ b/challenge-321/pokgopun/go/ch-2.go
@@ -0,0 +1,95 @@
+//# https://theweeklychallenge.org/blog/perl-weekly-challenge-321/
+/*#
+
+Task 2: Backspace Compare
+
+Submitted by: [45]Mohammad Sajid Anwar
+     __________________________________________________________________
+
+   You are given two strings containing zero or more #.
+
+   Write a script to return true if the two given strings are same by
+   treating # as backspace.
+
+Example 1
+
+Input: $str1 = "ab#c"
+       $str2 = "ad#c"
+Output: true
+
+For first string,  we remove "b" as it is followed by "#".
+For second string, we remove "d" as it is followed by "#".
+In the end both strings became the same.
+
+Example 2
+
+Input: $str1 = "ab##"
+       $str2 = "a#b#"
+Output: true
+
+Example 3
+
+Input: $str1 = "a#b"
+       $str2 = "c"
+Output: false
+     __________________________________________________________________
+
+   Last date to submit the solution 23:59 (UK Time) Sunday 18th May 2025.
+     __________________________________________________________________
+
+SO WHAT DO YOU THINK ?
+#*/
+//# solution by pokgopun@gmail.com
+
+package main
+
+import (
+	"io"
+	"os"
+	"slices"
+
+	"github.com/google/go-cmp/cmp"
+)
+
+type input struct {
+	str1, str2 string
+}
+
+func (in input) process() bool {
+	//fmt.Printf("%v, '%s', '%s'\n", in, ab(in.str1), ab(in.str2))
+	return ab(in.str1) == ab(in.str2)
+}
+
+func ab(str string) string {
+	l := len(str)
+	bs := []byte(str)
+	i := 0
+	for i < l {
+		if bs[i] == byte('#') {
+			if i > 0 {
+				slices.Delete(bs, i-1, i+1)
+				l -= 2
+				i--
+			} else {
+				slices.Delete(bs, i, i+1)
+				l--
+			}
+		} else {
+			i++
+		}
+	}
+	return string(bs)
+}
+
+func main() {
+	for _, data := range []struct {
+		input  input
+		output bool
+	}{
+		{input{"ab#c", "ad#c"}, true},
+		{input{"ab##", "a#b#"}, true},
+		{input{"a#b", "c"}, false},
+	} {
+		io.WriteString(os.Stdout, cmp.Diff(data.input.process(), data.output)) // blank if ok, otherwise show the difference
+	}
+}
diff --git a/challenge-321/pokgopun/python/ch-1.py b/challenge-321/pokgopun/python/ch-1.py
new file mode 100644
index 0000000000..d5ccc2fe7d
--- /dev/null
+++ b/challenge-321/pokgopun/python/ch-1.py
@@ -0,0 +1,71 @@
+### https://theweeklychallenge.org/blog/perl-weekly-challenge-321/
+"""
+
+Task 1: Distinct Average
+
+Submitted by: [44]Mohammad Sajid Anwar
+     __________________________________________________________________
+
+   You are given an array of numbers with even length.
+
+   Write a script to return the count of distinct average. The average is
+   calculate by removing the minimum and the maximum, then average of the
+   two.
+
+Example 1
+
+Input: @nums = (1, 2, 4, 3, 5, 6)
+Output: 1
+
+Step 1: Min = 1, Max = 6, Avg = 3.5
+Step 2: Min = 2, Max = 5, Avg = 3.5
+Step 3: Min = 3, Max = 4, Avg = 3.5
+
+The count of distinct average is 1.
+
+Example 2
+
+Input: @nums = (0, 2, 4, 8, 3, 5)
+Output: 2
+
+Step 1: Min = 0, Max = 8, Avg = 4
+Step 2: Min = 2, Max = 5, Avg = 3.5
+Step 3: Min = 3, Max = 4, Avg = 3.5
+
+The count of distinct average is 2.
+
+Example 3
+
+Input: @nums = (7, 3, 1, 0, 5, 9)
+Output: 2
+
+Step 1: Min = 0, Max = 9, Avg = 4.5
+Step 2: Min = 1, Max = 7, Avg = 4
+Step 3: Min = 3, Max = 5, Avg = 4
+
+The count of distinct average is 2.
+
+Task 2: Backspace Compare
+"""
+### solution by pokgopun@gmail.com
+
+def da(ints: tuple[int]) -> int:
+    l = len(ints)
+    lst = sorted(ints)
+    avgs = []
+    for i in range(int(l/2)):
+        avgs.append((lst[i]+lst[l-1-i])/2)
+    return len(set(avgs))
+
+import unittest
+
+class TestDa(unittest.TestCase):
+    def test(self):
+        for inpt, otpt in {
+                (1, 2, 4, 3, 5, 6): 1,
+                (0, 2, 4, 8, 3, 5): 2,
+                (7, 3, 1, 0, 5, 9): 2,
+                }.items():
+            self.assertEqual(da(inpt), otpt)
+
+unittest.main()
diff --git a/challenge-321/pokgopun/python/ch-2.py b/challenge-321/pokgopun/python/ch-2.py
new file mode 100644
index 0000000000..befadf0ef2
--- /dev/null
+++ b/challenge-321/pokgopun/python/ch-2.py
@@ -0,0 +1,74 @@
+### https://theweeklychallenge.org/blog/perl-weekly-challenge-321/
+"""
+
+Task 2: Backspace Compare
+
+Submitted by: [45]Mohammad Sajid Anwar
+     __________________________________________________________________
+
+   You are given two strings containing zero or more #.
+
+   Write a script to return true if the two given strings are same by
+   treating # as backspace.
+
+Example 1
+
+Input: $str1 = "ab#c"
+       $str2 = "ad#c"
+Output: true
+
+For first string,  we remove "b" as it is followed by "#".
+For second string, we remove "d" as it is followed by "#".
+In the end both strings became the same.
+
+Example 2
+
+Input: $str1 = "ab##"
+       $str2 = "a#b#"
+Output: true
+
+Example 3
+
+Input: $str1 = "a#b"
+       $str2 = "c"
+Output: false
+     __________________________________________________________________
+
+   Last date to submit the solution 23:59 (UK Time) Sunday 18th May 2025.
+     __________________________________________________________________
+
+SO WHAT DO YOU THINK ?
+"""
+### solution by pokgopun@gmail.com
+
+def bc(str1: str, str2: str) -> bool:
+    return ab(str1) == ab(str2)
+
+def ab(string: str) -> str:
+    lst = list(string)
+    l = len(lst)
+    i = 0
+    while i < l:
+        if lst[i] == "#":
+            lst.pop(i)
+            l -= 1
+            if i > 0:
+                lst.pop(i-1)
+                l -= 1
+                i -= 1
+        else:
+            i += 1
+    return "".join(lst)
+
+import unittest
+
+class TestBc(unittest.TestCase):
+    def test(self):
+        for (str1, str2), otpt in {
+                ("ab#c", "ad#c"): True,
+                ("ab##", "a#b#"): True,
+                ("a#b", "c"): False,
+                }.items():
+            self.assertEqual(bc(str1,str2),otpt)
+
+unittest.main()