From 9fa7f182841794550ced391312597ccaf7d2c6fc Mon Sep 17 00:00:00 2001
From: David Florness <david@florness.com>
Date: Sun, 10 Nov 2019 09:55:52 -0700
Subject: [PATCH] Better way to find the minimum value in a hash

---
 server.rkt | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/server.rkt b/server.rkt
index 15db01f..8f7d1c7 100644
--- a/server.rkt
+++ b/server.rkt
@@ -69,8 +69,7 @@
     (if (empty? votes)
         (if (hash-empty? firsts)
             done
-            (let ([last-place (caar (sort (hash->list firsts)
-                                          (λ (p1 p2) (< (cadr p1) (cadr p2)))))])
+            (let ([last-place (car (argmin cadr (hash->list firsts)))])
               (res (cdr (hash-ref firsts last-place))
                    (hash-remove firsts last-place)
                    (cons last-place done))))
-- 
2.38.4