From 5e91a50eb28a292eb56b8d5e5a268c115ffdc86d Mon Sep 17 00:00:00 2001 From: Louis Pilfold Date: Wed, 20 Dec 2023 15:20:27 +0000 Subject: List lessons --- lessons/src/lesson029_pattern_aliases/code.gleam | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 lessons/src/lesson029_pattern_aliases/code.gleam (limited to 'lessons/src/lesson029_pattern_aliases/code.gleam') diff --git a/lessons/src/lesson029_pattern_aliases/code.gleam b/lessons/src/lesson029_pattern_aliases/code.gleam new file mode 100644 index 0000000..ee40a26 --- /dev/null +++ b/lessons/src/lesson029_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) + [] -> [] + } +} -- cgit v1.2.3