diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-11-20 14:08:21 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-11-20 14:08:21 +0100 |
| commit | d2b7a6a7e2739869f8b718c80cad7c9515f10070 (patch) | |
| tree | d3e8ac04dc4d1178fe24bc0511ada49caadf25db /services | |
| parent | 434b521ddb70287b55d1dc8f5e24f18aeaa01fdc (diff) | |
Replace nutrient-value alists with hashes everywhere.
Diffstat (limited to 'services')
| -rw-r--r-- | services/nnls.rkt | 5 |
1 files changed, 1 insertions, 4 deletions
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 |