valentines-day

valentines-day/.exercism/config.json

@@ -0,0 +1,24 @@
+{
+  "authors": [
+    "lpil"
+  ],
+  "files": {
+    "solution": [
+      "src/valentines_day.gleam"
+    ],
+    "test": [
+      "test/valentines_day_test.gleam"
+    ],
+    "exemplar": [
+      ".meta/example.gleam"
+    ],
+    "invalidator": [
+      "gleam.toml",
+      "manifest.toml"
+    ]
+  },
+  "forked_from": [
+    "fsharp/valentines_day"
+  ],
+  "blurb": "Learn usage of Custom Types while deciding what to do for Valentines Day"
+}

valentines-day/.exercism/metadata.json

@@ -0,0 +1 @@
+{"track":"gleam","exercise":"valentines-day","id":"ad3b546fa58a46488507a8dea261d341","url":"https://exercism.org/tracks/gleam/exercises/valentines-day","handle":"fw353qwgs","is_requester":true,"auto_approve":false}

valentines-day/.gitignore

@@ -0,0 +1,4 @@
+*.beam
+*.ez
+build
+erl_crash.dump

valentines-day/HELP.md

@@ -0,0 +1,32 @@
+# Help
+
+## Running the tests
+
+To run the tests, run the command `gleam test` from within the exercise directory.
+
+## Submitting your solution
+
+You can submit your solution using the `exercism submit src/valentines_day.gleam` command.
+This command will upload your solution to the Exercism website and print the solution page's URL.
+
+It's possible to submit an incomplete solution which allows you to:
+
+- See how others have completed the exercise
+- Request help from a mentor
+
+## Need to get help?
+
+If you'd like help solving the exercise, check the following pages:
+
+- The [Gleam track's documentation](https://exercism.org/docs/tracks/gleam)
+- The [Gleam track's programming category on the forum](https://forum.exercism.org/c/programming/gleam)
+- [Exercism's programming category on the forum](https://forum.exercism.org/c/programming/5)
+- The [Frequently Asked Questions](https://exercism.org/docs/using/faqs)
+
+Should those resources not suffice, you could submit your (incomplete) solution to request mentoring.
+
+To get help if you're having trouble, you can use one of the following resources:
+
+- [gleam.run](https://gleam.run/documentation/) is the gleam official documentation.
+- [Discord](https://discord.gg/Fm8Pwmy) is the discord channel.
+- [StackOverflow](https://stackoverflow.com/questions/tagged/gleam) can be used to search for your problem and see if it has been answered already. You can also ask and answer questions.

valentines-day/HINTS.md

@@ -0,0 +1,14 @@
+# Hints
+
+## 1. Define the approval
+
+- Custom types can be defined using the `pub type Name { Variant1 }` syntax.
+
+## 4. Define the activity
+
+- Custom types containing data can be defined using the `pub type Name { Variant1(SomeType) }` syntax.
+
+## 5. Rate the activity
+
+- Custom type variants can be pattern matched on using case expressions.
+- If you want to add an additional condition to a pattern, you can add a guard to the pattern using the `if` keyword.

valentines-day/README.md

@@ -0,0 +1,128 @@
+# Valentine's Day
+
+Welcome to Valentine's Day on Exercism's Gleam Track.
+If you need help running the tests or submitting your code, check out `HELP.md`.
+If you get stuck on the exercise, check out `HINTS.md`, but try and solve it without using those first :)
+
+## Introduction
+
+## Custom Types
+
+Custom Types are how new data types are defined in Gleam. They can have multiple _variants_, each with their own name.
+
+```gleam
+pub type Season {
+  Spring
+  Summer
+  Autumn
+  Winter
+}
+```
+
+Each case of a custom type can optionally hold some data, and different cases can have different types of data. When a variant holds data it is called a _record_.
+
+```gleam
+pub type Number {
+  SomeInt(Int)
+  SomeFloat(Float)
+  Invalid
+}
+```
+
+Creating a value for a specific case can be done by referring to its name if it contains no additional data (`Spring`), or by calling it as a function if it does (`SomeInt(2)`).
+
+```gleam
+let spring = Spring
+let integerTwo = SomeInt(2)
+```
+
+Custom types, along with everything in Gleam, have _structural equality_, which means that two values of the same variant and with the same data are equivalent.
+
+```gleam
+Spring == Spring // -> True
+Spring == Autumn // -> False
+SomeInt(2) == SomeInt(2) // -> True
+SomeInt(2) == SomeFloat(2.0) // -> False
+```
+
+Custom type variants can be pattern matched on using case expressions.
+
+```gleam
+import gleam/int
+import gleam/float
+
+pub fn describe(flexible_number: Number) -> String {
+  case flexible_number {
+    SomeFloat(f) -> "Float: " <> float.to_string(f)
+    SomeInt(i) -> "Int: " <> int.to_string(i)
+    Invalid -> "Neither a float nor an int"
+  }
+}
+```
+
+## Instructions
+
+In this exercise, it's Valentine's day and you and your partner are planning on doing something nice together. Your partner has lots of ideas, and is now asking you to rate the ideas, in order to find the activity to engage in.
+
+The following ideas are proposed by your partner:
+
+- Playing a board game
+- Chill out
+- Watch a movie
+- Go to a restaurant
+- Take a walk
+
+You have six tasks to help choose your Valentine's day activity.
+
+## 1. Define the approval
+
+For each idea your partner proposes, you respond with one of three options: yes, no or maybe.
+
+Define the `Approval` custom type to represent these options as the following three cases: `Yes`, `No` and `Maybe`.
+
+## 2. Define the cuisines
+
+Your partner has selected two possible restaurants: one based on the Korean cuisine and the other based on the Turkish cuisine.
+
+Define the `Cuisine` custom type to represent these cuisines as the following two cases: `Korean` and `Turkish`.
+
+## 3. Define the movie genres
+
+There are tons of movies to choose from, so to narrow things down, your partner also lists their genre.
+
+Define the `Genre` custom type to represent the following genres as cases: `Crime`, `Horror`, `Romance` and `Thriller`.
+
+## 4. Define the activity
+
+As said, your partner has come up with five different activities: playing a board game, chill out, watch a movie, go to a restaurant and taking a walk.
+
+Define the `Activity` custom type to represent these activity types:
+
+- `BoardGame`: no associated data.
+- `Chill`: no associated data.
+- `Movie`: has its `Genre` as associated data.
+- `Restaurant`: has its `Cuisine` as associated data.
+- `Walk`: has an `Int` representing the number of kilometers to walk as associated data.
+
+## 5. Rate the activity
+
+Finally, you're ready to rate your partner's ideas. This is how you feel about your partner's idea:
+
+- Playing a board game: no.
+- Chill out: no.
+- Watch a movie: yes if it is a romantic movie; otherwise, no.
+- Go to a restaurant: yes if the cuisine is Korean, maybe if it is Turkish.
+- Take a walk: yes if the walk is more than eleven kilometers; maybe if it is more than six kilometers; otherwise, no.
+
+Implement a function named `rate_activity` that takes an `Activity` value and returns the `Approval` based on the above sentiments:
+
+```gleam
+rate_activity(Restaurant(Turkish))
+// -> Maybe
+```
+
+## Source
+
+### Created by
+
+- @lpil

valentines-day/gleam.toml

@@ -0,0 +1,14 @@
+name = "valentines_day"
+version = "0.1.0"
+
+[dependencies]
+gleam_otp = "~> 0.7 or ~> 1.0"
+gleam_stdlib = ">= 0.54.0 or ~> 1.0"
+simplifile = "~> 1.0"
+gleam_erlang = ">= 0.25.0 and < 1.0.0"
+gleam_yielder = ">= 1.1.0 and < 2.0.0"
+gleam_regexp = ">= 1.1.0 and < 2.0.0"
+gleam_deque = ">= 1.0.0 and < 2.0.0"
+
+[dev-dependencies]
+exercism_test_runner = "~> 1.9"

valentines-day/manifest.toml

@@ -0,0 +1,31 @@
+# This file was generated by Gleam
+# You typically do not need to edit this file
+
+packages = [
+  { name = "argv", version = "1.0.2", build_tools = ["gleam"], requirements = [], otp_app = "argv", source = "hex", outer_checksum = "BA1FF0929525DEBA1CE67256E5ADF77A7CDDFE729E3E3F57A5BDCAA031DED09D" },
+  { name = "exercism_test_runner", version = "1.9.0", build_tools = ["gleam"], requirements = ["argv", "gap", "glance", "gleam_community_ansi", "gleam_erlang", "gleam_json", "gleam_stdlib", "simplifile"], otp_app = "exercism_test_runner", source = "hex", outer_checksum = "0B17BB25F2FF1E60266467C24FE0CA04005410306AA05E9A4B41B1852D72865C" },
+  { name = "filepath", version = "1.1.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "filepath", source = "hex", outer_checksum = "67A6D15FB39EEB69DD31F8C145BB5A421790581BD6AA14B33D64D5A55DBD6587" },
+  { name = "gap", version = "1.1.3", build_tools = ["gleam"], requirements = ["gleam_community_ansi", "gleam_stdlib"], otp_app = "gap", source = "hex", outer_checksum = "6EF5E3B523FDFBC317E9EA28D5163EE04744A97C007106F90207569789612291" },
+  { name = "glance", version = "1.1.0", build_tools = ["gleam"], requirements = ["gleam_stdlib", "glexer"], otp_app = "glance", source = "hex", outer_checksum = "E155BA1A787FD11827048355021C0390D2FE9A518485526F631A9D472858CC6D" },
+  { name = "gleam_community_ansi", version = "1.4.3", build_tools = ["gleam"], requirements = ["gleam_community_colour", "gleam_regexp", "gleam_stdlib"], otp_app = "gleam_community_ansi", source = "hex", outer_checksum = "8A62AE9CC6EA65BEA630D95016D6C07E4F9973565FA3D0DE68DC4200D8E0DD27" },
+  { name = "gleam_community_colour", version = "2.0.0", build_tools = ["gleam"], requirements = ["gleam_json", "gleam_stdlib"], otp_app = "gleam_community_colour", source = "hex", outer_checksum = "FDD6AC62C6EC8506C005949A4FCEF032038191D5EAAEC3C9A203CD53AE956ACA" },
+  { name = "gleam_deque", version = "1.0.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_deque", source = "hex", outer_checksum = "64D77068931338CF0D0CB5D37522C3E3CCA7CB7D6C5BACB41648B519CC0133C7" },
+  { name = "gleam_erlang", version = "0.34.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_erlang", source = "hex", outer_checksum = "0C38F2A128BAA0CEF17C3000BD2097EB80634E239CE31A86400C4416A5D0FDCC" },
+  { name = "gleam_json", version = "2.3.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_json", source = "hex", outer_checksum = "C55C5C2B318533A8072D221C5E06E5A75711C129E420DD1CE463342106012E5D" },
+  { name = "gleam_otp", version = "0.16.1", build_tools = ["gleam"], requirements = ["gleam_erlang", "gleam_stdlib"], otp_app = "gleam_otp", source = "hex", outer_checksum = "50DA1539FC8E8FA09924EB36A67A2BBB0AD6B27BCDED5A7EF627057CF69D035E" },
+  { name = "gleam_regexp", version = "1.1.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_regexp", source = "hex", outer_checksum = "7F5E0C0BBEB3C58E57C9CB05FA9002F970C85AD4A63BA1E55CBCB35C15809179" },
+  { name = "gleam_stdlib", version = "0.55.0", build_tools = ["gleam"], requirements = [], otp_app = "gleam_stdlib", source = "hex", outer_checksum = "32D8F4AE03771516950047813A9E359249BD9FBA5C33463FDB7B953D6F8E896B" },
+  { name = "gleam_yielder", version = "1.1.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_yielder", source = "hex", outer_checksum = "8E4E4ECFA7982859F430C57F549200C7749823C106759F4A19A78AEA6687717A" },
+  { name = "glexer", version = "2.2.1", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "glexer", source = "hex", outer_checksum = "5C235CBDF4DA5203AD5EAB1D6D8B456ED8162C5424FE2309CFFB7EF438B7C269" },
+  { name = "simplifile", version = "1.7.0", build_tools = ["gleam"], requirements = ["filepath", "gleam_stdlib"], otp_app = "simplifile", source = "hex", outer_checksum = "1D5DFA3A2F9319EC85825F6ED88B8E449F381B0D55A62F5E61424E748E7DDEB0" },
+]
+
+[requirements]
+exercism_test_runner = { version = "~> 1.9" }
+gleam_deque = { version = ">= 1.0.0 and < 2.0.0" }
+gleam_erlang = { version = ">= 0.25.0 and < 1.0.0" }
+gleam_otp = { version = "~> 0.7 or ~> 1.0" }
+gleam_regexp = { version = ">= 1.1.0 and < 2.0.0" }
+gleam_stdlib = { version = ">= 0.54.0 or ~> 1.0" }
+gleam_yielder = { version = ">= 1.1.0 and < 2.0.0" }
+simplifile = { version = "~> 1.0" }

valentines-day/src/valentines_day.gleam

@@ -0,0 +1,51 @@
+import gleam/otp/static_supervisor
+
+// TODO: please define the 'Approval' custom type
+pub type Approval {
+  Yes
+  No
+  Maybe
+}
+
+pub type Cuisine {
+  Korean
+  Turkish
+}
+
+pub type Genre {
+  Crime
+  Horror
+  Romance
+  Thriller
+}
+
+pub type Activity {
+  BoardGame
+  Chill
+  Movie(Genre)
+  Restaurant(Cuisine)
+  Walk(Int)
+}
+
+pub fn rate_activity(activity: Activity) -> Approval {
+  case activity {
+    BoardGame -> No
+    Chill -> No
+    Movie(genre) ->
+      case genre {
+        Romance -> Yes
+        _ -> No
+      }
+    Restaurant(cuisine) ->
+      case cuisine {
+        Korean -> Yes
+        Turkish -> Maybe
+      }
+    Walk(length) ->
+      case length {
+        length if length > 11 -> Yes
+        length if length > 6 -> Maybe
+        _ -> No
+      }
+  }
+}

valentines-day/test/valentines_day_test.gleam

@@ -0,0 +1,75 @@
+import exercism/should
+import exercism/test_runner
+import valentines_day.{
+  BoardGame, Chill, Crime, Horror, Korean, Maybe, Movie, No, Restaurant, Romance,
+  Thriller, Turkish, Walk, Yes,
+}
+
+pub fn main() {
+  test_runner.main()
+}
+
+pub fn rate_board_game_test() {
+  valentines_day.rate_activity(BoardGame)
+  |> should.equal(No)
+}
+
+pub fn rate_chilling_test() {
+  valentines_day.rate_activity(Chill)
+  |> should.equal(No)
+}
+
+pub fn rate_crime_movie_test() {
+  valentines_day.rate_activity(Movie(Crime))
+  |> should.equal(No)
+}
+
+pub fn rate_horror_movie_test() {
+  valentines_day.rate_activity(Movie(Horror))
+  |> should.equal(No)
+}
+
+pub fn rate_romance_movie_test() {
+  valentines_day.rate_activity(Movie(Romance))
+  |> should.equal(Yes)
+}
+
+pub fn rate_thriller_movie_test() {
+  valentines_day.rate_activity(Movie(Thriller))
+  |> should.equal(No)
+}
+
+pub fn rate_korean_restaurant_test() {
+  valentines_day.rate_activity(Restaurant(Korean))
+  |> should.equal(Yes)
+}
+
+pub fn rate_turkish_restaurant_test() {
+  valentines_day.rate_activity(Restaurant(Turkish))
+  |> should.equal(Maybe)
+}
+
+pub fn rate_walk_of_12_kilometer_test() {
+  valentines_day.rate_activity(Walk(12))
+  |> should.equal(Yes)
+}
+
+pub fn rate_walk_of_13_kilometers_test() {
+  valentines_day.rate_activity(Walk(13))
+  |> should.equal(Yes)
+}
+
+pub fn rate_walk_of_11_kilometers_test() {
+  valentines_day.rate_activity(Walk(11))
+  |> should.equal(Maybe)
+}
+
+pub fn rate_walk_of_7_kilometers_test() {
+  valentines_day.rate_activity(Walk(7))
+  |> should.equal(Maybe)
+}
+
+pub fn rate_walk_of_6_kilometers_test() {
+  valentines_day.rate_activity(Walk(6))
+  |> should.equal(No)
+}