Added Gleam Triple

Author: Undalevein

gleam/src/triple.gleam

@@ -0,0 +1,24 @@
+import gleam/list
+import gleam/int
+import gleam/io
+import gleam/string
+
+pub fn main() {
+  let print_triple = fn(triple: List(Int)) {
+    triple
+    |> list.map(int.to_string)
+    |> string.join(", ")
+    |> io.println
+  }
+
+  list.range(1, 40) |> list.each( fn(c) {
+    list.range(1, c) |> list.each( fn(b) {
+      list.range(1, b) |> list.each( fn(a) {
+        case {a * a + b * b == c * c} {
+          True -> print_triple([a, b, c])
+          False -> Nil
+        }
+      })
+    })
+  })
+}

gleam/src/triple_pipelines.gleam

@@ -0,0 +1,38 @@
+import gleam/float
+import gleam/list
+import gleam/int
+import gleam/io
+import gleam/result
+import gleam/string
+
+pub fn main() {
+
+  let valid_triple = fn(triple: List(Int)) { 
+    let target = triple
+    |> list.last
+    |> result.unwrap(0)
+    |> int.to_float  
+    
+    triple
+    |> list.map(fn(n) { n * n })
+    |> int.sum
+    |> int.to_float
+    |> float.divide(by: 2.0)
+    |> result.unwrap(0.0)
+    |> float.square_root
+    |> result.unwrap(0.0)
+    |> float.loosely_equals(with: target, tolerating: 0.0)
+  }
+
+  let print_triple = fn(triple: List(Int)) {
+    triple
+    |> list.map(int.to_string)
+    |> string.join(", ")
+    |> io.println
+  }
+
+  list.range(1, 40)
+  |> list.combinations(3)
+  |> list.filter(valid_triple)
+  |> list.each(print_triple)
+}

gleam/src/unqualified_imports.gleam

@@ -1,6 +1,6 @@
-import gleam/io
+import gleam/io.{println}
 
 pub fn main() {
-    io.println("Hello Sandra!")
-    io.println("Hello to you too, Bob!")
+    println("Hello Sandra!")
+    println("Hello to you too, Bob!")
 }

gleam/test.ps1

@@ -20,6 +20,12 @@ gleam run -m factorial &&
 gleam run -m generics &&
 gleam run -m hello &&
 gleam run -m pipelines &&
+gleam run -m triple_pipelines |
+    Compare-Object (Get-Content "$PSScriptRoot\..\test\triple_expected") |
+    Assert-MatchTests &&
+gleam run -m triple |
+    Compare-Object (Get-Content "$PSScriptRoot\..\test\triple_expected") |
+    Assert-MatchTests &&
 gleam run -m unqualified_imports &&
 ForEach-Object 'foo';