function | removed v0.0-1424 | added v0.0-1211 | Edit |
(vector-seq v offset)
(defn vector-seq [v offset]
(let [c (-count v)]
(when (pos? c)
(reify
IPrintable
(-pr-seq [vseq opts] (pr-sequential pr-seq "(" " " ")" opts vseq))
ISequential
IEquiv
(-equiv [vseq other] (equiv-sequential vseq other))
ASeq
ISeq
(-first [_] (-nth v offset))
(-rest [_]
(let [offset (inc offset)]
(if (< offset c)
(vector-seq v offset)
())))
ISeqable
(-seq [vseq] vseq)))))