add solutions week 308 in python & perl

1 files changed, 20 insertions, 0 deletions

diff --git a/challenge-308/steven-wilson/python/ch-1.py b/challenge-308/steven-wilson/python/ch-1.py
new file mode 100644
index 0000000000..64274dd5cc
--- /dev/null
+++ b/challenge-308/steven-wilson/python/ch-1.py
@@ -0,0 +1,20 @@
+#!/usr/bin/env python3
+
+
+def count_common(strings1, strings2):
+    """ Given two array of strings, return the count of common strings in both
+    arrays.
+    >>> count_common(("perl", "weekly", "challenge"), ("raku", "weekly", "challenge"))
+    2
+    >>> count_common(("perl", "raku", "python"), ("python", "java"))
+    1
+    >>> count_common(("guest", "contribution"), ("fun", "weekly", "challenge"))
+    0
+    """
+    return len(set(strings1).intersection(strings2))
+
+
+if __name__ == "__main__":
+    import doctest
+
+    doctest.testmod(verbose=True)