From 37327a632ff1584e7442295b1ed2ec788a175e4b Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Mon, 17 Nov 2025 12:11:42 +0100 Subject: Use idiomatic sequence zipping. --- services/nnls.rkt | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'services/nnls.rkt') 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 -- cgit v1.2.3