From bfd5f4585a65e05dbdadf03543f92d6a0b6941f2 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Thu, 20 Nov 2025 15:59:54 +0100 Subject: Remove redundant float. --- models/crop-requirement.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'models/crop-requirement.rkt') diff --git a/models/crop-requirement.rkt b/models/crop-requirement.rkt index 0b31119..fb14777 100644 --- a/models/crop-requirement.rkt +++ b/models/crop-requirement.rkt @@ -148,7 +148,7 @@ (define (average-crop-requirement-nutrient-values mix) (for/fold ([acc (hash)]) ([pair (in-list mix)]) (match-define (cons crop-requirement percentage) pair) - (define weight (/ percentage 100.0)) + (define weight (/ percentage 100)) (for/fold ([acc acc]) ([(nutrient value) (in-hash (crop-requirement-nutrient-values crop-requirement))]) (define contribution (* value weight)) -- cgit v1.2.3