diff options
Diffstat (limited to 'gen')
| -rw-r--r-- | gen/src/gleam@list.erl | 10 | ||||
| -rw-r--r-- | gen/src/gleam@order.erl | 8 |
2 files changed, 6 insertions, 12 deletions
diff --git a/gen/src/gleam@list.erl b/gen/src/gleam@list.erl index 3e6d01d..57789ff 100644 --- a/gen/src/gleam@list.erl +++ b/gen/src/gleam@list.erl @@ -253,13 +253,13 @@ strict_zip(L1, L2) -> intersperse(List, Elem) -> case List of [] -> - []; + List; - [X] -> - [X]; + [_] -> + List; - [X1 | Rest] -> - [X1, Elem | intersperse(Rest, Elem)] + [X | Rest] -> + [X, Elem | intersperse(Rest, Elem)] end. at(List, Index) -> diff --git a/gen/src/gleam@order.erl b/gen/src/gleam@order.erl index 45e6474..6306636 100644 --- a/gen/src/gleam@order.erl +++ b/gen/src/gleam@order.erl @@ -29,18 +29,12 @@ to_int(Order) -> compare(A, B) -> case {A, B} of - {lt, lt} -> + {X, Y} when X =:= Y -> eq; {lt, _} -> lt; - {eq, eq} -> - eq; - - {gt, gt} -> - eq; - {eq, gt} -> lt; |