Fix list-ops test

exercises/practice/list-ops/.meta/src/example.clj

@@ -1,5 +1,11 @@
 (ns list-ops)
 
+(defn foldl [f list init]
+  (loop [acc init l list]
+    (cond
+      (empty? l) acc
+      :else (recur (f acc (first l)) (rest l)))))
+
 (defn append [list1 list2]
   (list-ops/foldl (fn [acc elem] (conj acc elem)) list2 list1))
 
@@ -20,14 +26,9 @@
 
 (defn map [f list]
   (list-ops/foldl (fn [acc elem] (conj acc (f elem))) list []))
-(defn foldl [f list init]
-  (loop [acc init l list]
-    (cond
-      (empty? l) acc
-      :else (recur (f acc (first l)) (rest l)))))
+
+(defn reverse [list]
+  (list-ops/foldl (fn [acc elem] (cons elem acc)) list []))
 
 (defn foldr [f list init]
   (list-ops/foldl f (list-ops/reverse list) init))
-
-(defn reverse [list]
-  (list-ops/foldl (fn [acc elem] (cons elem acc)) list []))