gistfile1.txt

(defn cc-rev
  [s]
  (let [paren? (fn [ch] (or (= ch \() (= ch \))))]
    (apply str
	   (concat
	    (flatten
	     (->> s
		  (partition-by paren?)
		  (remove #(paren? (first %)))
		  (map-indexed (fn [idx ss] (if (odd? idx) (reverse ss) ss)))))))))

user=> (cc-rev "asc(vbn)ert(qwerty)uiop")
"ascnbvertytrewquiop"


def ccrev(str)
   substrings = str.split(/\(|\)/)
   result = ''
   substrings.each_with_index{|ss,idx| result += (if (idx % 2) == 1 then ss.reverse else ss end)}
   result
end

irb(main):028:0> ccrev("asc(vbn)ert(qwerty)uiop")
=> "ascnbvertytrewquiop"