Challenge 215 LK Perl Python

1 files changed, 33 insertions, 0 deletions

diff --git a/challenge-215/lubos-kolouch/python/ch-1.py b/challenge-215/lubos-kolouch/python/ch-1.py
new file mode 100644
index 0000000000..d5282fb7fa
--- /dev/null
+++ b/challenge-215/lubos-kolouch/python/ch-1.py
@@ -0,0 +1,33 @@
+#!/usr/bin/env python
+# -*- coding: utf-8 -*-
+
+
+def count_unsorted_words(words):
+    count = 0
+
+    for word in words:
+        count += is_unsorted(word)
+
+    return count
+
+
+def is_unsorted(word):
+    previous_char = word[0]
+
+    for i in range(1, len(word)):
+        current_char = word[i]
+        if current_char < previous_char:
+            return 1
+        previous_char = current_char
+
+    return 0
+
+
+# Test cases
+words1 = ["abc", "xyz", "tsu"]
+words2 = ["rat", "cab", "dad"]
+words3 = ["x", "y", "z"]
+
+print(count_unsorted_words(words1))  # Output: 1
+print(count_unsorted_words(words2))  # Output: 3
+print(count_unsorted_words(words3))  # Output: 0