diff options
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 |