multibool.clj

(defn multibool [& args]
  (let [offset ({6 2, 11 3, 20 4} (count args))]
    (if-not offset
      (throw
        (IllegalArgumentException.
          "Illegal number of arguments (expected: 2 + 4, 3 + 8, 4 + 16)")))
    (nth args
      (+ offset
        (reduce (fn [sum i] (+ sum (if (nth args i)
                                     (bit-shift-left 1 (- (dec offset) i))
                                     0)))
                0
                (range offset))))))