fix: Reworked naming

Author: pendletong

src/gleam/list.gleam

@@ -1839,30 +1839,30 @@ pub fn permutations(list: List(a)) -> List(List(a)) {
   }
 }
 
-fn zipper(l: List(a), r: List(a), acc: List(List(a))) -> List(List(a)) {
-  case l {
+fn zipper(list: List(a), rest: List(a), acc: List(List(a))) -> List(List(a)) {
+  case list {
     [] -> reverse(acc)
-    [h, ..rest] ->
-      zipprepend(
-        h,
-        permutations(reverse_and_prepend(r, rest)),
-        rest,
-        [h, ..r],
+    [el, ..tail] ->
+      zip_prepend(
+        el,
+        permutations(reverse_and_prepend(rest, tail)),
+        tail,
+        [el, ..rest],
         acc,
       )
   }
 }
 
-fn zipprepend(
+fn zip_prepend(
   el: a,
-  l1: List(List(a)),
-  l2: List(a),
-  l3: List(a),
+  permutations: List(List(a)),
+  list_1: List(a),
+  list_2: List(a),
   acc: List(List(a)),
 ) -> List(List(a)) {
-  case l1 {
-    [] -> zipper(l2, l3, acc)
-    [h, ..rest] -> zipprepend(el, rest, l2, l3, [[el, ..h], ..acc])
+  case permutations {
+    [] -> zipper(list_1, list_2, acc)
+    [h, ..rest] -> zip_prepend(el, rest, list_1, list_2, [[el, ..h], ..acc])
   }
 }