; Section 1.1 - New Tools (Page 1)
; Zachary Murray (zmurray@mix.wvu.edu)

; Example 1 - Page 1

; (defun sum (n)
;   (let ((s 0))
;     (dotimes (i n s)
;       (incf s i))))

(defn sum [n]
  (loop [i 0 s 0]
    (if (= i x) s
      (recur (inc i) (+ s i)))))

; Example 2 - Page 2

; (defun addn (n)
;   #'(lambda (x)
;       (+ x n)))

(defn addn [n]
  #(+ % n))