발렌타인 데이

data Season
  = Spring
  | Summer
  | Autumn
  | Winter

data Number
  = NInt Int      --'NInt' is the constructor for an Int Number.
  | NFloat Float  --'NFloat' is the constructor for an Float Number.
  | Invalid       --'Invalid' does not have data associated to it.

add1 :: Number -> String
add1 number =
    case number of
      NInt    i -> show (i + 1)
      NFloat  f -> show (f + 1.0)
      Invalid   -> error "Invalid input"

지침

이 연습 문제에서는 밸런타인데이를 맞아 파트너와 무엇을 할지 계획하고 있어요. 파트너는 아이디어가 아주 많아서, 가장 좋은 활동을 찾기 위해 아이디어를 평가해 달라고 해요.

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

• 보드 게임 하기
• 쉬기
• 영화 보기
• 식당 가기
• 산책하기

밸런타인데이 활동을 고르는 데 도움이 될 여섯 가지 과제가 있어요.

1. 승인 정의하기

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

다음 세 가지 경우를 나타내는 Approval 대수적 데이터 타입을 정의해요: Yes, No, Maybe.

2. 요리 정의하기

파트너는 두 곳의 식당을 골랐어요: 하나는 한국 요리, 다른 하나는 터키 요리예요.

Cuisine 대수적 데이터 타입을 정의해서 이 식당들을 다음 두 가지 경우로 나타내요: Korean 또는 Turkish.

3. 영화 장르 정의하기

고를 수 있는 영화가 정말 많아서, 선택의 폭을 좁히기 위해 파트너는 선호하는 장르도 알려줘요.

Genre 대수적 데이터 타입을 정의해서 다음 장르 경우들을 나타내요: Crime, Horror, Romance 또는 Thriller.

4. 활동 정의하기

앞서 말했듯이, 파트너는 다섯 가지 가능한 활동을 생각해 냈어요: 보드 게임 하기, 쉬기, 영화 보기, 식당 가기, 산책하기.

Activity 대수적 데이터 타입을 정의해서 다음 활동 타입들을 나타내요:

• BoardGame: 연관된 데이터가 없어요.
• Chill: 연관된 데이터가 없어요.
• Movie: Genre를 연관 데이터로 가져요.
• Restaurant: Cuisine을 연관 데이터로 가져요.
• Walk: 걷는 거리(킬로미터)를 나타내는 Int를 연관 데이터로 가져요.

5. 활동 평가하기

이제 파트너의 아이디어를 평가할 준비가 됐어요. 파트너의 아이디어에 대한 생각은 이래요:

• 보드 게임 하기: 아니요.
• 쉬기: 아니요.
• 영화 보기: 로맨스 영화면 예, 아니면 아니요.
• 식당 가기: 한국 요리면 예, 터키 요리면 어쩌면.
• 산책하기: 3킬로미터 미만이면 예, 3킬로미터 이상 5킬로미터 이하면 어쩌면, 그 외에는 아니요.

Activity 값을 받아 위에서 정한 느낌에 따라 Approval을 반환하는 rateActivity라는 함수를 구현해요. 예를 들어:

rateActivity (Restaurant Turkish)
-- -> Maybe