internal-extraction.clj

; pyramid of death
(defn baz [n1 n2]
  (cond (> n1 n2) (+ n1 n2)
        (< n1 n2) (cond (= n1 0) 1
                        (= n2 0) 2
                        :else 3)
        :else 0))

; internal extraction
(defn baz [n1 n2]
  ((fn [foo]
     (cond (> n1 n2) (+ n1 n2)
           (< n1 n2) (foo n1 n2)
           :else 0))
   (fn [n1 n2]
     (cond (= n1 0) 1
           (= n2 0) 2
           :else 3))))

(baz 1 2)
; 3