list:range

1 files changed, 11 insertions, 0 deletions

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)]
+  }
+}