; Section 2.7 - Recursion (Page 16)
; Zachary Murray (zmurray@mix.wvu.edu)

; Example 1 - Page 16

; (defun our-member (obj lst)
;   (if (null lst)
;     nil
;     (if (eql (car lst) obj)
;       lst
;       (our-member obj (cdr lst)))))

(defn our-member [obj lst]
  (if (nil? lst)
    nil
    (if (= (first lst) obj)
      lst
      (our-member obj (next lst)))))

; Example 2 - Page 16

; (our-member 'b '(a b c))
; (our-member 'z '(a b c))

(our-member 'b '(a b c))
(our-member 'z '(a b c))