28:T507,# Hints ## 1. Define the approval - [This page][define] shows how to define a discriminated union. ## 4. Define the activity - [This page][define] shows how to define a discriminated union, both for cases with and without associated data. ## 5. Rate the activity - The best way to execute logic based on the activity's value is to use [pattern matching][pattern-matching]. - The pattern to match discriminated union cases (and optionally, their associated data) is through [identifier patterns][identifier-patterns]. - If you want to add an additional condition to a pattern, you can add a [guard][guards]. - If you want to catch more than one value at once, you can use a [wildcard pattern][wildcard-patterns]. [define]: https://docs.microsoft.com/en-us/dotnet/fsharp/language-reference/discriminated-unions#remarks [pattern-matching]: https://docs.microsoft.com/en-us/dotnet/fsharp/language-reference/pattern-matching [identifier-patterns]: https://docs.microsoft.com/en-us/dotnet/fsharp/language-reference/pattern-matching#identifier-patterns [wildcard-patterns]: https://docs.microsoft.com/en-us/dotnet/fsharp/language-reference/pattern-matching#wildcard-pattern [guards]: https://docs.microsoft.com/en-us/dotnet/fsharp/language-reference/match-expressions#guards-on-patterns 29:T52e,module ValentinesDayTests open FsUnit.Xunit open Xunit open ValentinesDay [] let ``Rate board game``() = rateActivity BoardGame |> should equal No [] let ``Rate chilling``() = rateActivity Chill |> should equal No [] let ``Rate crime movie``() = rateActivity (Movie Crime) |> should equal No [] let ``Rate horror movie``() = rateActivity (Movie Horror) |> should equal No [] let ``Rate romance movie``() = rateActivity (Movie Romance) |> should equal Yes [] let ``Rate thriller movie``() = rateActivity (Movie Thriller) |> should equal No [] let ``Rate Korean restaurant``() = rateActivity (Restaurant Korean) |> should equal Yes [] let ``Rate Turkish restaurant``() = rateActivity (Restaurant Turkish) |> should equal Maybe [] let ``Rate walk of 1 kilometer``() = rateActivity (Walk 1) |> should equal Yes [] let ``Rate walk of 2 kilometers``() = rateActivity (Walk 2) |> should equal Yes [] let ``Rate walk of 3 kilometers``() = rateActivity (Walk 3) |> should equal Maybe [] let ``Rate walk of 4 kilometers``() = rateActivity (Walk 4) |> should equal Maybe [] let ``Rate walk of 5 kilometers``() = rateActivity (Walk 5) |> should equal No [] let ``Rate walk over 5 kilometers``() = rateActivity (Walk 8) |> should equal No