[Racket] Ferti hydroponic nutrient solver, redux.
Add nutrient-measurement-value helper.
models/nutrient-measurement.rkt
@@ -3,6 +3,7 @@
3
3
(provide nutrient-measurement
4
4
nutrient-measurement?
5
5
nutrient-measurement-id
6
Added:
nutrient-measurement-value
6
7
(rename-out [nutrient-measurement-measurement-date nutrient-measurement-date]
7
8
[nutrient-measurement-nutrient-values nutrient-measurement-values])
8
9
(contract-out
@@ -39,6 +40,8 @@
39
40
(~a (nutrient-canonical-name n) #:min-width 14)
40
41
(~a v #:max-width 6 #:align 'right)))))
41
42
43
Added:
(define (nutrient-measurement-value nm nutrient)
44
Added:
(hash-ref (nutrient-measurement-nutrient-values nm) nutrient #f))
42
45
(define nutrient-measurement-or-id/c (or/c nutrient-measurement? db-id?))
43
46
44
47
(define (->nm-id nm-or-id)