jaley

(defn sample-mr [l]
  (reduce (fn [x [y i]] (if (< (/ i (inc i)) (rand)) y x))
          nil
          (map vector l (iterate inc 0))))

jaley

(defn remove-curlied
  [^String text]
  (let [sb  (StringBuilder.)
        end (int (count text))]
    (loop [state (int 0)
           pos   (int 0)]
      (cond
       (= pos end)   (.toString sb)
       (= (int (.charAt text pos)) (int \{)) (recur (inc state) (inc pos))
       (= (int (.charAt text pos)) (int \})) (recur (dec state) (inc pos))