Improve recursive-reverse

src/koans/14_recursion.clj

@@ -14,10 +14,10 @@
       (recur (dec n) (not acc)))))
 
 (defn recursive-reverse [coll]
-  (loop [coll coll  acc '()]
-    (if (= coll [])
-      acc
-      (recur (rest coll)  (conj acc (first coll))))))
+  (loop [[head & tail] coll new-coll '()]
+    (if-not head
+      new-coll
+      (recur tail (conj new-coll head)))))
 
 (defn factorial [n]
   (loop [n n acc n]