발렌타인 데이

type Season
    = Spring
    | Summer
    | Autumn
    | Winter

type FlexibleNumber
    = Integer Int
    | Float Float
    | Invalid

integerTwo = Integer 2
invalid = FlexibleNumber.Invalid

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

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

        Invalid   ->
            "Invalid"

지침

이 연습 문제는 발렌타인데이를 배경으로 해요. 함께 즐거운 일을 하려고 파트너와 계획을 세우는 중이에요.

파트너는 아이디어가 아주 많아요. 그래서 함께 할 활동을 정하기 위해, 이제 그 아이디어들을 평가해 달라고 해요.

파트너가 제안한 아이디어는 다음과 같아요:

• 보드게임 하기
• 느긋하게 쉬기
• 영화 보기
• 레스토랑에 가기

발렌타인데이 활동을 고르는 데 도움이 될 여섯 개의 과제가 있어요.

1. 승인 정의하기

파트너가 제안한 각 아이디어에 대해 예, 아니요, 어쩌면 중 하나로 답해요.

이런 선택지를 다음 세 가지 케이스로 나타내는 Approval 사용자 정의 타입을 정의해요: Yes, No, Maybe.

2. 요리 종류 정의하기

파트너는 레스토랑 두 곳을 골랐어요. 하나는 한국 요리를, 다른 하나는 터키 요리를 하는 곳이에요.

이 요리 종류를 다음 두 가지 케이스로 나타내는 Cuisine 사용자 정의 타입을 정의해요: Korean, Turkish.

3. 영화 장르 정의하기

고를 수 있는 영화가 정말 많아요. 그래서 선택의 폭을 좁히려고 파트너는 장르도 함께 알려 줬어요.

다음 장르를 케이스로 나타내는 Genre 사용자 정의 타입을 정의해요: Crime, Horror, Romance, Thriller.

4. 활동 정의하기

앞서 말했듯이, 파트너는 보드게임 하기, 느긋하게 쉬기, 영화 보기, 레스토랑에 가기 이렇게 다섯 가지 서로 다른 활동을 떠올렸어요.

이런 활동 유형을 나타내는 Activity 사용자 정의 타입을 정의해요:

• BoardGame: 연관 데이터가 없어요.
• Chill: 연관 데이터가 없어요.
• Movie: Genre를 연관 데이터로 가지고 있어요.
• Restaurant: Cuisine을 연관 데이터로 가지고 있어요.

5. 활동 평가하기

드디어 파트너의 아이디어를 평가할 준비가 됐어요. 파트너의 아이디어에 대한 생각은 다음과 같아요:

• 보드게임 하기: 아니요.
• 느긋하게 쉬기: 아니요.
• 영화 보기: 로맨스 영화라면 예, 그렇지 않으면 아니요.
• 레스토랑에 가기: 한국 요리라면 예, 터키 요리라면 어쩌면.

위에 적은 대로 Activity 값을 받아 Approval을 반환하는 rateActivity 함수를 구현해요:

rateActivity (Restaurant Turkish)
-- => Maybe