вернуть число с первым установленным битом X

Question

Какой более эффективный способ сделать это в ближайшем будущем:

(defn ones
  ([n] (ones n 1 1))
  ([n i res]
    (if (< i n)
      (recur n (inc i) (bit-set res i))
      res)))

желательно, чтобы она все еще "делала правильные вещи", когда дело доходит до числового типа.

Answer 1

Почему бы не взять 2 ^ (X-1) (установив только бит X) и затем вычесть 1?