1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/src/rlm/expenses.clj	Tue Oct 18 00:57:08 2011 -0700
     1.3 @@ -0,0 +1,27 @@
     1.4 +(ns rlm.expenses)
     1.5 +
     1.6 +
     1.7 +(def static-expenses
     1.8 +     [500  ;; for Books
     1.9 +      600  ;; to get to Wisconsisn
    1.10 +      200  ;; install internet satelite
    1.11 +      1000 ;; shipping
    1.12 +      ])
    1.13 +
    1.14 +
    1.15 +(def monthly-expenses
    1.16 +     [600 ;; rent
    1.17 +      120 ;; internet
    1.18 +      120 ;; vehicle maintance
    1.19 +      600 ;; stipend (food, gas)
    1.20 +      ])
    1.21 +
    1.22 +(defn cost-per-month [num-months]
    1.23 +  (float
    1.24 +   (/
    1.25 +    (+
    1.26 +     (* num-months (reduce + monthly-expenses)) 
    1.27 +     (reduce + static-expenses))
    1.28 +    num-months)))
    1.29 +
    1.30 +