Add q44

src/ex/q044.clj

@@ -0,0 +1,10 @@
+;; https://4clojure.oxal.org/#/problem/044
+
+(ns ex.q044)
+
+(defn ans
+  "Problem 44, Rotate Sequence"
+  [x coll]
+  (let [len (count coll),
+        n (mod x len)]
+    (concat (drop n coll) (take n coll))))

test/ex/q044_test.clj

@@ -0,0 +1,13 @@
+;; https://4clojure.oxal.org/#/problem/044
+
+(ns ex.q044-test
+  (:require [clojure.test :as t]
+            [ex.q044 :as sut]))
+
+(t/deftest test-q44
+  (t/testing "Problem 44, Rotate Sequence"
+    (t/is (= '(3 4 5 1 2) (sut/ans 2 [1 2 3 4 5])))
+    (t/is (= '(4 5 1 2 3) (sut/ans -2 [1 2 3 4 5])))
+    (t/is (= '(2 3 4 5 1) (sut/ans 6 [1 2 3 4 5])))
+    (t/is (= '(:b :c :a) (sut/ans 1 '(:a :b :c))))
+    (t/is (= '(:c :a :b) (sut/ans -4 '(:a :b :c))))))