[Racket] Ferti hydroponic nutrient solver, redux.
Consolidate for/hash body.
db/seed.rkt
@@ -96,8 +96,7 @@
96
96
(define brand-name (cdr (assoc "Nom commercial" row-alist)))
97
97
(define nutrient-values
98
98
(for/hash ([fertilizer-component (in-list (list-tail row-alist 3))])
99
Removed:
(define formula (car fertilizer-component))
100
Removed:
(define n (get-nutrient #:formula formula))
99
Added:
(define n (get-nutrient #:formula (car fertilizer-component)))
101
100
(define v (string->number (cdr fertilizer-component)))
102
101
(values n v)))
103
102
(cond