From 73709435cce58cf60b96c8c9f5d55df5274d9d50 Mon Sep 17 00:00:00 2001 From: David Florness Date: Tue, 4 Feb 2020 15:59:08 -0700 Subject: [PATCH] =?UTF-8?q?=CE=BB=20>=20lambda?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Change my mind. --- secret-sharing/client.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/secret-sharing/client.rkt b/secret-sharing/client.rkt index 6dd1850..51f0e8e 100644 --- a/secret-sharing/client.rkt +++ b/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))))))) -- 2.38.4