diff options
| -rw-r--r-- | services/nnls.rkt | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/services/nnls.rkt b/services/nnls.rkt index 8f3d4e1..52afbad 100644 --- a/services/nnls.rkt +++ b/services/nnls.rkt @@ -11,12 +11,12 @@ (define (find-ferti-recipe) (define fertilizers (get-fertilizer-products)) - (define solution-array (find-nnls fertilizers)) - (for/list ([i (length fertilizers)]) - (cons (list-ref fertilizers i) - (array-ref solution-array (vector i 0))))) + (define solution-array (solve-nnls fertilizers)) + (for/list ([fertilizer (in-list fertilizers)] + [quantity (in-array solution-array)]) + (cons fertilizer quantity))) -(define (find-nnls fertilizers) +(define (solve-nnls fertilizers) (define nutrients (get-nutrients)) (define fertilizer-product-matrix (get-fertilizer-product-matrix nutrients fertilizers)) (define deficits |