From 374e2d9f4a5c89d3da9d23de3e742c5bc1d47f71 Mon Sep 17 00:00:00 2001
From: Marcin Puc <marcin.e.puc@gmail.com>
Date: Mon, 15 Mar 2021 12:34:01 +0100
Subject: Add iterator.intersperse

---
 src/gleam/iterator.gleam | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)

(limited to 'src')

diff --git a/src/gleam/iterator.gleam b/src/gleam/iterator.gleam
index d0cc757..7e767db 100644
--- a/src/gleam/iterator.gleam
+++ b/src/gleam/iterator.gleam
@@ -767,3 +767,43 @@ pub fn sized_chunk(
   |> do_sized_chunk(count)
   |> Iterator
 }
+
+fn do_intersperse(
+  continuation: fn() -> Action(element),
+  separator: element,
+) -> Action(element) {
+  case continuation() {
+    Stop -> Stop
+    Continue(e, next) -> {
+      let next_interspersed = fn() { do_intersperse(next, separator) }
+      Continue(separator, fn() { Continue(e, next_interspersed) })
+    }
+  }
+}
+
+/// Creates an iterator that yields the given element
+/// between elements emitted by the underlying iterator.
+///
+/// ## Examples
+///
+///    > from_list([]) |> intersperse(with: 0) |> to_list
+///    []
+///
+///    > from_list([1]) |> intersperse(with: 0) |> to_list
+///    [1]
+///
+///    > from_list([1, 2, 3, 4, 5]) |> intersperse(with: 0) |> to_list
+///    [1, 0, 2, 0, 3, 0, 4, 0, 5]
+///
+pub fn intersperse(
+  over iterator: Iterator(element),
+  with elem: element,
+) -> Iterator(element) {
+  fn() {
+    case iterator.continuation() {
+      Stop -> Stop
+      Continue(e, next) -> Continue(e, fn() { do_intersperse(next, elem) })
+    }
+  }
+  |> Iterator
+}
-- 
cgit v1.2.3