rlm: src/rlm/expenses.clj annotate

initial import

rev	line source
rlm@0	1 (ns rlm.expenses)
rlm@0	2
rlm@0	3
rlm@0	4 (def static-expenses
rlm@0	5 [500 ;; for Books
rlm@0	6 600 ;; to get to Wisconsisn
rlm@0	7 200 ;; install internet satelite
rlm@0	8 1000 ;; shipping
rlm@0	9 ])
rlm@0	10
rlm@0	11
rlm@0	12 (def monthly-expenses
rlm@0	13 [600 ;; rent
rlm@0	14 120 ;; internet
rlm@0	15 120 ;; vehicle maintance
rlm@0	16 600 ;; stipend (food, gas)
rlm@0	17 ])
rlm@0	18
rlm@0	19 (defn cost-per-month [num-months]
rlm@0	20 (float
rlm@0	21 (/
rlm@0	22 (+
rlm@0	23 (* num-months (reduce + monthly-expenses))
rlm@0	24 (reduce + static-expenses))
rlm@0	25 num-months)))
rlm@0	26
rlm@0	27

Mercurial > rlm