From aaed534ae222246220c3bd532bfbaab6b0a1609c Mon Sep 17 00:00:00 2001
From: David Florness <david@florness.com>
Date: Wed, 4 Mar 2020 21:04:38 -0700
Subject: [PATCH] Faster iteration through naturals

---
 client.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/client.rkt b/client.rkt
index 2d19a8a..49d637f 100644
--- a/client.rkt
+++ b/client.rkt
@@ -301,7 +301,7 @@
                (cons winners (loop (set-subtract remaining winners)))))))
 
   (displayln "Rankings:")
-  (for ([i (in-naturals)]
+  (for ([i (in-naturals 1)]
         [rank rankings])
     (for ([r rank])
-      (displayln (format "~a) ~a" (add1 i) (list-ref candidates r))))))
+      (displayln (format "~a) ~a" i (list-ref candidates r))))))
-- 
2.38.4