(defn rotations "Returns a lazy seq of all rotations of a seq" [x] (if (seq x) (map (fn [n _] (lazy-cat (drop n x) (take n x))) (iterate inc 0) x) (list nil)))
Comments top
No comments for rotations. Log in to add a comment.