[Racket] Ferti hydroponic nutrient solver, redux.
Clean up seed file.
db/seed.rkt
@@ -1,7 +1,5 @@
1
1
#lang racket
2
2
3
Removed:
;; Seed the database with default values.
4
Removed:
5
3
(provide seed-database!)
6
4
7
5
(require csv-reading
@@ -60,7 +58,7 @@
60
58
(define header (next-row))
61
59
(define (row->seed! row)
62
60
(define row-alist (map cons header row))
63
Removed:
(define measured-on (cdar row-alist))
61
Added:
(define measured-on (cdr (first row-alist)))
64
62
(define nutrient-values
65
63
(for/list ([nm (in-list (cdr row-alist))])
66
64
(define formula (car nm))
@@ -73,11 +71,10 @@
73
71
74
72
(define (seed-crops!)
75
73
(define crop-names (map crop-name (get-crops)))
76
Removed:
(define default-crops
77
Removed:
'("salade"
78
Removed:
"laitue"
79
Removed:
"tomate"
80
Removed:
"framboise"))
74
Added:
(define default-crops '("salade"
75
Added:
"laitue"
76
Added:
"tomate"
77
Added:
"framboise"))
81
78
(with-tx
82
79
(for ([name (in-list default-crops)])
83
80
;; Ensure idempotence