gistfile1.clj

(defn select-int-keys [r m]
  (reduce-kv
   (fn [a k v]
     (let [[_ n] (re-find r k)]
       (if n (assoc a k [(int (read-string n)) v])
           a)))
   {}
   m))

(select-int-keys #"bSearchable_([0-9]+)"
                 {"bSearchable_1" false
                  "bSearchable_2" true
                  "somethingElse" "blah"})