روز ولنتاین

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.

نوع سفارشی Approval را طوری تعریف کنید که این گزینه‌ها را به‌صورت سه حالت زیر نمایش دهد: Yes، No و Maybe.

2. تعریف Cuisine

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

نوع سفارشی Cuisine را طوری تعریف کنید که این آشپزی‌ها را به‌صورت دو حالت زیر نمایش دهد: Korean و Turkish.

3. تعریف Genre

فیلم‌های بی‌شماری برای انتخاب وجود دارد، پس شریک شما برای اینکه انتخاب را محدودتر کند، ژانر آن‌ها را هم فهرست می‌کند.

نوع سفارشی Genre را تعریف کنید تا ژانرهای زیر را به‌صورت حالت نمایش دهد: Crime، Horror، Romance و Thriller.

4. تعریف Activity

همان‌طور که گفته شد، شریک شما پنج فعالیت مختلف به ذهنش رسیده است: بازی رومیزی بازی کردن، استراحت کردن، تماشای فیلم و رفتن به رستوران.

نوع سفارشی Activity را تعریف کنید تا این انواع فعالیت را نمایش دهد:

• BoardGame: بدون داده‌ی همراه.
• Chill: بدون داده‌ی همراه.
• Movie: دارای Genre به‌عنوان داده‌ی همراه.
• Restaurant: دارای Cuisine به‌عنوان داده‌ی همراه.

5. امتیازدهی به Activity

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

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

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

rateActivity (Restaurant Turkish)
-- => Maybe