sorting by language

1 files changed, 23 insertions, 0 deletions

diff --git a/racket/leetcode/lc-500-keyboard-row.rkt b/racket/leetcode/lc-500-keyboard-row.rkt
new file mode 100644
index 0000000..5f13143
--- /dev/null
+++ b/racket/leetcode/lc-500-keyboard-row.rkt
@@ -0,0 +1,23 @@
+#lang racket
+
+(define keyboard-rows (list "qwertyuiop" 
+                            "asdfghjkl" 
+                            "zxcvbnm"))
+
+(define keyboard-row-sets
+  (for/list ([row keyboard-rows])
+    (list->set (map string (string->list row)))))
+
+(define/contract (find-words words)
+  (-> (listof string?) (listof string?))
+  (define word-checks
+    (for/list ([w words])
+      (define word-set
+        (list->set (map string (string->list (string-downcase w)))))
+      (if (for/or ([row keyboard-row-sets])
+            (subset? word-set row))
+          w
+          '())))
+  (filter-not empty? word-checks))
+
+(find-words '("Hello" "Alaska" "Dad" "Peace"))
\ No newline at end of file