Algorithms, Part 1, Union Find

question 1

(def l [0 1 2 3 4 5 6 7 8 9])

(defn union-qf[p q l]
    (let [pid (nth l p)]
        (map #(if (= % pid) (nth l q) %) l)))

(println (union-qf 6 7 (union-qf 2 8 (union-qf 0 5 (union-qf 7 1 (union-qf 4 3 (union-qf 2 3 l)))))))