Faster iteration through naturals
1 files changed, 2 insertions(+), 2 deletions(-) M client.rkt
M client.rkt => client.rkt +2 -2
@@ 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))))))