[Racket] Ferti hydroponic nutrient solver, redux.
Use idiomatic sequence zipping.
services/nnls.rkt
@@ -11,12 +11,12 @@
11
11
12
12
(define (find-ferti-recipe)
13
13
(define fertilizers (get-fertilizer-products))
14
Removed:
(define solution-array (find-nnls fertilizers))
15
Removed:
(for/list ([i (length fertilizers)])
16
Removed:
(cons (list-ref fertilizers i)
17
Removed:
(array-ref solution-array (vector i 0)))))
14
Added:
(define solution-array (solve-nnls fertilizers))
15
Added:
(for/list ([fertilizer (in-list fertilizers)]
16
Added:
[quantity (in-array solution-array)])
17
Added:
(cons fertilizer quantity)))
18
18
19
Removed:
(define (find-nnls fertilizers)
19
Added:
(define (solve-nnls fertilizers)
20
20
(define nutrients (get-nutrients))
21
21
(define fertilizer-product-matrix (get-fertilizer-product-matrix nutrients fertilizers))
22
22
(define deficits