transcendental-lisp/lisp/finance/compound-interest.lisp

(defun decrement (n) (- n 1))

(defun percent-of-number (n percentage)
  (if (> percentage 0)
    (/ (+ (* n percentage) 50) 100)
    (/ (- (* n percentage) 50) 100)))

(defun compound-interest (principal interest-rate years)
  (if (< years 1)
    principal
    (compound-interest
      (+ principal (percent-of-number principal interest-rate))
      interest-rate
      (decrement years))))
Added a tail recursive compound interest function 2017-02-14 16:55:48 -05:00			`(defun decrement (n) (- n 1))`

Re-organize the lisp files 2017-03-06 11:00:18 -05:00			`(defun percent-of-number (n percentage)`
Updated the compound interest script 2017-03-04 16:33:05 -05:00			`(if (> percentage 0)`
			`(/ (+ (* n percentage) 50) 100)`
Re-organize the lisp files 2017-03-06 11:00:18 -05:00			`(/ (- (* n percentage) 50) 100)))`
Added a tail recursive compound interest function 2017-02-14 16:55:48 -05:00
Updated the compound interest script 2017-03-04 16:33:05 -05:00			`(defun compound-interest (principal interest-rate years)`
			`(if (< years 1)`
Resolves #6 - PROGN Special Function (Form) 2017-02-27 15:36:17 -05:00			`principal`
Cleaned up code and tests 2017-03-03 15:06:49 -05:00			`(compound-interest`
Re-organize the lisp files 2017-03-06 11:00:18 -05:00			`(+ principal (percent-of-number principal interest-rate))`
Updated the compound interest script 2017-03-04 16:33:05 -05:00			`interest-rate`
Re-organize the lisp files 2017-03-06 11:00:18 -05:00			`(decrement years))))`