chipper.long-form.gates

long.clj

(defn nand* [a b]
  (let [[out] (if (= 2 (+ a b)) [0] [1])
    out))

(defn not* [in]
  (let [[out] (nand* in in)]
    out))

(defn and* [a b]
  (let [[w] (nand* a b)
        [out] (not* w)]
    out))

(defn dmux* [in sel]
  (let [[nsel] (not* sel)
        [a]    (and* in nsel)
        [b]    (and* in sel)
        [out] [a b]]
    out))