From 8777ff071f7bb37631baa7b6717ad29961e50911 Mon Sep 17 00:00:00 2001 From: "H.J" Date: Wed, 9 Oct 2024 11:36:55 -0400 Subject: sorting by language --- racket/leetcode/lc-500-keyboard-row.rkt | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 racket/leetcode/lc-500-keyboard-row.rkt (limited to 'racket/leetcode/lc-500-keyboard-row.rkt') 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 -- cgit v1.2.3