Discord Server: Clojure Study Group Solution #1

eviscerate-sequence_test.clj

(ns eviscerate-sequence-test
  (:require [clojure.test :refer [deftest is run-tests]]))

(defn eviscerate-sequence
  ([xs n] (eviscerate-sequence xs n n))
  ([xs n m]
   (let [v (vec xs)]
     (concat (subvec v 0 n) (subvec v (inc m))))))

(deftest eviscerate-sequence-test
  (is (= (eviscerate-sequence '(1 2 3 4 5) 2) '(1 2 4 5)))
  (is (= (eviscerate-sequence [:a :b :c :d :e [:a :b] :f] 1 4) [:a [:a :b] :f])))

(run-tests *ns*)