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

M secret-sharing/client.rkt

@@ 20,7 20,7 @@
 
 (define (random-poly degree constant)
   (let ([coefficients (build-vector degree (λ (_) (gen)))])
-    (lambda (x)
+    (λ (x)
       (+ constant
          (for/sum ([i (in-range degree)])
            (* (expt x (add1 i)) (vector-ref coefficients i)))))))