From fafbeaf9e3c09ba7a5bea7e47d5736001f8a5aa1 Mon Sep 17 00:00:00 2001
From: HJ <thechairman@thechairman.info>
Date: Tue, 17 Jan 2023 12:46:04 -0500
Subject: adding old leetcode solutions

---
 leetcode/lc-747-largest-number-twice.rkt | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 leetcode/lc-747-largest-number-twice.rkt

(limited to 'leetcode/lc-747-largest-number-twice.rkt')

diff --git a/leetcode/lc-747-largest-number-twice.rkt b/leetcode/lc-747-largest-number-twice.rkt
new file mode 100644
index 0000000..cea931b
--- /dev/null
+++ b/leetcode/lc-747-largest-number-twice.rkt
@@ -0,0 +1,15 @@
+#lang racket
+(define/contract (dominant-index nums)
+  (-> (listof exact-integer?) exact-integer?)
+  (if (empty? (cdr nums))
+      0
+      (let* ([indexed-list
+              (map cons nums (range (length nums)))]
+             [sorted-indexed-list
+              (sort indexed-list > #:key car)])
+        (if ((car (first sorted-indexed-list)) . >= . (* 2 (car (second sorted-indexed-list))))
+            (cdr (first sorted-indexed-list))
+            -1))))
+
+(dominant-index '(3 6 1 0))
+(dominant-index '(0))
\ No newline at end of file
-- 
cgit v1.2.3