TLS

gistfile1.clj

(def atom?
  (fn [a]
    (not (seq? a))))

(def null?
  (fn [a]
    (or
      (nil? a)
      (= () a))))

(def lat?
  (fn [l]
    (loop [l l]
      (cond
        (null? l)                         true
        (and (seq? l) (atom? (first l))) (recur (rest l))
        :else                             false))))

(def member?
  (fn [a lat]
    (loop [lat lat]
      (cond
        (null? lat)        false
        (= (first lat) a)  true
        :else              (recur (rest lat))))))