Added pattern matching and type enum

Author: Undalevein

gleam/src/pattern_matching.gleam

@@ -0,0 +1,34 @@
+import gleam/int
+
+// Currently unicode character is not supported in grammar :(
+pub type FrenchMonth {
+  Janvier
+  Fevrier
+  Mars
+  Avril
+  Mai
+  Juin
+  Juillet
+  Aout 
+  Septembre
+  Octobre
+  Novembre
+  Decembre
+}
+
+pub fn main() {
+  let month1 = Aout
+  let month2 = Novembre
+  let month3 = Fevrier
+  echo "This month most likely has " <> int.to_string(get_total_days(month1)) <> " days."
+  echo "This month most likely has " <> int.to_string(get_total_days(month2)) <> " days."
+  echo "This month most likely has " <> int.to_string(get_total_days(month3)) <> " days."
+}
+
+pub fn get_total_days(month) {
+  case month {
+    Janvier | Mars | Mai | Juillet | Aout | Octobre | Decembre -> 31
+    Avril | Juin | Septembre | Novembre -> 30
+    Fevrier -> 28
+  }
+}

gleam/src/type_enum.gleam

@@ -0,0 +1,35 @@
+import gleam/float
+import gleam/list
+import gleam/result
+
+pub type Direction {
+  North
+  East
+  South
+  West
+}
+
+pub fn main() {
+  let directions = [East, South, South, South, West, North, West]
+  let displacement = get_displacement(directions)
+  echo "Your displacement is " <> float.to_string(displacement)
+}
+
+pub fn get_displacement(directions) {
+  let point = directions
+  |> list.map ( fn(direction) {
+    case direction {
+      North -> #(0.0,1.0)
+      East  -> #(1.0,0.0)
+      South -> #(0.0,-1.0)
+      West  -> #(-1.0,0.0)
+    }
+  })
+  |> list.reduce( fn(p1, p2) {
+    #(p1.0 +. p2.0, p1.1 +. p2.1)
+  })
+  |> result.unwrap(#(0.0,0.0))
+  
+  float.square_root(point.0 *. point.0 +. point.1 *. point.1)
+  |> result.unwrap(0.0)
+}

gleam/test.ps1

@@ -25,6 +25,7 @@ gleam run -m clockhands |
 gleam run -m factorial &&
 gleam run -m generics &&
 gleam run -m hello &&
+gleam run -m pattern_matching &&
 gleam run -m permutations I like carrots |
     Compare-Object (Get-Content "$PSScriptRoot\..\test\carrots_expected") |
     Assert-MatchTests &&
@@ -36,6 +37,7 @@ gleam run -m triple_pipelines |
 gleam run -m triple |
     Compare-Object (Get-Content "$PSScriptRoot\..\test\triple_expected") |
     Assert-MatchTests &&
+gleam run -m type_enum &&
 gleam run -m unqualified_imports &&
 ForEach-Object 'foo';