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-290-word-pattern.rkt | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 racket/leetcode/lc-290-word-pattern.rkt (limited to 'racket/leetcode/lc-290-word-pattern.rkt') diff --git a/racket/leetcode/lc-290-word-pattern.rkt b/racket/leetcode/lc-290-word-pattern.rkt new file mode 100644 index 0000000..77cdba0 --- /dev/null +++ b/racket/leetcode/lc-290-word-pattern.rkt @@ -0,0 +1,23 @@ +#lang racket +(define match-string "abba") +(define a "dog") +(define b "cat") +(define Σ "dog cat cat dog") + +(define/contract (word-pattern pattern s) + (-> string? string? boolean?) + (define pattern-list (map string (string->list pattern))) + (define s-list (string-split s)) + (define match-hash (make-hash)) + (if (= (length pattern-list) (length s-list)) + (for/and ([pattern-part pattern-list] + [s-part s-list]) + (cond [(and (not (hash-has-key? match-hash pattern-part)) + (member s-part (hash-values match-hash))) #f] + [(not (hash-has-key? match-hash pattern-part)) + (hash-set! match-hash pattern-part s-part) #t] + [(string=? (hash-ref match-hash pattern-part) s-part) #t] + [else #f])) + #f)) + +(word-pattern match-string Σ) \ No newline at end of file -- cgit v1.2.3