diff options
| -rw-r--r-- | services/nnls.rkt | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/services/nnls.rkt b/services/nnls.rkt index e0a916d..8f3d4e1 100644 --- a/services/nnls.rkt +++ b/services/nnls.rkt @@ -12,7 +12,7 @@ (define (find-ferti-recipe) (define fertilizers (get-fertilizer-products)) (define solution-array (find-nnls fertilizers)) - (for/list ([i (length (get-fertilizer-products))]) + (for/list ([i (length fertilizers)]) (cons (list-ref fertilizers i) (array-ref solution-array (vector i 0))))) |