Tracks
/
Elm
Elm
/
Exercises
/
Valentines Day
Valentines Day

Valentines Day

Learning Exercise

Introduction

Custom Types

Custom Types in Elm represent a fixed number of named cases. Each value corresponds to exactly one of the named cases.

A Custom Type is defined using the type keyword and requires very little syntax. They are one of the most important techniques in Elm programming, and are used to make the possible values in code exactly match the valid values in real life, which leaves no room for invalid data, and makes impossible states impossible to represent in the code.

type Season
    = Spring
    | Summer
    | Autumn
    | Winter

Each case of a custom type can optionally have data associated with it, and different cases can have different types of data. If none of the cases have data associated with them, the discriminated union is similar to what other languages usually refer to as an enumeration (or enum).

type FlexibleNumber
    = Integer Int
    | Float Float
    | Invalid

Creating a value for a specific case can be done by referring to its name (Spring), when it is defined in the same module, or is imported with the import SeasonModule exposing (Season(..)) style syntax, or by referring to its fully qualified name (Season.Spring) when imported with import SeasonModule exposing (Season) style syntax.

integerTwo = Integer 2
invalid = FlexibleNumber.Invalid

Custom types, along with everything in Elm, have structural equality, which means that two values for the same case and with the same (optional) data are equivalent.

The preferred way to work with custom types is with pattern matching:

let describe flexibleNumber =
    case flexibleNumber of
        Integer i ->
            "Integer: " ++ fromInt(i)

        Float f ->
            "Float: " ++ fromFloat(f)

        Invalid   ->
            "Invalid"

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

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 and go to a restaurant.

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.

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 is is a romantic movie; otherwise, no.
  • Go to a restaurant: yes if the cuisine is Korean, maybe if it is Turkish.

Implement a function named rateActivity that takes an Activity value and returns the Approval based on the above sentiments:

rateActivity (Restaurant Turkish)
-- => Maybe
Edit via GitHub The link opens in a new window or tab
Elm Exercism

Ready to start Valentines Day?

Sign up to Exercism to learn and master Elm with 22 concepts, 93 exercises, and real human mentoring, all for free.