From d2b7a6a7e2739869f8b718c80cad7c9515f10070 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Thu, 20 Nov 2025 14:08:21 +0100 Subject: Replace nutrient-value alists with hashes everywhere. --- services/nnls.rkt | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'services/nnls.rkt') diff --git a/services/nnls.rkt b/services/nnls.rkt index 96d37ec..16703d2 100644 --- a/services/nnls.rkt +++ b/services/nnls.rkt @@ -176,10 +176,7 @@ (λ (i j) (define selected-nutrient (list-ref nutrients i)) (define product (list-ref fertilizers j)) - (define pair (assoc selected-nutrient (fertilizer-product-values product))) - (if pair - (cdr pair) - 0)))) + (hash-ref (fertilizer-product-values product) selected-nutrient 0)))) (module+ test (require rackunit -- cgit v1.2.3