hans-4clojure-solution44.clj

;; hans's solution to Rotate Sequence
;; https://4clojure.com/problem/44

(fn [rot xs]
  (let [rot (mod rot (count xs))
        rot (if (neg? rot) (+ (count xs) rot) rot)]
    (loop [rot rot at-end [] x (first xs) xs (rest xs)]
      (if (= rot 0)
        (concat (cons x xs) at-end)
        (recur (dec rot) (conj at-end x) (first xs) (rest xs))))))