[Racket] Ferti hydroponic nutrient solver, redux.
Avoid useless SQL query.
services/nnls.rkt
@@ -12,7 +12,7 @@
12
12
(define (find-ferti-recipe)
13
13
(define fertilizers (get-fertilizer-products))
14
14
(define solution-array (find-nnls fertilizers))
15
Removed:
(for/list ([i (length (get-fertilizer-products))])
15
Added:
(for/list ([i (length fertilizers)])
16
16
(cons (list-ref fertilizers i)
17
17
(array-ref solution-array (vector i 0)))))
18
18