Use idiomatic sequence zipping.

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