list:range

2 files changed, 12 insertions, 1 deletions

diff --git a/src/bool.gleam b/src/bool.gleam
index d1d9ac4..46cca60 100644
--- a/src/bool.gleam
+++ b/src/bool.gleam
@@ -12,7 +12,7 @@ pub fn negate(bool) {
 //   | {True, True} -> order:Eq
 //   | {True, False} -> order:Gt
 //   | {False, False} -> order:Eq
-//   | {False, True} -> order:Gt
+//   | {False, True} -> order:Lt
 //   }
 // }
 
diff --git a/src/list.gleam b/src/list.gleam
index 6bcebb2..dd8fb8a 100644
--- a/src/list.gleam
+++ b/src/list.gleam
@@ -1,3 +1,6 @@
+import int
+import order
+
 pub enum Empty =
   | Empty
 
@@ -242,3 +245,11 @@ pub fn sort(list) {
     merge_sort(sort(a_list), sort(b_list))
   }
 }
+
+pub fn range(start, stop) {
+  case int:compare(start, stop) {
+  | order:Eq -> []
+  | order:Gt -> [start | range(start - 1, stop)]
+  | order:Lt -> [start | range(start + 1, stop)]
+  }
+}