(def vz (vector-zip [1 2 3 4 5])) ;; root ;; |________ ;; | | | | | ;; 1 2[3]4 5 ;;go down and then right twice, what's to the left of me now? (-> vz down right right lefts) =>(1 2) ;;equivalent: (-> vz down right right rights) =>(4 5)
(defn lefts
"Returns a seq of the left siblings of this loc"
{:added "1.0"}
[loc]
(seq (:l (loc 1))))
Comments top
No comments for lefts. Log in to add a comment.