Merge pull request #9303 from fluca1978/PWC249

PWC 249

1 files changed, 34 insertions, 0 deletions

diff --git a/challenge-249/luca-ferrari/python/ch-1.py b/challenge-249/luca-ferrari/python/ch-1.py
new file mode 100644
index 0000000000..229e3e2a00
--- /dev/null
+++ b/challenge-249/luca-ferrari/python/ch-1.py
@@ -0,0 +1,34 @@
+#!python
+
+#
+# Perl Weekly Challenge 249
+# Task 1
+#
+# See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-249/>
+#
+
+import sys
+
+# task implementation
+def main( argv ):
+    classification = {}
+    for i in argv:
+        if not i in classification:
+            classification[ i ] = 0
+        classification[ i ] += 1
+
+    pairs = []
+    for k in classification:
+        while classification[ k ] >= 2:
+            pairs.append( [ k, k ] )
+            classification[ k ] -= 2
+
+    for p in pairs:
+        print( ", ".join( p ) )
+
+
+# invoke the main without the command itself
+if __name__ == '__main__':
+    main( sys.argv[ 1: ] )
+
+