diff options
Diffstat (limited to 'gen')
| -rw-r--r-- | gen/src/gleam@list.erl | 8 | ||||
| -rw-r--r-- | gen/src/gleam@order.erl | 6 |
2 files changed, 7 insertions, 7 deletions
diff --git a/gen/src/gleam@list.erl b/gen/src/gleam@list.erl index 291bd7f..4e3a60d 100644 --- a/gen/src/gleam@list.erl +++ b/gen/src/gleam@list.erl @@ -214,16 +214,16 @@ any(List, F) -> end end. -zip(L1, L2) -> - case {L1, L2} of +zip(Xs, Ys) -> + case {Xs, Ys} of {[], _} -> []; {_, []} -> []; - {[X1 | Rest1], [X2 | Rest2]} -> - [{X1, X2} | zip(Rest1, Rest2)] + {[X | Xs1], [Y | Ys1]} -> + [{X, Y} | zip(Xs1, Ys1)] end. strict_zip(L1, L2) -> diff --git a/gen/src/gleam@order.erl b/gen/src/gleam@order.erl index 9e259ed..45e6474 100644 --- a/gen/src/gleam@order.erl +++ b/gen/src/gleam@order.erl @@ -44,7 +44,7 @@ compare(A, B) -> {eq, gt} -> lt; - _ -> + {_, _} -> gt end. @@ -56,7 +56,7 @@ max(A, B) -> {eq, lt} -> eq; - _ -> + {_, _} -> B end. @@ -68,6 +68,6 @@ min(A, B) -> {eq, gt} -> eq; - _ -> + {_, _} -> B end. |