1 files changed, 3 insertions(+), 1 deletions(-)

M server.rkt

@@ 60,7 60,9 @@
    200 #f (current-seconds) #"application/octet-stream"
    empty (list (integer->bytes n (/ keylen 8) #f))))
 
-(define (results votes)
+(define/contract (results votes)
+  (-> (listof (listof (integer-in 0 (sub1 (length cands)))))
+      (listof (integer-in 0 (sub1 (length cands)))))
   (let res ([votes votes]
             [firsts (make-immutable-hash
                      (for/list ([i (in-range (length cands))])