Added ses

Author: Undalevein

gleam/src/sum_of_even_squares.gleam

@@ -0,0 +1,18 @@
+import gleam/int
+import gleam/list
+
+fn sum_of_even_squares(a: List(Int)) {
+  a
+  |> list.filter(int.is_even)
+  |> list.map(fn(n) { n * n })
+  |> int.sum
+}
+
+pub fn main() {
+  let assert 0 = sum_of_even_squares([])
+  let assert 0 = sum_of_even_squares([1])
+  let assert 4 = sum_of_even_squares([1,2])
+  let assert 4 = sum_of_even_squares([1,2,3])
+  let assert 20 = sum_of_even_squares([1,2,3,4])
+  let assert 56 = sum_of_even_squares([4,6,7,2])
+}

gleam/test.ps1

@@ -20,6 +20,7 @@ gleam run -m factorial &&
 gleam run -m generics &&
 gleam run -m hello &&
 gleam run -m pipelines &&
+gleam run -m sum_of_even_squares &&
 gleam run -m triple_pipelines |
     Compare-Object (Get-Content "$PSScriptRoot\..\test\triple_expected") |
     Assert-MatchTests &&