From f52d3b87fc76b64cb91bf264d0fe3236f02958f4 Mon Sep 17 00:00:00 2001
From: David Florness <david@florness.com>
Date: Mon, 3 Feb 2020 16:00:46 -0700
Subject: [PATCH] Better way to generate  vector

---
 secret-sharing/client.rkt | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/secret-sharing/client.rkt b/secret-sharing/client.rkt
index f78671d..957c05c 100644
--- a/secret-sharing/client.rkt
+++ b/secret-sharing/client.rkt
@@ -17,8 +17,7 @@
     (bytes->integer bstr #f #t 0 num-bytes)))
 
 (define (random-poly degree constant)
-  (let ([coefficients (for/vector #:length degree ([_ (in-range degree)])
-                        (gen))])
+  (let ([coefficients (build-vector degree (λ (_) (gen)))])
     (lambda (x)
       (+ constant
          (for/sum ([i (in-range degree)])
-- 
2.38.4