poh6-kyoko-1.clj

(require '[clojure.string :as str])

(defn parse-str-to-cells [str-cells]
  (->> (str/split str-cells #"\s+")
       (mapv #(Integer. %))))

(defn is-end-by-num-of-cell [n]
  #(= (dec n) %))

(defn step [wheel cells is-end?]
  (loop [history #{}
         start-point 0
         next-add wheel]
    (let [next-point (+ start-point next-add)]
      (cond
       (is-end? start-point) "Yes"
       (nil? (get cells next-point)) "No"
       (= next-point start-point) "No"
       (contains? history next-point) "No"
       :else (recur (conj history start-point)
                    next-point
                    (get cells next-point))))))

(let [num-of-cell (Integer. (read-line))
      is-end? (is-end-by-num-of-cell num-of-cell)
      cells (parse-str-to-cells (read-line))
      n-input (Integer. (read-line))]
  (doseq [x (range n-input)]
    (println (step (Integer. (read-line)) cells is-end?))))