~edwargix/tallyard

aaed534ae222246220c3bd532bfbaab6b0a1609c — David Florness 5 years ago 172562e
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))))))