From fafbeaf9e3c09ba7a5bea7e47d5736001f8a5aa1 Mon Sep 17 00:00:00 2001 From: HJ Date: Tue, 17 Jan 2023 12:46:04 -0500 Subject: adding old leetcode solutions --- leetcode/lc-500-keyboard-row.rkt | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 leetcode/lc-500-keyboard-row.rkt (limited to 'leetcode/lc-500-keyboard-row.rkt') diff --git a/leetcode/lc-500-keyboard-row.rkt b/leetcode/lc-500-keyboard-row.rkt new file mode 100644 index 0000000..5f13143 --- /dev/null +++ b/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 -- cgit v1.2.3