multibool.clj

;;; Number of arguments expected: 2 + 4, 3 + 8, 4 + 16
(defmacro multibool [& args]
  (let [offset ({6 2, 11 3, 20 4} (count args))]
    (assert offset)
    `(condp = (+ ~@(map (fn [i] `(if ~(nth args i)
                                     ~(bit-shift-left 1 (- (dec offset) i))
                                     0))
                        (range 0 offset)))
      ~@(reduce (fn [memo i] (into memo (list (nth args (+ 2 i)) i)))
                '()
                (range 0 (- (count args) offset))))))