From 8777ff071f7bb37631baa7b6717ad29961e50911 Mon Sep 17 00:00:00 2001
From: "H.J" <thechairman@thechairman.info>
Date: Wed, 9 Oct 2024 11:36:55 -0400
Subject: sorting by language

---
 leetcode/lc-953-alien-dictionary.rkt | 26 --------------------------
 1 file changed, 26 deletions(-)
 delete mode 100644 leetcode/lc-953-alien-dictionary.rkt

(limited to 'leetcode/lc-953-alien-dictionary.rkt')

diff --git a/leetcode/lc-953-alien-dictionary.rkt b/leetcode/lc-953-alien-dictionary.rkt
deleted file mode 100644
index f72a895..0000000
--- a/leetcode/lc-953-alien-dictionary.rkt
+++ /dev/null
@@ -1,26 +0,0 @@
-#lang racket
-
-(define/contract (is-alien-sorted words order)
-  (-> (listof string?) string? boolean?)
-  (define alpha-order
-    (make-hash (map (λ (a b) (cons a b))
-                    (map string (string->list order))
-                    (build-list (string-length order) identity))))
-  (hash-set! alpha-order #\* -1)
-  (define (alien<? s1 s2)
-    (cond [(equal? s1 "") #true]
-          [(equal? s2 "") #false]
-          [(equal? (hash-ref alpha-order (substring s1 0 1))
-                   (hash-ref alpha-order (substring s2 0 1)))
-           (alien<? (substring s1 1 (string-length s1))
-                    (substring s2 1 (string-length s2)))]
-          [(< (hash-ref alpha-order (substring s1 0 1))
-              (hash-ref alpha-order (substring s2 0 1))) #true]
-          [else false]))
-  (equal? words
-          (sort words alien<?)))
-
-(is-alien-sorted '["hello" "leetcode"] "hlabcdefgijkmnopqrstuvwxyz")
-(is-alien-sorted '["word" "world" "row"] "worldabcefghijkmnpqstuvxyz")
-(is-alien-sorted '["apple" "app"] "abcdefghijklmnopqrstuvwxyz")
-(is-alien-sorted '["iekm" "tpnhnbe"] "loxbzapnmstkhijfcuqdewyvrg")
\ No newline at end of file
-- 
cgit v1.2.3