روز ولنتاین

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. تأیید را تعریف کنید

برای هر ایده‌ای که شریک زندگی‌تان پیشنهاد می‌دهد، با یکی از سه گزینه پاسخ می‌دهید: yes، no یا maybe.

نوع داده‌ی جبری 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. فعالیت را ارزیابی کنید

در پایان، آماده‌اید که ایده‌های شریک زندگی‌تان را ارزیابی کنید. احساس شما درباره‌ی ایده‌ی شریک زندگی‌تان این است:

• انجام یک بازی رومیزی: no.
• استراحت کردن: no.
• تماشای فیلم: اگر فیلمی عاشقانه باشد yes؛ در غیر این صورت no.
• رفتن به رستوران: اگر آشپزی آن کره‌ای باشد yes، اگر ترکی باشد maybe.
• قدم زدن: اگر پیاده‌روی کمتر از ۳ کیلومتر باشد yes؛ اگر بین ۳ تا ۵ کیلومتر (با احتساب دو سر) باشد maybe؛ در غیر این صورت no.

تابعی به اسم rateActivity پیاده‌سازی کنید که یک مقدار Activity می‌گیرد و بر اساس احساس‌های بالا Approval را برمی‌گرداند. برای مثال:

rateActivity (Restaurant Turkish)
-- -> Maybe