From 25b6c990cbf3620436cd1b1a513015f482a9898e Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Thu, 20 Nov 2025 15:47:02 +0100 Subject: Fix nutrient values doubling bug. RTFM --- models/crop-requirement.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/models/crop-requirement.rkt b/models/crop-requirement.rkt index 7d7b5aa..0b31119 100644 --- a/models/crop-requirement.rkt +++ b/models/crop-requirement.rkt @@ -152,4 +152,4 @@ (for/fold ([acc acc]) ([(nutrient value) (in-hash (crop-requirement-nutrient-values crop-requirement))]) (define contribution (* value weight)) - (hash-update acc nutrient (λ (old) (+ old contribution)) (λ () contribution))))) + (hash-update acc nutrient (λ (old) (+ old contribution)) 0)))) -- cgit v1.2.3