Move recursion lessons together

1 files changed, 15 insertions, 0 deletions

diff --git a/src/content/chapter2_flow_control/lesson10_pattern_aliases/code.gleam b/src/content/chapter2_flow_control/lesson10_pattern_aliases/code.gleam
new file mode 100644
index 0000000..ee40a26
--- /dev/null
+++ b/src/content/chapter2_flow_control/lesson10_pattern_aliases/code.gleam
@@ -0,0 +1,15 @@
+import gleam/io
+
+pub fn main() {
+  io.debug(get_first_non_empty([[], [1, 2, 3], [4, 5]]))
+  io.debug(get_first_non_empty([[1, 2], [3, 4, 5], []]))
+  io.debug(get_first_non_empty([[], [], []]))
+}
+
+fn get_first_non_empty(lists: List(List(t))) -> List(t) {
+  case lists {
+    [[_, ..] as first, ..] -> first
+    [_, ..rest] -> get_first_non_empty(rest)
+    [] -> []
+  }
+}