Make list.unique logarithmic instead of quadratic

src/gleam/list.gleam

@@ -27,6 +27,7 @@ import gleam/float
 import gleam/int
 import gleam/order.{type Order}
 import gleam/pair
+import gleam/set
 
 /// Counts the number of elements in a given list.
 ///
@@ -1151,7 +1152,7 @@ pub fn intersperse(list: List(a), with elem: a) -> List(a) {
 
 /// Removes any duplicate elements from a given list.
 ///
-/// This function returns in loglinear time.
+/// This function returns in logarithmic time.
 ///
 /// ## Examples
 ///
@@ -1161,10 +1162,16 @@ pub fn intersperse(list: List(a), with elem: a) -> List(a) {
 /// ```
 ///
 pub fn unique(list: List(a)) -> List(a) {
-  case list {
-    [] -> []
-    [x, ..rest] -> [x, ..unique(filter(rest, fn(y) { y != x }))]
-  }
+  let #(result_rev, _) =
+    xs
+    |> list.fold(#([], set.new()), fn(acc, x) {
+      let #(result_rev, seen) = acc
+      case set.contains(seen, x) {
+        False -> #([x, ..result_rev], set.insert(seen, x))
+        True -> #(result_rev, seen)
+      }
+    })
+  result_rev |> list.reverse
 }
 
 /// Sorts from smallest to largest based upon the ordering specified by a given