diff options
| -rw-r--r-- | src/List.gleam | 22 | ||||
| -rw-r--r-- | src/Order.gleam | 3 |
2 files changed, 17 insertions, 8 deletions
diff --git a/src/List.gleam b/src/List.gleam index 216cd9c..acd349c 100644 --- a/src/List.gleam +++ b/src/List.gleam @@ -1,11 +1,13 @@ import Result:Result:* +import Bool:Bool:* pub type Err = | Empty +; // Using the Erlang C BIF implementation. // -external fn length(List(a)) { Int } = 'erlang' 'length' +pub external fn length(List(a)) { Int } = 'erlang' 'length' test length { length([]) |> Assert.equal(_, 0) @@ -150,6 +152,7 @@ test drop/2 { [] |> drop(_, 5) |> Assert.equal(_, []) + [1, 2, 3, 4, 5, 6, 7, 8] |> drop(_, 5) |> Assert.equal(_, [6, 7, 8]) @@ -201,10 +204,17 @@ pub fn flatten(lists) { } test flatten() { - flatten([]) |> Assert.equal(_, []) - flatten([[]]) |> Assert.equal(_, []) - flatten([[], [], []]) |> Assert.equal(_, []) - flatten([[1, 2], [], [3, 4]]) |> Assert.equal(_, [1, 2, 3, 4]) + flatten([]) + |> Assert.equal(_, []) + + flatten([[]]) + |> Assert.equal(_, []) + + flatten([[], [], []]) + |> Assert.equal(_, []) + + flatten([[1, 2], [], [3, 4]]) + |> Assert.equal(_, [1, 2, 3, 4]) } fn do_flatten(lists, acc) { @@ -236,6 +246,6 @@ pub fn foldr(list, acc, fun) { test foldr() { [1, 2, 3] - |> foldr(_, [], |x, acc| x :: acc) + |> foldr(_, [], fn(x, acc) { x :: acc }) |> Assert.equal(_, [1, 2, 3]) } diff --git a/src/Order.gleam b/src/Order.gleam index 3152d33..34e0dcc 100644 --- a/src/Order.gleam +++ b/src/Order.gleam @@ -2,11 +2,10 @@ type Order = | LT | EQ | GT +; import Order:* -; // Fix GitHub syntax highlighting - pub fn reverse(order) { case order { | LT => GT |